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PRODUCT NAME 
PRODUCT DATE 
MAINTAINER: 
AUTHOR: 
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CZRNDAO RM80 FCTNL TEST PT 1 
APRIL 1. 1982 
CX DIAGNOSTIC GROUP 
MIKE LEAVITT 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE AND 
SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY 
FOR ANY ERRORS THAT MAY APPEAR IN THIS MANUAL. 

THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER A LICENSE AND 
MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE. 

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE OR 
RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY 
DIGITAL. 

COPYRIGHT (C) 1982 DIGITAL EQUIPMENT CORPORATION 
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SEO 0003 


0 1 


1.0 INTRODUCTION 

1.1 ABSTRACT 

THE RM80 SUBSYSTEM FUNCTIONAL TEST IS A STAND ALONE PROGRAM WHICH 
USES FUNCTIONAL MEANS TO VERIFY THE OPERABILITY OF THE RM80 DISK 
SUBSYSTEM. IN PARTICULAR. THE PROGRAM SERVES THE FOLLOWING PURPOSES: 

TO EXPLICITLY ESTABLISH CONFIDENCE IN THE BASIC OPERATIONS OF THE 
DISK DRIVE. INCLUDING MECHANICAL POSITIONING AND DATA TRANSFER 
OPERATIONS; 


TO IMPLICITLY ESTABLISH 
ELECTRICAL INTERFACE; 


CONFIDENCE IN THE DRIVE/ADAPTER 


TO VERIFY THE FUNCTIONALITY OF THE RM80 SUBSYSTEM. INCLUDING 
MASSBUS CONTROLLER. MASSBUS ADAPTER AND THE DISK DRIVE. 


THE 


THE TEST IS COMPRISED OF 4 PARTS. WHICH WOULD NORMALLY BE RUN IN 
SEQUENCE. STARTING WITH PART 1. BRIEFLY. PART 1 TESTS HOUSEKEEPING 
AND MECHANICAL POSITIONING OPERATIONS; PART 2 TESTS WRITE. READ AND 
WRITE CHECK OPERATIONS USING HEADER AND DATA; PART 3 TESTS WRITE. 
READ AND WRITE CHECK OPERATIONS USING DATA; PART 4 TESTS MECHANICAL 
POSITIONING OPERATIONS AND VARIOUS TIMING PARAMETERS OF THE RM80 DISK 
DRIVE. 


1.2 UNIT UNDER TEST 

THE UNIT UNDER TEST (UUT) IS THE RM80 DISK SUBSYSTEM WHICH 
CONSISTS OF THE RH70 MASSBUS CONTROLLER .THE RM80 MASSBUS ADAPTER. 
AND THE STORAGE MODULE DISK DRIVE/ NOTE THAT A DISK PACK IS REQUIRED 
FOR TESTING AND IS CONSIDERED AN INTEGRAL OF THE STORAGE MODULE DISK 
DRIVE. 


2.0 OPERATING REQUIREMENTS 

2.1 HARDWARE REQUIREMENTS 

THE FOLLOWING MINIMUM HARDWARE CONFIGURATION. ASSUMED TO BE 
OPERATIONAL, IS REQUIRED TO LOAD AND EXECUTE THE RM80 SUBSYSTEM 
FUNCTIONAL TEST: 

PDP-11 PROCESSOR 
20K MEMORY 

KW11-L OR KW11-P CLOCK 

PROGRAM LOADING DEVICE 

TERMINAL 

RH70 CONTROLLER 

1 TO 8 RM80 DISK DRIVES 


2.2 MEDIA REQUIREMENTS 
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EACH UNIT BEIN6 TESTED MUST BE LOADED WITH A DISK BEFORE TESTING 
BEGINS ON THAT UNIT. THE DISK HAY BE FORMATTED OR UNFORMATTED. 


2.3 PREREQUISITE DIAGNOSTIC PROGRAMS 
RM80 DISKLESS TEST, PART 1 ft 2 


3.0 OPERATING PROCEDURE 

3.1 LOADING 

THE PROGRAM MAY BE LOADED BY EITHER OF THE FOLLOWING MEDIA: 

.PAPER TAPE, USING THE STANDARD PAPER TAPE LOADING PROCEDURE. 
.XXDP MEDIA, USING THE APPROPRIATE LOADING DEVICE. 


3.2 SWITCH OPTIONS 

THE FOLLOWING SWITCH OPTIONS ARE PROVIDED TO ENHANCE THE UTILITY 
OF THE PROGRAM. 

SW15 HALT ON ERROR 

SW14 LOOP ON TEST (CURRENTLY BEING EXECUTED) 

SW13 INHIBIT ERROR TYPEOUTS 

SW12 UNUSED 

SW11 INHIBIT TEST ITERATIONS 

SW10 BELL ON ERROR 

SW09 LOOP ON ERROR 

SW08 LOOP ON TEST IN SW07-00 

THE LOW ORDER 8 SWITCHES (SW07-SW00), ARE USED IN CONJUNCTION WITH 
SW08 TO SPECIFY THE OCTAL NUMBER OF THE TEST WHICH THE PROGRAM WILL 
LOOP ON. 


3.3 STARTING 

THE PROGRAM NAY BE STARTED AT LOCATION 200 OR 204. STARTING AT 
200 WILL BE THE NORMAL STARTING ADDRESS. STARTING AT 204 WILL ENABLE 
THE RH/RM BASE ADDRESS TO BE CHANGED. IF RUNNING IN A STAND-ALONE 
ENVIRONMENT, THE PROGRAM USES CONSOLE DIALOGUE TO ALLOW THE OPERATOR 
TO CONTROL TEST CONDITIONS. 


3.4 HALTING 

THE PROGRAM CAN BE HALTED BY TYPING CONTROL C FROM THE CONSOLE OR 
BY PRESSING THE HALT SWITCH ON THE PROCESSOR FRONT PANEL. 
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143 
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164 
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167 

168 

169 

170 

171 


3.5 RESTARTING 

THE PROGRAM CAN BE RESTARTED AT ADDRESS 200 OR 204. (SEE SECTION 3.3) 

4.0 OPERATOR INTERFACE 

4.1 PROGRAM ID 

THE PROGRAM TYPES ITS TITLE AND MAINDEC NUMBER THE FIRST TIME IT 
IS STARTED AFTER BEING LOADED. PROGRAM IDENTIFICATION DOES NOT OCCUR 
IF THE PROGRAM IS RESTARTED. 


4.2 CONSOLE DIALOGUE 

WHEN THE PROGRAM IS RUNNING IN STAND ALONE MODE, IT ENTERS A 
CONSOLE DIALOGUE SEQNENCE AFTER TYPING THE PROGRAM I.D.. 

THE FIRST QUESTION TYPED OUT IS: "TYPE HELP TEXT (L) N ?". 

IF THE OPERATOR RESPONDS WITH A "Y", THE PROGRAM WILL TYPE A BRIEF 
HELP MESSAGE WHICH WILL LIST SWITCH OPTIONS, ETC. ANY OTHER RESPONSE 
TO THE QUESTION IS CONSIDERED A AND NO HELP TEXT IS TYPED. THIS 
QUESTION IS ONLY ASKED ON THE INITIAL PROGRAM START AND NOT ON 
SUBSEQUENT START-UP'S. 

ON THE PROGRAM INITIAL START AND WHEN RESTARTING AT LOCATION 204, 
THE OPERATOR MAY CHANGE THE RH/RM BASE ADDRESSES WITH THE FOLLOWING 
DIALOGUE. 


EXAMPLE 1 

RMCS1 =176700 <CR> 
RMVEC=000254 <CR> 

EXAMPLE 2 


;N0 CHANGE IN ADDRESS 
;N0 CHANGE IN ADDRESS 


RMCS1 =176700 177 200<CR> .‘CHANGE BASE ADDRESS TO 177200 
RMVEC=000254 260<CR> .-CHANGE VECTOR ADDRESS TO 260 

THE NEXT QUESTION ASKED IS 'DO YOU WANT MANUAL INTERVENTION 
TESTS (L) N ?'. IF THE OPERATOR ANSWERED WITH A 'Y' RESPONSE, UPON 
ENTERING A MANUAL INTERVENTION TEST. THE PROGRAM WILL ASK THE 
OPERATOR TO PERFORM CERTAIN FUNCTIONS TO THE DRIVE. THERE IS ONLY ONE 
MANUAL INTERVENTION TEST IN THIS PROGRAM. (SEE SECTION 6.0, TEST #2) 
ANY OTHER RESPONSE TO THE QUESTION IS CONSIDERED TO BE 'N' AND THERE 
WILL BE NO MANUAL INTERVENTION IN THE PROGRAM OPERATION. TERMINATE 
RESPONSE WITH A CARRIAGE RETURN. 

ON THE INITIAL START, THE NEXT QUESTION TYPED IS, 'TYPE ' , A ,, TO 
TEST ALL DRIVES. OR TYPE DRIVE NUMBER(S) AND TERMINATE INPUT WITH 
A CARRIAGE RETURN'. THEN, 'DRIVE(S):’ IS TYPED AND WAITS FOR THE 


6 1 


SEQ 0006 
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OPERATOR TO TYPE AN "A" TO TEST ALL POSSIBLE DRIVES OR TYPE ANY 
STRING OF DRIVE NUNBER(S) TO BE TESTED AND TERMINATE THE INPUT WITH A 
"CARRIAGE RETURN". NO COMMAS OR ANY OTHER SEPARATORS ARE NEEDED WHEN 
ENTERING THE DRIVE NUMBERS AS A STRING. THE PROGRAM ENTERS THE COMMA 
SEPARTOR AUTOMATICALLY AFTER TYPING EACH NUMBER. ON ALL SUBSEQUENT 
STARTS. ONLY THE ’DRIVECS):' PROMPT IS TYPED. 

THE DIAGNOSTIC THEN INITIALIZES AND REPORTS THE STATUS OF THE 
DRIVES WHICH WHERE PREVIOUSLY SPECIFIED FOR TESTING. THE FOLLOWING 
IS AN EXAMPLE PRINTOUT: 

•UNIT STATUS: 

0 ONLINE RM80 

1 LOAD DEVICE 

2 OFFLINE RM80 

3 NOT PRESENT 

4 NOT PRESENT 

5 NOT AN RM80 

6 NOT PRESENT 

7 NOT PRESENT' 

THE ABOVE UNIT STATUS SHOWS THAT DRIVE 0 WILL BE TESTED. WHILE DRIVES 

1 - 7 WILL NOT BE TESTED. 

THE DIAGNOSTIC THEN TYPES THE FOLLOWING MESSAGE. BASED ON THE STATUS 
OF THE DRIVE: 

'DRIVE(S) TO BE TESTED. O’ 

IF NO DRIVES ARE AVAILABLE FOR TESTING THE FOLLOWING MESSAGE WILL BE 
TYPED TO THE OPERATOR: 

'DRIVE CS) TO BE TESTED. NONE' 

THE PROGRAM WILL THEN. EITHER START TESTING THE DRIVES AVAILABLE FOR 
TESTING OR RETURN TO THE BEGINNING OF THE PROGRAM AND WAIT. 

ONCE THE DRIVES START TESTING. THE FOLLOWING MESSAGE WILL OCCUR 
AS EACH DRIVE BEGINS TO BE TESTED: 

•DRIVE O' 

AFTER ALL THE DRIVES ARE COMPLETELY TESTED. THE END OF PASS 
MESSAGE WILL BE TYPED (SEE SECTION 4.3) AND THE PROGRAM WILL START 
TESTING ALL THE DRIVES AGAIN. THIS WILL CONTINUE UNTIL THE PROGRAM 
IS HALTED BY THE OPERATOR. 

NOTE: THE LETTER LOCATED WITHIN THE BRACKETS () INDICATES THE TYPE 

OF RESPONSE REQUIRED BY THE USER. D=DECIMAL, 0=0CTAL AND 
L-LETTER. 


4.3 PROGRESS REPORTS 

AN END OF PASS REPORT OCCURS EACH TIME THE PROGRAM IS EXECUTED 
FOR ALL DEVICES IN THE TEST QUE. THE END OF PASS REPORT IS AS FOLLOWS. 


H 1 
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254 

255 
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263 

264 
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267 
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283 
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•END OF PASS T 

THE FOLLOWING MESSAGE WILL ALSO OCCUR IF THERE WERE ERRORS SINCE 
THE LAST END OF PASS REPORT. 

'TOTAL ERRORS SINCE LAST REPORT O’ 

4.4 PERFORMANCE REPORT 

NO PERFORMANCE REPORTS ARE GIVEN DURING THE EXECUTION OF THE 
PROGRAM. 


4.5 PROGRAM HALTS 

THERE ARE NO SCHEDULED HALTS DURING THE EXECUTION OF THE PROGRAM. 
PROCESSOR HALTS ARE DUE TO THE TRAP CATCHER. 


4.6 ERROR REPORTS 


THE FIRST LINE OF THE ERROR REPORT CONTAINS THE NUMBER OF THE 
UNIT (DRIVE) BEING TESTED, THE DRIVE TYPE, THE TEST NUMBER, THE ERROR 
NUMBER AND THE VALUE OF THE PROGRAM COUNTER WHERE THE ERROR WAS CALLED. 
THIS LINE IS FOLLOWED BY THE ERROR MESSAGE: ONE OR MORE LINES OF TEXT 
WHICH GIVE A BRIEF, YET COMPREHENSIVE DESCRIPTION OF THE ERROR. THE 
ERROR MESSAGE IS NORMALLY FOLLOWED BY ONE OR MORE PAIRS OF LINES 
CONTAINING DATA HEADERS AND DATA PERTININENT TO THE ERROR, INCLUDING 
EXPECTED AND ACTUAL TEST RESULTS. 

THE FOLLOWING PRINTOUT SHOWS A TYPICAL ERROR MESSAGE FOR THIS PROGRAM: 

DRV# 0 - RM80, TEST# 14, ERR# 326, PC=016654 
MASS8US DATA BUS PARITY ERROR 'MDPE" (RMCS2, BIT 8) DETECTED 
DURING WRITE COMMAND 
EXPECTD 
040300 
RMCS1 

144252 

RMWC RMBA RMDA RMOF RMDC RMEC1 RMEC2 

177403 104604 000002 010000 000000 004066 000000 

RMMR1 
000010 


RECEVD 

040700 





RMCS2 

RMDS 

RMER1 

RMER2 

RMAS 

040700 

010700 

000000 

000000 

000000 

RMBA 

RMDA 

RMOF 

RMDC 

RMEC1 

104604 

000002 

010000 

000000 

004066 

RMMR2 

RMDT 

RMSN 



011777 

024026 

177777 




4.7 EXECUTION TIME 

PASS 1 OF THE PROGRAM TAKES ABOUT 20 SECONDS. PASS 2 AND 
SUBSEQUENT PASSES TAKE 2.3 MINUTES. 


5.0 ENVIRONMENTAL SUPPORT 
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SEQ 0008 


5.1 PROCESSOR COMPATIBILITY 

THE RM80 SUBSYSTEM FUNCTIONAL TEST IS EXECUTABLE ON A PDP-11/70 
PROCESSOR. PROVIDING PREVIOUSLY MENTIONED HARDWARE REQUIREMENTS ARE 
MET. AND PROVIDING THAT DATA THROUGHPUT ON THE SYSTEM IS SUFFICIENT TO 
SUSTAIN DATA TRANSFER OPERATIONS. 


5.2 DUAL PORT CONFIGURATIONS 

THE RM80 SUBSYSTEM FUNCTIONAL TEST DOES NOT SPECIFICALLY TEST 
DUAL PORT LOGIC IN THE RM80 ADAPTER BUT IS EXECUTABLE ON RM80 
SUBSYSTEMS HAVING THE DUAL PORT OPTION PROVIDING THE DUAL PORT SWITCH 
IS SET TO THE APPROPRIATE PORT (A OR B). 


5.3 MEMORY PARITY HARDWARE 

MEMORY PARITY HARDWARE IS NOT USED DURING THE EXECUTION OF THE 
RM80 SUS8YSTEM FUNCTIONAL TEST. 


5.4 MEMORY MANAGEMENT HARDWARE 

MEMORY MANAGEMENT HARDWARE IS NOT USED DURING THE RM80 SUS8YSTEM 
FUNCTIONAL TEST. 


5.5 ACT11, APT11 COMPATIBILITY 

THE RM80 SUBYSTEM FUNCTIONAL TEST IS COMPATIBLE WITH ACT11 AND 
APT11 IN BOTH DUMP AND AUTOMATIC MODES. FURTHER. THE PROGRAM WILL 
EXECUTE A QUICK PASS DURING THE FIRST PASS IN SUPPORT OF QUICK VERIFY 
MODE. 


5.6 XXDP COMPATIBILITY 

THE RM80 SUSBYSTEM FUNCTIONAL TEST IS COMPATIBLE WITH XXDP IN 
DUMP AND CHAIN MODES. AND PROVIDES MEDIA PROTECTION IN THE CASE WHERE 
THE RM80 IS THE XXDP LOADING DEVICE. 


5.7 OPERATING SYSTEM COMPATIBILITY 

THE PROGRAM IS NOT COMPATIBLE WITH ANY SOFTWARE OPERATING SYSTEM. 


6.0 TEST DESCRIPTION 
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SEG 0009 


TEST 1 CONTROLLER ACCESS TEST 
PURPOSE : 

TO VERIFY THAT THE UNIBUS ADDRESS OF THE RM80 SUBSYSTEM IS 
CORRECT, AS DEFINED AT LOCATION $BASE. 

PROCEDURE: 

THE TEST TRIES TO ACCESS ALL MASSBUS CONTROLLER REGISTERS 
USING THE $8ASE ADDRESS. REGISTER CONTENTS ARE IGNORED DURING 
THE TEST, AND THE TEST FAILS IF A BUS TIMEOUT OCCURS FOR ANY 
REGISTER TRANSFER. 

IF THE TEST FAILS AND THE PROGRAM IS RUNNING IN A STAND 
ALONE ENVIRONMENT, I.E., LOCATION 42 IS 0, THE PROGRAM WILL JUMP 
TO LOCATION 204 WHICH ALLOWS THE OPERATOR TO CHANGE THE $8ASE 
ADDRESS VIA CONSOLE DIALOGUE. OTHERWISE, THE PROGRAM ESCAPES TO 
THE END OF PASS HANDLER. 


TEST 2 LOGICAL ADDRESS PLUG TEST (OPTIONAL. SEE SECTION 4.2) 

PURPOSE: 

TO VERIFY THAT ALL LOGICAL ADDRESS PLUGS(0-7> FUNCTION IN 
EACH DEVICE UNDER TEST. 

PROCEDURE: 

THIS TEST SELECTS EACH UNIT BY INSERTING ADDRESS PLUGS 0-7 
INTO EACH DEVICE BEING TESTED AND READS RMER2 TO VERIFY THAT 
*X)PE" IS SET. A MASSBUS CLEAR IS ISSUED AND RMER2 IS READ TO 
VERIFY THAT "OPE" IS CLEAR. THE CONTROL STATUS REGISTERS 1 AND 2 
ARE READ TO VERIFY THAT THE CORRECT UNIT WAS SELECTED AND IS 
AVAILABLE FOR TESTING. ' DVA' ' IS SET IN RMCS1 AND 'NED IS CLEAR 
IN RMCS2. 


TEST 3 UNIBUS INITIALIZE TEST 
PURPOSE: 

TO VERIFY THAT ALL APPLICABLE SUBSYSTEM REGISTERS ARE 
INITIALIZED BY THE RESET INSTRUCTION. 


PROCEDURE: 


K 1 


SEQ 0010 


CZRNDAO RM80 *CTNL PT1 MACRO V04.00 28- JAN-82 16:24:51 PAGE 3-7 


400 

401 

402 

403 

404 

405 

406 

407 

408 

409 

410 

411 

412 

413 

414 

415 

416 

417 

418 

419 

420 

421 

422 

423 

424 

425 

426 

427 

428 

429 

430 
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NONZERO VALUES ARE WRITTEN IN EACH APPLICABLE REGISTER. A 
RESET INSTRUCTION IS EXECUTED, AND THE REGISTERS ARE TESTED TO 
INSURE THEY WERE INITIALIZED. THIS TEST IS DONE ONCE BECAUSE OF 
APT COMPATIBILITY REQUIREMENTS. 

THE FOLLOWING REGISTERS ARE PRESET BEFORE THE INITIALIZE 
OCCURS: 

RMCS1 - 003577 
RMBA - 777776 
RMCS2 - 021037 
RMER1 - 777777 
RMER2 - 777777 
RMMR - 040001 

IN ADDITION, THE DATA BUFFER IS USED TO FORCE DLT,TRE,SC AND OR 
TO A ONE AND TO FORCE IR TO A ZERO. 


TEST 4 CONTROLLER CLEAR TEST 
PURPOSE: 

TO VERIFY THAT APPLICABLE SUBSYSTEM REGISTERS ARE 
INITIALIZED BY A "CONTROLLER CLEAR" OPERATION. 

PROCEDURE: 

LIKE THE UNIBUS INITIALIZE TEST, THIS TEST WRITES NONZERO 
VALUES IN THOSE REGISTERS WHICH ARE INITIALIZED BY CONTROLLER 
CLEAR. THE SUBSYSTEM IS THEN CLEARED USING A CONTROLLER CLEAR, 
I.E., BIT 5 OF CONTROL STATUS REGISTER 2 (RMCS2), AND EACH 
REGISTER IS READ TO INSURE IT WAS CLEARED. 


TEST 5 ERROR CLEAR TEST 
PURPOSE: 

TO VERIFY THAT ALL APPLICABLE RH70 MASSBUS CONTROLLER STATUS 
AND ERROR CONDITIONS ARE INITIALIZED BY AN ERROR CLEAR OPERATION. 

PROCEDURE: 

AN '*H70 ERROR CLEAR" OPERATION, I.E., WRITING A ONE IN TRE, 
BIT 14 OF RMCS1 WILL CLEAR THE FOLLOWING STATUS BITS: 
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458 

459 

460 

461 
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463 

464 
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490 

491 

492 
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494 
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499 

500 

501 

502 

503 

504 

505 

506 

507 

508 

509 

510 

511 

512 

513 


l 1 

.TRE, BIT 14 OF RMCS1 

.NCPE. BIT 13 OF RMCS1 - READ ONLY 

.DLT, BIT 15 OF RMCS2 - READ ONLY 

.WCE, BIT 14 OF RMCS2 - READ ONLY 

.UPE, BIT 13 OF RMCS2 

.NED. BIT 12 OF RMCS2 - READ ONLY 

.PGE. BIT 10 OF RMCS2 - READ ONLY 

.MXF, BIT 09 OF RMCS2 

.HOPE. BIT 08 OF RMCS2 - READ ONLY 

THE TEST SETS UPE AND MXF STATUS BITS. THEN SETS TRE (ERROR 
CLEAR) AND VERIFIES THAT ALL THE ABOVE STATUS BITS ARE CLEARED. 


TEST 6 DRIVE STATUS TEST 
PURPOSE: 

TO VERIFY THAT THE STORAGE MODULE DISK DRIVE IS IN A STATE 
THAT PERMITS FURTHER TESTING. 

PROCEDURE: 

THIS TEST INITIALIZES THE MASS8US AND EXAMINES STATUS OF THE 
SELECTED DEVICE FOR THE FOLLOWING CONDITIONS: 

.MOL. BIT 12 OF RMDS *1. INDICATING THAT UNIT READY IS 
ASSERTED BY THE DRIVE; 

.WRL. BIT 11 OF RMDS =0. INDICATING THAT THE DRIVE IS NOT IN 
A WRITE PROTECT STATE; 

.DVC, BIT 07 OF RMER2 =0. INDICATING DRIVE FAULT IS 
UNASSERTED BY THE DRIVE; 

.UNS. BIT 14 OF RMER1 SHOULD EQUAL DVC. OTHERWISE AC POWER 
IS LOW OR A FAILURE HAS OCCURRED WITH UNSAFE STATUS. 


TEST 7 PRIMARY/SECONDARY ERROR TEST 
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559 
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564 
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566 
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569 

570 


PURPOSE : 

TO VERIFY THAT THE RM80 CAN EXECUTE A COMMAND WITHOUT 
INCURRING UNEXPECTED ERRORS. 

PROCEDURE : 

THE TEST EXECUTES A PACK ACKNOWLEDGE COMMAND AND MAKES SURE 
THAT GO RESETS AND THAT THERE ARE NO PARITY ERRORS, ETC. VOLUME 
VALID STATUS IS IGNORED. 


TEST 10 DIAGNOSTIC MODE TEST 
PURPOSE: 

TO VERIFY THAT MAINTENANCE HARDWARE IS OPERATIONAL. 
PROCEDURE: 

THE TEST THAT DIAGNOSTIC MODE CAN BE SET AND RESET, THEN 
VERIFIES THAT ‘MOL, PIP, WrU, SKI, AND DVC" CAN BE CONTROLLED 
USING MAINTENANCE REGISTER 1. 


TEST 11 PACK ACKNOWLEDGE TEST 
PURPOSE: 

TO VERIFY THAT VOLUME VALID CAN BE SET BY A PACK ACKNOWLEDGE 
COMMAND, LENDING CREDENCE TO THE EXECUTION OF THE COMMAND AND TO 
THE STABILITY OF THE UNIT READY SIGNAL FROM THE DRIVE. 

PROCEDURE: 

A PACK ACKNOWLEDGE COMMAND IS ISSUED TO THE SELECTED DEVICE 
AND VOLUME VALID STATUS, BIT 10 OF RMDS, IS CHECKED FOR ONE. 


TEST 12 RECALIBRATE TEST 
PURPOSE: 

THE PRIMARY PURPOSE IS TO ASCERTAIN THAT THE DRIVE .WILL 
EXECUTE A RECALIBRATE OPERATION TO THE EXTENT THAT ‘MIP" AND 
"SKI" STATUS BECOME UNASSERTED AT THE COMPLETION OF THE 
RECALIBRATE. THE SECONDARY PURPOSE IS TO PUT THE DRIVE IN A 
KNOWN STATE SO THAT FURTHER TESTS CAN CHECK FOR UNEXPECTED STATE 
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608 

609 

610 
611 
61 2 

613 

614 

615 

W 



CHANGES IN THE DRIVE. 

PROCEDURE: 

THE RECALIBRATE TEST PRESETS THE DISK ADDRESS REGISTER. 
RMDA. AND THE DESIRED CYLINDER REGISTER, RMDC. TO ZERO. THEN 
EXECUTES A RECALIBRATE COMMAND. THE TEST VERIFIES THE FOLLOWING 
CONDITIONS: 

.SKI=0, "SEEK ERROR" IS INACTIVE; 

.PIP=0, "ON CYLINDER" IS ACTIVE. AS INDICATED BY 
‘POSITIONING IN PROGRESS" BEING INACTIVE; 

.IAE-O, NO "INVALID ADDRESS ERROR" DURING RECALIBRATE; 

.0PI=0, NO ' OPERATION INCOMPLETE ERROR", INDICATING THAT 
THAT THE DRIVE WAS READY AT THE START OF THE COMMAND AND THAT ON 
CYLINDER STATUS WENT INACTIVE WHEN THE DRIVE RECEIVED THE 
COMMAND; 

.ATAsl. ATTENTION IS SET BY RECALIBRATE. 


TEST 13 ABORT RECALIBRATE TEST 
PURPOSE: 

TO VERIFY THAT THE RM80 INHIBITS A RECALIBRATE WHEN AN ABORT 
CONDITION EXISTS AT THE START OF THE COMMAND. 

PROCEDURE: 

THE TEST SETS AN ERROR IN THE ERROR REGISTER AND ISSUES A 
RECALIBRATE COMMAND. VERIFYING THAT ’PIP" REMAINS INACTIVE. 


TEST 14 IVC RECALIBRATE TEST 
PURPOSE: 

TO VERIFY THAT INVALID COMMAND STATUS. BIT 12 OF RMER2, SETS 
WHEN VOLUME VALID IS INACTIVE DURING A RECALIBRATE COMMAND. 

PROCEDURE: 

THE PROGRAM SETS AND RESETS DIAGNOSTIC NODE WHICH CAUSES 
VOLUME VALID, BIT 6 OF RMDS TO RESET. THE PROGRAM THEN EXECUTES 
A RECALIBRATE COMMAND AND VERIFIES THAT "IVC" STATUS SETS AND 
THAT *PIP" REMAINS INACTIVE. 
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628 

629 

630 

631 

632 

633 

634 

635 

636 

637 

638 

639 

640 

641 

642 

643 

644 

645 

646 

647 

648 

649 

650 

651 

652 

653 

654 

655 

656 

657 

658 

659 

660 
661 
662 

663 

664 

665 

666 

667 

668 

669 

670 

671 

672 

673 

674 

675 

676 

677 

678 

679 

680 
681 
682 

683 

684 
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TEST 15 IAE RECALIBRATE TEST 
PURPOSE : 

TO VERIFY THAT INVALID ADDRESS ERROR DOES NOT SET 
RECALIBRATE COMMAND . 

PROCEDURE: 


DURING A 


THE TEST PRESETS THE DISK ADDRESS (RMDA) AND THE DESIRED 
CYLINDER ADDRESS (RMDC) TO ILLEGAL VALUES AND ISSUES A 
RECALIBRATE COMMAND, VERIFYING THAT "IAE" DOES NOT SET DURING THE 
COMMAND. 


TEST 16 RECALIBRATE AT OFFSET 
PURPOSE: 

TO VERIFY THAT OFFSET MODE DOES NOT AFFECT RECALIBRATE. 
PROCEDURE: 

THE TEST EXECUTES AN OFFSET COMMAND, THEN EXECUTES A 
RECALIBRATE COMMAND AND VERIFIES THAT THERE ARE NO ERRORS DURING 
RECALIBRATE. 


TEST 17 DRIVE CLEAR TEST 
PURPOSE? 

TO VERIFY THAT ALL APPLICABLE RM80 MASSBUS ADAPTER ERROR AND 
STATUS CONDITIONS ARE INITIALIZED BY A "DRIVE CLEAR" COMMAND. 

PROCEDURE: 

THIS TEST WRITES ONES IN THOSE MASSBUS ADAPTER BITS WHICH 
ARE INITIALIZED BY DRIVE CLEAR , THEN ISSUES THE DRIVE CLEAR 
COMMAND AND VERIFIES THAT EACH BIT IS CLEARED. ADDITIONALLY, 
REGISTERS WHICH ARE NOT AFFECTED BY "DRIVE CLEAR" ARE ALSO PRESET 
AND VERIFIED. 

THE FOLLOWING ITEMS ARE PRESET: 

.RMER1 , ERROR REGISTER 1 IS SET TO ALL ONES; 
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SEQ 0015 


.DMD, DIAGNOSTIC MODE IS SET; 

.RMER2, ERROR REGISTER 3. IS SET TO ALL ONES. 

FOLLOWING THE DRIVE CLEAR COMMAND, THE FOLLOWING ITEMS ARE 
CHECKED: 

.RMCS1 , IS CHECKED FOR DVA=1, F0-F4 AND G0=0, ALL OTHER BITS 
ARE DONT CARES; 

.RMDS, IS CHECKED FOR 0, EXCEPT FOR MOL. DPR, DRY, AND VV 
WHICH SHOULD BE ONE, AND PGM WHICH IS A DONT CARE. 

.RMER1 , IS CHECKED FOR 0; 

.RMAS, IS CHECKED TO INSURE THE APPROPRIATE ATA BIT IS 0; 

.RMMR, IS CHECKED FOR 0. EXCEPT FOR WORD CLOCK, LAST SECTOR, 

AND LAST SECTOR AND TRACK WHICH ARE DONT CARES; 

.RMMR2 IS CHECKED FOR 0, EXCEPT FOR THE TEST BIT WHICH IS 
ONE, AND REQA, REQB WHICH ARE DONT CARES; 

.RMEC2 IS CHECKED FOR 0; 

.RMER2 IS CHECKED FOR 0; 


TEST 20 NOP TEST 
PURPOSE: 

TO VERIFY THE EXECUTION OF 'NOP" COMMAND. 

PROCEDURE: 

A NOP COMMAND IS EXECUTED ON THE SELECTED DEVICE AND STATUS 
IS CHECKED TO VERIFY THAT THERE WERE NO ERRORS OR UNEXPECTED 
CHANGES IN STATUS. 
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SEO 0016 


742 

743 

744 

745 

746 

747 

748 

749 

750 

751 

752 

753 

754 

755 

756 

757 

758 

759 

760 

761 

762 

763 

764 

765 

766 

767 

768 

769 

770 

771 

772 

773 

774 

775 

776 

777 

778 

779 

780 

781 

782 

783 

784 

785 

786 

787 

788 

789 

790 

791 

792 

793 

794 

795 

796 

797 

798 


RMDS IS ALSO SET. ADDITIONALLY, CONTROLLER, ADAPTER, AND DRIVE 
STATUS IS CHECKED FOR UNEXPECTED CHANGES. 


TEST 22 GO/ATA TEST 
PURPOSE: 

TO VERIFY THAT "ATA" WILL RESET WITH "GO” PROVIDING 
COMPOSITE ERROR IS INACTIVE. 

PROCEDURE: 

ATTENTION, BIT 15 OF RMDS, IS SET USING AN OFFSET COMMAND 
AND RESET USING A NOP COMMAND. 


TEST 23 WRITE ATA TEST 
PURPOSE: 

TO VERIFY THAT ATTENTION CAN BE RESET BY WRITING THE 
ATTENTION SUMMARY REGISTER, RMAS. 

PROCEDURE: 

ATTENTION IS SET USING AN OFFSET COMMAND AFTER WHICH THE 
PROGRAM WRITES A 0 IN THE ATTENTION SUMMARY REGISTER, VERIFYING 
THT ATTENTION REMAINS SET. FOLLOWING THAT, THE PROGRAM WRITES A 
1 IN RMAS AND VERIFIES THAT ATTENTION RESETS. 


TEST 24 ERROR/ATA TEST 
PURPOSE: 

TO VERIFY THAT ‘W DOES NOT RESET 
COMPOSITE ERROR. 

PROCEDURE: 


‘ATA" WHEN THERE IS A 


"ATA" IS SET WITH AN OFFSET COMMAND AFTER WHICH ONE OF THE 
ERROR BITS IS SET. THE PROGRAM THEN ISSUES A NOP COMMAND AND 
VERIFIES THAT THE ATTENTION BIT REMAINS SET. 
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799 

800 
801 
802 
803 
8C* 

805 

806 

807 

808 

809 

810 
811 
812 

813 

814 

815 

816 

817 

818 

819 

820 
821 
822 

823 

824 

825 

826 

827 

828 

829 

830 

831 

832 

833 

834 

835 

836 

837 

838 

839 

840 

841 

842 

843 

844 

845 

846 

847 

848 

849 

850 

851 

852 

853 

854 

855 
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TEST 25 PROGRAM INTERRUPT TEST 
PURPOSE: 

TO VERIFY THAT THE RM80 SUBSYSTEM WILL GENERATE A PROGRAM 
INTERRUPT WHEN PROCESSOR PRIORITY IS LESS THAN CONTROLLER 
PRIORITY AND INTERRUPT IS ENABLED. 

PROCEDURE: 

ATTENTION IS SET USING AN OFFSET COMMAND. W.’TH INTERRUPT 
ENABLED AND PROCESSOR PRIORITY SET BELOW CONTROLLER PRIORITY. THE 
PROGRAM VERIFIES THAT A PROGRAM INTERRUPT OCCURS. 


TEST 26 INHIBIT INTERRUPT TEST 
PURPOSE: 

TO VERIFY THAT A PROGRAM INTERRUPT DOES NOT OCCUR WHEN (1) 
PROCESSOR AND CONTROLLER PRIORITY ARE THE SAME AND INTERRUPT IS 
ENABLED OR (2) WHEN PROCESSOR PRIORITY IS LESS THAN CONTROLLER 
AND INTERRUPTS ARE NOT ENABLED. 

PROCEDURE: 

ATTENTION IS SET USING AN OFFSET COMMAND WITH THE PRIORITY 
OF THE PROCESSOR SET EQUAL TO THE PRIORITY OF THE CONTROLLER. 
INTERRUPT IS ENABLED AND THE TEST VERIFIES THAT A PROGRAM 
INTERRUPT DOES NOT OCCUR. INTERRUPTS ARE DISABLED AND PROCESSOR 
PRIORITY IS LOWERED AND THE TEST VERIFIES THAT A PROGRAM 
INTERRUPT DOES NOT OCCUR. 


TEST 27 RETURN TO CENTERLINE TEST 


PURPOSE: 

TO VERIFY THE EXECUTION OF 'RETURN TO CENTERLINE" COMMAND. 
PROCEDURE: 

THIS TEST ISSUES AN RTC COMMAND AND VERIFIES THAT OFFSET 
STATUS, BIT 0 OF RMDS IS RESET AND THAT ATTENTION. BIT 15 OF RMD3 
IS SET. UNEXPECTED STATUS OR ERROR CONDITIONS ARE ALSO VERIFIED. 


i 


SEC 0018 


CZRNDAO RM80 FCTNL PT1 MACRO V04.00 28- JAN-82 16:24:51 PAGE 3-15 
856 TEST 30 READ IN PRESET TEST 


PURPOSE: 

TO VERIFY THE EXECUTION OF 'HEAD IN PRESET" COMMAND. 
PROCEDURE: 

THIS TEST LOADS NON ZERO VALUES IN THOSE ADAPTER REGISTERS 
WHICH ARE INITIALIZED BY THE READ IN PRESET COMMAND. THEN 
EXECUTES THE COMMAND AND VERIFIES THE CONTENTS OF EACH REGISTER. 
THE FOLLOWING REGISTERS ARE CHECKED: 

.RMDA, THE DISK ADDRESS REGISTER. IS LOADED WITH ALL 

ONES AND VERIFIED TO BE ZERO AFTER THE RIP COMMAND; 

.RMDC. THE DESIRED CYLINDER REGISTER, IS LOADED WITH 

ALL ONES (601777) AND VERIFIED TO BE ZERO AFTER THE RIP COMMAND; 

.RMOF. THE OFFSET REGISTER, IS PRESET (TO 017200) AND 

VERIFIED TO BE ZERO AFTER THE TEST; 


TEST 31 RMDC CLEAR OFFSET TEST 
PURPOSE: 

TO VERIFY THAT WRITING THE DESIRED CYLINDER REGISTER (RMDC) 
WILL CLEAR OFFSET MODE. 

PROCEDURE: 

OFFSET MODE IS SET USING THE OFFSET COMMAND, THEN RESET BY 
WRITING RMDC. 


TEST 32 ILLEGAL FUNCTION TEST 
PURPOSE: 

TO VERIFY THAT THE RM80 SUBSYSTEM DETECTS ALL ILLEGAL 
FUNCTIONS. 

PROCEDURE: 

EACH ILLEGAL FUNCTION CODE IS EXECUTED WITH THE PROGRAM 
VERIFYING THAT "ILLEGAL FUNCTION" STATUS, BIT 0 OF RMER1 IS SET 
FOR EACH CODE. THE SUBSYSTEM IS INITIALIZED PRIOR TO EACH 
ILLEGAL FUNCTION TEST. 
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913 

914 

915 

916 

917 

918 

919 

920 

921 

922 

923 

924 

925 

926 

927 

928 

929 

930 

931 

932 

933 

934 

935 

936 

937 

938 

939 

940 

941 

942 

943 

944 

945 

946 

947 

948 

949 

950 

951 

952 

953 

954 

955 

956 

957 

958 

959 

960 

961 

962 

963 

964 

965 

966 

967 

968 

969 
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TEST 33 INVALID COMMAND TEST 
PURPOSE: 

TO VERIFY IVC ERROR DETECTION. 

PROCEDURE: 

THE TEST RESETS VOLUME VALID USING MAINTENANCE UNIT READY, 
THEN EXECUTES A NOP COMMAND AND VERIFIES THAT IVC IS SET. THE 
PROCESS IS REPEATED FOR EACH FUNCTION CODE, WITH IVC BEING 
CHECKED ACCORDING TO THE FUNCTION. 


TEST 34 INVALID ADDRESS ERROR TEST 
PURPOSE: 

TO VERIFY IAE ERROR DETECTION. 

PROCEDURE: 

THE TEST EXECUTES EACH FUNCTION CODE WITH RMDA, AND RMDC SET 
TO ILLEGAL ADDRESSES, AND VERIFIES IAE ACCORDING TO THE FUNCTION. 


TEST 35 WRITE LOCK ERROR TEST 
PURPOSE: 

TO VERIFY WLE ERROR DETECTION. 

PROCEDURE: 

THE TEST SIMULATES WRITE PROTECT USING MAINTENANCE WRITE 
PROTECT AND VERIFIES WLE ACCORDING TO THE FUNCTION BEING 
EXECUTED. EACH FUNCTION CODE IS TESTED. 


TEST 36 ERROR ABORT TESTS 
PURPOSE: 

TO TEST COMMAND EXECUTION DURING AN ABORT CONDITION. 
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970 

971 

972 

973 

974 

975 

976 

977 

978 

979 

980 

981 

982 

983 

984 

985 

986 

987 

988 

989 

990 

991 

992 

993 

994 

995 

996 

997 

998 

999 
1000 
1001 
1002 

1003 

1004 

1005 

1006 

1007 

1008 

1009 

1010 
1011 
1012 

1013 

1014 

1015 

1016 

1017 

1018 

1019 

1020 
1021 
1022 

1023 

1024 

1025 

1026 


PROCEDURE: 

EACH FUNCTION CODE IS EXECUTED UNDER A SIMULATED UNSAFE 
CONDITION AND THE TEST VERIFIES THAT 60 IS RESET. 


TEST 37 RMR TEST 


PURPOSE : 

TO VERIFY THAT RMR ERROR IS DETECTED. 

PROCEDURE: 

THE TEST EXECUTES A NOP COMMAND WITH DEBUG CLOCK ENABLED. 
WITH 60 SET. THE TEST WRITES RMCSI, VERIFYING THAT RMR ERROR 
SETS. 


TEST 40 PARITY ERROR TEST 
PURPOSE: 

TO VERIFY THAT PARITY ERRORS ARE DETECTED. 

PROCEDURE: 

WITH PAT SET TO CAUSE BAD PARITY ON THE CONTROL BUS. THE 
TEST WRITES A SHIFTING ONE BIT PATTERN TO RMDA AND VERIFIES THAT 
AN ERROR IS DETECTED BY THE RM80 FOR EACH PATTERN. 


TEST 41 ILLEGAL REGISTER TEST 
PURPOSE: 

TO VERIFY THE DETECTION OF ILLEGAL REGISTER ADDRESSES BY THE 
RM80 SUSBSYSTEM. 

PROCEDURE: 

EACH REGISTER ADDRESS IS ACCESSED AND ILLEGAL REGISTER 
STATUS. BIT 1 OF RHER1 IS CHECKED ACCORDING TO THE ADDRESS USED. 
NOTE THAT THE EXECUTION OF THIS TEST 15 DEPENDENT ON THE REGISTER 
ADDRESS Jlf¥»£R IN THE RH70 CONTROLLER BECAUSE THE RANGE OF 
ADDRESSES WHICH THE CONTROLLER WILL RESPOND TO IS LIMITED BY THE 
WAY THE JUMPER IS CUT. 
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1028 

1029 

1030 

1031 
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1069 
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1078 

1079 
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1081 
1082 
1083 


SEEK TESTS (42 - 52) 

PURPOSE: 

THE PURPOSE OF EACH OF THE FOLLOWING SEEK TESTS IS TO VERIFY 
THE EXECUTION OF SEEK OPERATIONS BY THE RM80 SUBSYSTEM USING A 
SET OF ADDRESSES THAT TEST THE ADAPTER/DEVICE INTERFACE AND 
ELECTROMECHANICAL HEAD POSITIONING HARDWARE. 


•■SKI** IS 
A CYLINDER 
EACH SEEK 
CHECKS FOR 
IF THERE 
ERRORS AND 


PROCEDURE: 

EACH TEST WILL RECALIBRATE THE DRIVE IF *T»IP" OR 
ACTIVE. FOLLOWING THAT, THE TEST EXECUTES A SEEK TO 
ADDRESS OR SERIES OF ADDRESSES. AT THE COMPLETION OF 
OPERATION, SUBSYSTEM STATUS IS STORED AND THE TEST 
PRIMARY ERRORS WHICH PRECLUDE FURTHER ERROR CHECKING. 
ARE NO PRIMARY ERRORS THE TEST CHECKS FOR OPERATIONAL 
THEN SECONDARY ERRORS. 


TEST 42 SEEK TO FIRST CYLINDER TEST 

THIS TEST SEEKS TO THE FIRST CYLINDER. 


TEST 43 SEEK TO LAST CYLINDER TEST 

THIS TEST SEEKS TO THE LAST CYLINDER. 


TEST 44 SEEK PRIME CYLINDERS TEST 

THIS TEST SEEKS FORWARD TO EACH PRIME CYLINDER ADDRESS. I.E, 
CYLINDERS 1, 2, 4, 8. 16, 32. 64, 128, 256 AND 512. 


TEST 45 SEEK ZERO DIFFERENCE TEST 

THIS TEST EXECUTES SUCCESSIVE SEEKS TO CYLINDER 0. 
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1085 
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1087 
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1137 

1138 

1139 

1140 


TEST 46 SEEK MAXIMUM DIFFERENCE FORWARD 

THIS TEST DOES A RECALIBRATE COMMAND, REGUARDLESS OF THE 
CONDITION OF 'PIP" OR "SKI", AND THEN EXCUTES A SEEK TO THE LAST 
CYLINDER, 


TEST 47 SEEK ADJACENT FORWARD TEST 

THIS TEST SEEKS TO CYLINDER 0, FOLLOWED BY A SEEK TO THE 
ADJACENT FORWARD CYLINDER, I.E., CYLINDER 1. 


TEST 50 SEEK ADJACENT REVERl* TEST 

THIS TEST SEEKS TO CYLINDER 1, FOLLOWED BY A SEEK TO THE ADJACENT 
REVERSE CYLINDER, I.E.. CYLINDER 0. 


TEST 51 SEEK TO INVALID SECTOR TEST 

WITH THE OFFSET REGISTER SET FOR 18 BIT FORMAT, THE PROGRAM 
SEEKS TO CYLINDER 0, TRACK 0, FOR EACH INVALID SECTOR ADDRESS AND 
VERIFIES THAT INVALID ADDRESS ERROR SETS FOR EACH SECTOR. THE 
TEST IS REPEATED FOR 16 BIT FORMAT. 


TEST 52 SEEK TO INVALID TRACK TEST 

THE TEST SEEKS TO EACH INVALID TRACK ADDRESS WITH CYLINDER 
AND SECTOR ADDRESS SET TO 0 AND VERIFIES THAT INVALID ADDRESS 
ERROR SETS FOR EACH TRACK ADDRESS. 


TEST 53 SEEK TO INVALID CYLINDER TEST 

THE PROGRAM SEEKS TO EACH INVALID CYLINDER ADDRESS WITH THE 
SECTOR AND TRACK ADDRESS SET TO 0 AND VERIFIES THAT INVALID 
ADDRESS ERROR SETS FOR EACH CYLINDER ADDRESSS. 


CZRNDAO RM80 FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PA6E 3-20 


SFO 002? 


1141 

1142 

1143 

1144 

1145 

1146 

1147 

1148 

1149 

1150 

1151 

1152 

1153 

1154 

1155 

1156 

1157 

1158 

1159 

1160 
1161 
1162 

1163 

1164 

1165 

1166 

1167 

1168 

1169 

1170 

1171 

1172 

1173 

1174 

1175 

1176 

1177 

1178 

1179 

1180 
1181 
1182 

1183 

1184 

1185 

1186 

1187 

1188 

1189 

1190 

1191 

1192 

1193 

1194 

1195 

1196 

1197 


K 2 


TEST 54 IVC SEEK TEST 
PURPOSE: 

TO VERIFY THAT INVALID COMMAND STATUS, BIT 12 OF RMER2 SETS 
WHEN VOLUME VALID IS INACTIVE DURIN6 A SEEK COMMAND. 

PROCEDURE: 

THE TEST RESETS VOLUME VALID BY SETTIN6 AND RESETTING 
DIAGNOSTIC MODE, THEN EXECUTES A SEEK COMMAND AND VERIFIES THAT 
••IVC" STATUS IS SET. 


TEST 55 ABORT SEEK TEST 
PURPOSE: 

TO VERIFY THAT THE RM80 INHIBITS A SEEK WHEN AN ABORT 
CONDITION EXISTS AT THE START OF THE COMMAND. 

PROCEDURE: 

THE TEST SETS AN ERROR IN THE ERROR REGISTER AND ISSUES A 
SEEK COMMAND, VERIFYING THAT "PIP" REMAINS INACTIVE. 


TEST 56 SEEK AT OFFSET 
PURPOSE: 

TO VERIFY THAT OFFSET MODE DOES NOT CAUSE ERRORS DURING 

SEEK. 

PROCEDURE: 

THE TEST EXECUTES AN OFFSET COMMAND THEN EXECUTES A SEEK 
COMMAND, VERIFYING THE RESULTS OF THE SEEK. 


TEST 57 LOOK AHEAD TEST 
PURPOSE: 
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1198 

1199 

1200 
1201 
1202 

1203 

1204 

1205 

1206 

1207 

1208 

1209 

1210 
1211 
1212 

1213 

1214 

1215 

1216 

1217 

1218 

1219 

1220 
1221 
1222 

1223 

1224 

1225 

1226 

1227 

1228 

1229 

1230 

1231 

1232 

1233 

1234 

1235 

1236 

1237 

1238 

1239 

1240 

1241 

1242 

1243 

1244 

1245 

1246 

1247 

1248 

1249 

1250 

1251 

1252 

1253 

1254 


TO INSURE THAT THE SECTOR COUNT WHICH ORIGINATES AT THE 
DRIVE AND IS VISIBLE THROUGH THE LOOK AHEAD REGISTER (RMLA) IS 
OPERATIONAL. 

PROCEDURE : 

WITH THE OFFSET REGISTER SET FOR 18 BIT FORMAT. THE PROGRAM 
SAMPLES THE LOOK AHEAD REGISTER AND COLLECTS EACH DIFFERENT 
SAMPLE UNTIL THE VALUE OF THE FIRST SAMPLE IS DETECTED OR UNTIL 
31. SAMPLES ARE TAKEN. THE COLLECTION IS THEN TESTED TO DETERMINE 
THAT THE SECTOR COUNT INCREMENTS CORRECTLY THROUGH THE ENTIRE 
RANGE OF VALID SECTORS. THE SAME PROCEDURE IS REPEATED FOR 16 
BIT FORMAT. WHERE THE LIMIT ON THE NUMBER OF SAMPLES IS 32. ALSO. 
16 BIT FORMAT WITH SSEI SET. WHERE THE LIMIT ON THE NUMBER OF 
SAMPLES IS 33. 


TEST 60 SEARCH ON CYLINDER 
PURPOSE : 


TO VERIFY THE EXECUTION OF SEARCH OPERATIONS WITH NO HEAD 
MOTION USING THE SECTOR PULSE FOR SECTOR COMPARE. 

PROCEDURE: 

THE TEST INTIALIZES AND RECALIBRATES THE DRIVE IF , T>IP" OR 
•■SKI'* IS ACTIVE THEN SEEKS TO CYLINDER 0. THE TEST THEN DOES A 
SEARCH TO EACH SECTOR AND VERIFIES THAT THE SEARCH COMPLETES 
WITHOUT ERROR. THIS TEST IS DONE IN 16 BIT FORMAT WITH SSEI SET. 


TEST 61 SEARCH OFF CYLINDER 
PURPOSE: 

TO VERIFY THE EXECUTION OF A SEARCH COMMAND WITH IMPLIED 
HEAD MOTION. 

PROCEDURE: 

THE DRIVE IS RECALIBRATED AND INITIALIZED IF THE DRIVE IS 
OFF CYLINDER OR HAS A SEEK ERROR. THE PROGRAM THEN EXECUTES AN 
EXPLICIT SEEK TO CYLINDER 279.. FOLLOWED BY A SEARCH TO CYLINDER 

280.. TRACK 0, SECTOR 0. THE NEXT SECTOR IS SEARCHED FOR BY AN 
EXPLICIT SEEK TO CYLINDER 278., FOLLOWED BY A SEARCH TO CYLINDER 

281.. TRACK 0. SECTOR 1., ETC.. UNTIL ALL SECTORS HAVE BEEN 
SEARCHED. THE TEST IS DONE FOR 16 BIT FORMAT WITH SSEI SET. WHERE 
THE LAST SECTOR SEARCHED IS 31. 
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1255 

1256 

1257 

1258 

1259 

1260 
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1262 

1263 

1264 

1265 
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1270 
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1280 
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1286 

1287 

1288 

1289 

1290 
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1293 

1294 
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1298 

1299 
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1301 

1302 

1303 

1304 

1305 

1306 

1307 

1308 

1309 

1310 

1311 


TEST 62 SEARCH INVALID SECTOR 
PURPOSE : 

TO VERIFY THE DETECTION OF AN INVALID SECTOR ADDRESS DURING 
A SEARCH OPERATION. 


PROCEDURE: 

THE DRIVE IS RECALIBRATED AND INITIALIZED IF IT IS OFF 
CYLINDER OR HAS A SEEK ERROR. WITH THE OFFSET REGISTER SET FOR 
18 BIT FORMAT. THE PROGRAM EXECUTES A SEARCH TO EACH INVALID 
SECTOR, I. E.. SECTORS 30. AND 31. AND VERIFIES THAT INVALID ADDRESS 
ERROR SETS FOR EACH SECTOR. THIS TEST IS EXECUTED IN 16 BIT 
FORMAT, WHERE SECTOR 31. IS THE INVALID SECTOR 


TEST 63 SEARCH INVALID TRACK 
PURPOSE: 

TO VERIFY THE DETECTION OF AN INVALID TRACK ADDRESS DURING A 
SEARCH OPERATION. 

PROCEDURE: 

THE DRIVE IS RECALIBRATED AND INITIALIZED IF IT IS OFF 
CYLINDER OR HAS A SEEK ERROR. THE PROGRAM EXECUTES A SEARCH TO 
EACH INVALID TRACK ADDRESS WITH THE CYLINDER ADDRESS 0, AND 
SECTOR ADDRESS 0 AND VERIFIES THAT INVALID ADDRESS ERROR SETS FOR 
EACH TRACK. 


TEST 64 SEARCH INVALID CYLINDER 
PURPOSE: 

TO VERIFY THE DETECTION OF AN INVALID CYLINDER ADDRESS 
DURING A SEARCH OPERATION. 

PROCEDURE: 


THE DRIVE IS RECALIBRATED AND INITIALIZED IF IT IS OFF 
CYLINDER OR HAS A SEEK ERROR. THE PROGRAM THEN EXECUTES A SEARCH 
TOEACH INVALID CYLINDER ADDRESS AND VERIFIES THAT INVALID 
ADDRESS ERROR SETS FOR EACH CYLINDER. 
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SEQ 0026 


1312 

1313 

1314 

1315 

1316 

1317 

1318 

1319 

1320 

1321 

1322 

1323 

1324 

1325 

1326 

1327 

1328 

1329 

1330 

1331 

1332 

1333 

1334 

1335 

1336 

1337 

1338 

1339 

1340 

1341 

1342 

1343 

1344 

1345 
J346 

347 

1348 

1349 

1350 

1351 

1352 

1353 


TEST 65 IVC SEARCH TEST 
PURPOSE : 

TO VERIFY THAT INVALID COMMAND STATUS SETS WHEN VOLUME VALID 
IS INACTIVE DURING A SEARCH COMMAND. 

PROCEDURE : 

VOLUME VALID IS RESET BY SETTING AND RESETTING DIAGNOSTIC 
MODE, AFTER WHICH THE TEST EXECUTES A SEARCH COMMAND, VERIFYING 
THAT •'IVC** STATUS SETS. 


TEST 66 ABORT SEARCH TEST 
PURPOSE: 

TO VERIFY THAT THE RM80 INHIBITS A SEARCH WHEN AN ABORT 
CONDITION EXISTS AT THE START OF THE COMMAND. 

PROCEDURE: 

THE TEST SETS AN ERROR IN THE ERROR REGISTER AND ISSUES A 
SEARCH COMMAND, VERIFYING THAT "PIP” REMAINS INACTIVE. 


TEST 67 SEARCH AT OFFSET TEST 
PURPOSE: 

TO VERIFY THAT OFFSET MODE DOES NOT CAUSE SEARCH ERRORS. 
PROCEDURE: 

THE TEST EXECUTES AN OFFSET COMMAND. THEN EXECUTES A SEARCH 
COMMAND, VERIFYING THAT THERE ARE NO ERRORS DURING THE SEARCH. 
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B 3 


SEO 0027 


1 

474 

475 


476 


477 


478 

479 


.-•LAST REVISION 19-0CT-81 

TITLE CZRNDAO RM80 FCTNL PT1 
COPYRIGHT (C) 1982 
DIGITAL EQUIPMENT CORPORATION 
COLORADO SPGS. , CO. 80919 

PROGRAM BY MIKE LEAVITT 

THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC ..YSMAC 
PACKAGE (MAINDEC-11-DZQAC-C5) , 18-MAR-81 

SBTTL OPERATIONAL SWITCH SETTINGS 


SWITCH 


USE 

15 

HALT ON 

ERROR 

14 

LOOP ON 

TEST 

13 

INHIBIT 

ERROR TYPEOUTS 

12 

UNUSED 


11 

INHIBIT 

ITERATIONS 

10 

BELL ON 

ERROR 

9 

LOOP ON 

ERROR 

8 

LOOP ON 

TEST IN SWR<7:0> 

7 

TNI 28 


6 

TN64 


5 

TN32 


4 

TNI 6 


3 

TN8 


2 

TN4 


1 

TN2 


0 

TNI 



.SBTTL BASIC DEFINITIONS 



.•♦INITIAL ADDRESS OF THE STACK POINTER **♦ 1100 *** 

001100 

STACK 

s 

1100 


104000 

ERROR 

2 

EMT 

; .-BASIC DEFINITION OF ERROR CALL 

000004 

SCOPE 

s 

IOT 

; .-BASIC DEFINITION OF SCOPE CALL 


.-•MISCELLANEOUS DEFINITIONS 

000011 

HT 

s 

11 

.-.-CODE FOR HORIZONTAL TAB 

C00012 

LF 

2 

12 

; ; CODE FOR LINE FEED 

000015 

CR 

2 

15 

;;CODE FOR CARRIAGE RETURN 

000200 

CRLF 

2 

200 

; ; CODE FOR CARRIAGE RETURN-LINE FEED 

177776 

PS 

2 

177776 

; .-PROCESSOR STATUS WORD 

177776 

PSW=PS 




177774 

STKLMT 

2 

177774 

;; STACK LIMIT REGISTER 

177772 

PIRQ 

2 

177772 

;; PROGRAM INTERRUPT REQUEST REGISTER 

177570 

DSWP 

2 

177570 

;. -HARDWARE SWITCH REGISTER 

177570 

DDISP 

= 

177570 

;; HARDWARE DISPLAY REGISTER 


.•♦GENERAL 

PURPOSE 

REGISTER DEFINITIONS 

000000 

RO 

2 

20 

;; GENERAL REGISTER 

000001 

R1 

2 

21 

;; GENERAL REGISTER 

000002 

R2 

2 

22 

;; GENERAL REGISTER 

000003 

R3 

2 

23 

; ; GENERAL REGISTER 
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000004 R4 = J4 
000005 R5 = $5 
000006 R6 = X6 
000007 R7 = X7 
000006 SP = $6 
000007 PC = 17 


SEO 0028 






III I ] 

• 1 1 


III 


l'[ l 


111 


Si ■ 

S 

S V 


S «E 


5 iW 

m r 

R 

i. 


GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
GENERAL REGISTER 
STACK POINTER 
PROGRAM COUNTER 


.-•PRIORITY LEVEL DEFINITIONS 


PRIORITY LEVEL 0 
PRIORITY LEVEL 1 
PRIORITY LEVEL 2 
PRIORITY LEVEL 3 
PRIORITY LEVEL 4 
PRIORITY LEVEL 5 
PRIORITY LEVEL 6 
PRIORITY LEVEL 7 


; •"SWITCH REGISTER" SWITCH DEFINITIONS 

SW15 = 100000 

SW14 = 40000 

SW13 = 20000 

SW12 = 10000 

SW1 1 = 4000 

SW10 = 2000 

SW09 = 1000 

SW08 = 400 

SW07 = 200 

SW06 = 100 

SW05 = 40 

SW04 = 20 

SW03 = 10 

SW02 = 4 

SW01 = 2 

SWOO = 1 

SW9=SW09 

SW8-SW08 

SW7=SW07 

SW6=SU06 

SW5=SW05 

SW4=SW04 

SW3=SW03 

SW2=SW02 

SWUSUOI 

swo-swoo 

.-•DATA BIT DEFINITIONS (BITOO TO BIT15) 


BIT15 

BIT14 

BIT13 

BIT12 

BIT11 

BIT10 

BIT09 

BIT08 

BIT07 

BIT06 

BIT05 


100000 

40000 

20000 

10000 

4000 

2000 

1000 

400 

200 

100 

40 


i 


SEQ 0029 




CZRNOAO RM80 FCTNL PT1 MACRO V04.00 28- JAN-82 16:24:51 PA6E 4-3 
RM80 REGISTER BIT DEFINITIONS 


E 3 


SEO 0030 


508 

• B* > m 

SEARCH 

* 000030 

SEARCH COMMAND 

511 

. ■< Ml* » AiinliSl 

ILF30 

r 000030 

ILLEGAL COMMAND 


" ■* 'M' - w - 

ILF32 

= 000032 

ILLEGAL COMMAND 



ILF34 

= 000034 

ILLEGAL COMMAND 


- ■• •I't*. 

ILF36 

= 000036 

ILLEGAL COMMAND 


000040 

ILF40 

= 000040 

ILLEGAL COMMAND 



ILF42 

= 000042 

ILLEGAL COMMAND 



ILF44 

= 000044 

ILLEGAL COMMAND 


000046 

ILF 46 

= 000046 

ILLEGAL COMMAND 

512 


WCD 

= 000050 

URITE CHECK DATA COMMAND 

513 


WCH 

= 000052 

WRITE CHECK HEADER AND DATA 

514 


ILF54 

s 000054 

ILLEGAL COMMAND 

515 

- ' MwW * W - 

ILF56 

* 000056 

ILLEGAL COMMAND 

516 


UD 

= 000060 

URITE DATA COMMAND 

517 

000062 

WH 

= 000062 

URITE HEADER AND DATA COMMAND 

518 

000064 

ILF64 

= 000064 

ILLEGAL COMMAND 

519 

000066 

ILF66 

= 000066 

ILLEGAL COMMAND 

520 

000070 

RD 

= 000070 

READ DATA COMMAND 

521 

000072 

RH 

= 000072 

READ HEADER AND DATA COMMAND 

522 

000074 

ILF74 

= 000074 

ILLEGAL COMMAND 

523 

000076 

ILF76 

= 000076 

ILLEGAL COMMAND 

524 





525 


;*RNDA 

DISK ADDRESS REGISTER 


526 





527 


.'TRACK ADDRESS DEFINITIONS 


528 

004000 

TA8 

= BIT11 

TRACK ADDRESS 8. 

529 

002000 

TA4 

= BIT10 

TRACK ADDRESS 4 

530 

001000 

TA2 

= BIT09 

TRACK ADDRESS 2 

531 

000400 

TA1 

= BIT08 

TRACK ADDRESS 1 

532 





533 


.'SECTOR ADDRESS DEFINITIONS 


534 

000020 

SA16 

= BIT04 

SECTOR ADDRESS 16. 

535 

000010 

SA8 

= BIT03 

SECTOR ADDRESS 8. 

536 

000004 

SA4 

= BIT 02 

SECTOR ADDRESS 4 

537 

000002 

SA2 

= BIT01 

SECTOR ADDRESS 2 

538 

000001 

SA1 

= BITOO 

SECTOR ADDRESS 1 

539 





540 


.■TRACK 

8 SECTOR MASKS 


541 

177400 

TADMSK 

= 177400 

; TRACK ADDRESS MASK 

542 

000377 

SADMSK 

= 000377 

.‘SECTOR ADDRESS MASK 

543 





544 


;*RNDS 

DRIVE STATUS REGISTER 


545 





546 


ATA 

= BIT15 

ATTENTION ACTIVE 

547 


ERR 

= BIT14 

COMPOSITE ERROR 

548 


PIP 

= BIT13 

POSITIONING IN PROGRESS 

549 


MOL 

* BIT12 

MEDIUM ON LINE 

550 


URL 

= BIT11 

URITE LOCK 

551 

002000 

LBT 

= BIT10 

LAST BLOCK TRANSFERRED 

552 

001000 

PGM 

= BIT09 

PROGRAMMABLE 

553 


DPR 

= BIT08 

DRIVE PRESENT 

554 


DRY 

= BIT07 

DRIVE READY 

555 


VV 

= BIT06 

VOLUME VALID 

556 


OM 

= BITOO 

OFFSET NODE ACTIVE 

557 





558 


; *RMER1 

ERROR REGISTER #1 


559 
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RMttO REGISTER BIT DEFINITIONS 


SEC 0031 


F 3 


560 

... IT> ? iiiiii . ■ 

DCK = BIT15 

DATA CHECK ERROR 

561 

SIS** > * 

UNS = BIT14 

DRIVE UNSAFE 

502 


0PI = BIT13 

OPERATION INCOMPLETE 

563 

nttSi < • i;i*i jilpappg 

DTE = BIT12 

DRIVE TIMING ERROR 

564 

lilgiHi i” • 

WLE = BIT11 

WRITE LOCK ERROR 

565 

. . Ht '*r. • • 

IAE = BIT10 

INVALID ADDRESS ERROR 

566 

k;*Mi if • '{'MWhpi 

A0E = BIT09 

ADDRESS OVERFLOW ERROR 

567 

«£Hi iji" 

HCRC = BIT08 

HEADER CRC ERROR 

568 

i i ijiw-...' iy- r 1 

HCE = BIT07 

HEADER COMPARE ERROR 

569 

. . Hi iti 

ECH = BIT06 

ECC "HARD" ERROR 

570 

ijliH O’" i * j. I 

WCF = BIT05 

WRITE CLOCK FAILURE 

571 

•lypI'B .7 - SSli 

FER = BIT04 

FORMAT ERROR 

572 

wSHi 

PAR * BIT03 

PARITY ERROR 

573 

B • ••[•}#»*§ 

RMR = BIT02 

REGISTER MODIFICATION REFUSED 

574 

• •••pWpBIi 

ILR = BIT01 

ILLEGAL REGISTER 

575 

1B§Hi i;»T*?*j 

ILF = BITOO 

ILLEGAL FUNCTION 

576 

577 

115760 

NDTMSK = DCK .' DTE !ULE!AOE! HCRC! HCE! ECH! WCF! FER 

.•‘NDTHSK" IS USED TO MASK ERROR REGISTER 1 DURING NON - DATA 

578 

579 



; COMMANDS , I.E.. HOUSEKEEPING AND POSITIONING COMMANDS 

580 

581 

582 

583 


;*RMAS ATTENTION SUMMARY REGISTER 

000377 

ATNMSK = 3 77 

;MASK FOR ATTENTION BITS 

584 

585 

586 

587 

002000 

;*RHLA LOOK AHEAD REGISTER 

SC4 = BIT10 

.•SECTOR COUNT = 16 

588 

001000 

SC3 = BIT09 

.‘SECTOR COUNT = 8 

589 

000400 

SC2 = B1T08 

; SECTOR COUNT = 4 

590 

000200 

SCI = BIT07 

.•SECTOR COUNT = 2 

591 

000100 

SCO = B1T06 

.•SECTOR COUNT = 1 

592 

593 

003700 

SCTMSK = 003700 

.'SECTOR COUNT MASK 

594 

595 

596 

597 

598 

100000 

;*RMMR1 MAINTENANCE REGISTER #1 

; WRITE ONLY BITS 

DBCK - BIT15 

DEBUG CLOCK 

599 

1 V •!« . .1 

DBEN = BIT14 

DEBUG CLOCK ENABLE 

600 


DEBL = BIT13 

DIAGNOSTIC END OF BLOCK 

601 

■'H'ft'Iw 

DTO = BIT12 

DIAGNOSTIC TIMEOUT 

602 

1' 'rir-i* 

HCLK = BIT11 

MAINTENANCE CLOCK 

603 

mm&Rmjm 

MRD = BIT10 

READ DATA 

604 

001000 

MUR = BIT09 

UNIT READY 

605 


HOC = B1T08 

ON CYLINDER 

606 

000200 

000100 

MSER = B1T07 

SEEK ERROR 

607 

MDF = BIT06 

DRIVE FAULT 

608 

: _ 

MS - BIT05 

SECTOR PULSE 

609 

000010 

HWP = BIT03 

WRITE PROTECT 

610 


Ml = B1T02 

INDEX PULSE 

611 

000002 

HSC = BIT01 

SECTOR COMPARE 

612 

000001 

DMD = BITOO 

DIAGNOSTIC MODE 

613 

614 

615 

100000 

;READ ONLY BITS 

OCC = BIT15 

.‘OCCUPIED 

616 

040000 

RG = BIT14 

.-RUN AND GO 
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SEQ 0032 


G 3 


617 

020000 

EBL 

= BIT13 

END OF BLOCK 

618 

010000 

REX 

= BIT12 

EXCEPTION 

619 

004000 

ESRC 

= BIT11 

ENABLE SEARCH 

620 

002000 

PLFS 

= BIT10 

LOOKING FOR SYNC 

621 

001000 

ECRC 

= BIT09 

ENABLE CRC OUT 

622 


PDA 

= B1T08 

DATA AREA 

623 

000200 

PHA 

= BIT07 

HEADER AREA 

624 


CONT 

= B1T06 

CONTINUE 

625 


WC 

= BIT05 

WORD CLOCK 

626 


EECC 

= BIT04 

ENABLE ECC OUT 

627 

000010 

MWD 

= BIT03 

WRITE DATA BIT 

628 

' I V 1 ' i 1 rW' & 

LS 

= BJT02 

LAST SECTOR 

629 


LST 

* BIT01 

LAST SECTOR AND TRACK 

630 


DND 

= BITOO 

DIAGNOSTIC NODE 

631 





63 2 

633 

634 


;*RMDT 

DRIVE TYPE REGISTER 


100000 

NSA 

= BIT15 

NOT SECTOR ADDRESSED - 0 

635 

040000 

TAP 

= BIT14 

TAPE DRIVE = 0 

636 

020000 

HOH 

= BIT13 

MOVING HEAD = 1 

637 

004000 

DRO 

= BIT11 

DRIVE REOUEST REQUIRED 

638 





639 

640 

641 


;*RMOF 

OFFSET REGISTER 


010000 

FMT16 

= BIT12 

16 BIT WORD FORMAT 

64 2 

004000 

ECi 

= BIT11 

ECC INHIBIT 

643 

002000 

HCJ 

= BIT10 

HEADER COMPARE INHIBIT 

644 

001000 

SSE1 

= BIT09 

SKIP SECTOR ERROR INHIBIT 

645 

000200 

OFD 

= BIT07 

OFFSET FORWARD 

646 





647 

648 

649 


;*RMDC 

DESIRED CYLINDER ADDRESS REGISTER 

001777 

CYLMSK 

= 001777 

;MASK FOR CYLINDER ADDRESS 

650 





651 


:*mm2 MAINTENANCE REGISTER #2 


65 2 





653 


.-READ ONLY BITS 


654 

H. *1*. -i ■ 

ROA 

- BIT15 

PORT A REQUEST 

655 

■' ■ •■'M' «• 

ROB 

= BIT14 

PORT B REQUEST 

656 

020000 

TAG 

= BIT13 

TAG CONTROL 

657 

010000 

TST 

= BIT12 

COMMAND SEQUENCE TEST BIT 

658 

: W 'lWm •* 

CC 

= BIT11 

CONTROL OR CYLINDER TAG 

659 


CH 

= BIT10 

CONTROL OR HEAD TAG 

662 


BB09 

= BIT09 

TAG BUS 



BB08 

= BIT08 

TAG BUS 


■•'B'vvM 

8807 

= 81 T07 

TAG BUS 


i(v| •. * v. * " 

8B06 

= BIT06 

TAG BUS 



6805 

= BIT05 

TAG BUS 


■rB'l'mi'M'*- ■* 4 ' : '" 

6804 

= BIT04 

TAG BUS 



8803 

s BIT03 

TAG BUS 


— - i ■■ 

B302 

= BIT02 

TAG BUS 


000002 

000001 

aaoi 

= BIT01 

TAG BUS 


BBOO 

= BITOO 

TAG BUS 

663 





664 


;*RMER2 ERROR REGISTER 2 


665 





666 

100000 

BSE 

= BIT15 

;BAD SECTOR ERROR 
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H 3 


SEO 0033 


667 

668 

669 

670 

671 

672 

673 

674 

675 

676 

677 

678 

679 

680 
681 
682 

683 

684 

685 

686 

687 

688 

689 

690 

691 

692 

693 

694 

695 

696 

697 

698 

699 
702 


703 

704 

705 

706 

707 
70 8 

709 

710 

711 

712 

713 

714 


040000 

020000 

010000 

004000 

002000 

000200 

000040 

000010 


100000 

040000 

020000 


000000 

000006 

000012 

000014 

000016 

000020 

000024 

000026 

000030 

000032 

000034 

000036 

000040 

000042 

000044 

000046 

000050 

000052 

000054 

000056 

000060 

000062 

000064 

000066 

000070 

000072 

000074 

000076 

000077 


SKI 

OPE 

IVC 

ISC 

LBC 

DVC 

SSE 

DPE 


BJT14 
BIT13 
BIT12 
81 Til 
BIT10 
BIT07 
BIT05 
BIT03 


.SBTTL PROGRAM MNEMONICS 


MSE 

USE 

SSF 


= BIT15 
= BIT14 
= BIT13 


SEEK INCOMPLETE 
OPERATOR PLUG ERROR 
INVALID COMMAND ERROR 
LOSS OF SYSTEM CLOCK 
LOSS OF BIT CLOCK 
DEVICE CHECK 
SKIP SECTOR ERROR 
DATA PARITY ERROR 


MANUFACTURING DETECTED SECTOR ERROR 
USER DETECTED SECTOR ERROR 
SKIP SECTOR FAILURE 


.SBTTL RM80 REGISTER INDEX VALUES 


RMCS1 

RMDA 

RMDS 

RMER1 

RMAS 

RMLA 

RMMR1 

RMDT 

RMSN 

RMOF 

RMDC 

RMHR 

RMMR2 

RMER2 

RMEC1 

RMEC2 

ILRG50 

ILRG52 

ILRG54 

ILRG56 

ILRG60 

1LRG62 

ILRG64 

ILRG66 

ILRG70 

ILRG72 

ILRG74 

ILRG76 


00 

06 

12 

14 

16 

20 

24 

26 

30 

32 

34 

36 

40 

42 

44 

46 

50 

52 

54 

56 

60 

62 

64 

66 

70 

72 

74 

76 


IDXMSK = 77 


CONTROL STATUS REGISTER #1 
DISK ADDRESS REGISTER 
DRIVE STATUS REGISTER 
ERROR REGISTER #1 
ATTENTION SUMMARY REGISTER 
LOOK AHEAD REGISTER 
MAINTENANCE REGISTER 
DRIVE TYPE REGISTER 
SERIAL NUMBER REGISTER 
OFFSET REGISTER 
DESIRED CYLINDER REGISTER 
HOLDING REGISTER 
MAINTENANCE REGISTER #2 
ERROR REGISTER #2 
ECC POSITION REGISTER 
ECC PATTERN REGISTER 
ILLEGAL REGISTER 50 
ILLEGAL REGISTER 52 
ILLEGAL REGISTER 54 
ILLEGAL REGISTER 56 
ILLEGAL REGISTER 60 
ILLEGAL REGISTER 62 
ILLEGAL REGISTER 64 
ILLEGAL REGISTER 66 
ILLEGAL REGISTER 70 
ILLEGAL REGISTER 72 
ILLEGAL REGISTER 74 
ILLEGAL REGISTER 76 

.’MASK FOR REGISTER INDEX NUMBER 



.SBTTL 


;*RMCS1 

100000 

SC 

040000 

TRE 

020000 

M CPE 

002000 

PSEL 

001000 

A17 


.SBTTL RH CONTROLLER REGISTER BIT DEFINITIONS 


CONTROL STATUS REGISTER #1 


= BIT15 
= BIT14 
= BIT13 
= BIT10 
= BIT09 


SPECIAL CONDITION-READ ONLY 
TRANSFER ERROR 

MASS6US CONTROL BUS PARITY ERROR-READ ONLY 
PORT B SELECT 
ADDRESS EXTENSION 


SEQ 0034 
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I 3 


715 

716 

717 

718 

719 

720 

721 

722 

723 

724 

725 

726 

727 
7 2d 

729 

730 

731 
73 2 
733 
736 


737 

738 

739 

740 

741 

742 

743 

744 

745 

746 

747 

748 

749 

750 

751 

752 

753 

754 

755 

756 

757 

758 

759 

760 

761 

762 

763 

764 

765 

766 

767 

768 


000400 

000200 

000100 


100000 

040000 

020000 

010000 

004000 

002000 

001000 

000400 

000200 

000100 

000040 

000020 

000010 

000004 

000002 

000001 


000007 


100000 

040000 

020000 

010000 

004000 

002000 

000100 

000010 

000004 

000002 

000001 


000000 

000002 

000004 

000010 

000022 

000050 

000052 

176700 

120254 


A16 

RDY 

IE 


= BIT08 
= BIT07 
= BIT06 


ADDRESS EXTENSION 
READY-READ ONLY 
INTERRUPT ENABLE 


;*RMCS2 RH CONTROL STATUS REGISTER #2 


DLT 

MCE 

UPE 

NED 

NEM 

PGE 

MXF 

MDPE 

OR 

IR 

CLR 

PAT 

BAI 

U2 

U1 

UO 


BIT15 

BIT14 

BIT13 

BIT12 

BIT11 

BIT10 

BIT09 

BIT08 

B1T07 

BIT06 

BIT05 

BIT04 

BIT03 

BIT02 

BIT01 

BITOO 


DATA LATE-READ ONLY 
WRITE CHECK ERROR-READ ONLY 
UNIBUS PARITY ERROR 
NONEXISTANT DRIVE-READ ONLY 
NONEXISTANT MEMORY-READ ONLY 
PROGRAM ERROR-READ ONLY 
MISSED TRANSFER 

MASS8US DATA BUS PARITY ERROR-READ ONLY 
OUTPUT READY-READ ONLY 
INPUT READY-READ ONLY 
CONTROLLER CLEAR 
PARITY TEST 

UNIBUS ADDRESS INCREMENT INHIBIT 
UNIT SELECT 
UNIT SELECT 
UNIT SELECT 


;UNIT SELECT MASK 
UNTMSK = 7 
;*RMCS3 RH70 CONTROL STATUS REGISTER «3 


.-UNIT SELECT MASK 


APE 

= BIT15 

DPEHI 

= BIT14 

DPELO 

= BIT13 

UCEHI 

= BIT12 

WCELO 

= BIT11 

DBL 

= BIT10 

IE 

= BIT06 

IPCK3 

= BIT03 

IPCK2 

= BIT02 

IPCK1 

= BIT01 

IPCKO 

= BITOO 


ADDRESS PARITY ERROR 
DATA PARITY ERROR HIGH WORD 
DATA PARITY ERROR LOU WORD 
WRITE CHECK ERROR HIGH WORD 
WRITE CHECK ERROR LOW WORD 
DOUBLE WORD TRANSFER 
INTERRUPT ENABLE 
INVERT PARITY CHECK 
INVERT PARITY CHECK 
INVERT PARITY CHECK 
INVERT PARITY CHECK 


.S8TTL RH CONTROLLER REGISTER INDEX VALUES 


RMCS1 

= 00 

.•CONTROL. STATUS REGISTER #1 

RMWC 

= 02 

.WORD COUNT REGISTER 

RMBA 

= 04 

.-BUS ADDRESS REGISTER 

RMCS2 

= 10 

.•CONTROL. STATUS REGISTER #2 

RMDB 

= 22 

.•DATA BUFFER 

RMBAE 

= 50 

.BUS ADDRESS EXTENSION 

RMCS3 

= 52 

.•CONTROL, STATUS REGISTER #3 

ABASE 

= 176700 

; UNIBUS ADDRESS 

AVECT1 

= 120254 

; UNIBUS VECTOR ADDRESS AND PRIORITY 


ao-'JO 
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TRAP CATCHER 


SEQ 0035 


J 3 


000000 


000174 
000174 000000 
000176 000000 


000200 000137 005426 
000204 000137 005416 


000210 
000046 
000046 041512 
000052 
000052 000000 
000210 

001100 


.S8TTI TRAP CATCHER 

.=0 

; *ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A ".*2, HALT" 
.'•SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
.'•LOCATION 0 CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 
.=174 


DISPREG: .WORD 0 
SWREG: .WORD 0 

•SBTTL STARTING ADDRESS(ES) 

JMP 9#START 

JMP a/TSTARTI 

.S8TTL ACT11 HOOKS 


;; SOFTWARE DISPLAY REGISTER 
;; SOFTWARE SWITCH REGISTER 


;;JUMP TO STARTING ADDRESS OF PROGRAM 
.'CHANGE RH/RM BUS ADDRESS 


.'HOOKS REQUIRED BY AC Til 
SSVPC=. 

.=46 

SENDAD 

.=52 

.WORD 0 
.=SSVPC 


.■SAVE PC 

;;1)SET L0C.46 TO ADDRESS OF SENDAD IN .SEOP 

;;2)SET L0C.52 TO ZERO 
;; RESTORE PC 


.=1100 

.SBTTL 


APT PARAMETER BLOCK 


001100 
000024 
000024 000200 
000044 
000044 001100 
001100 


.SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 


.sx=. 

.=24 

200 

.=44 

SAPTHDR 

.=.$X 


.'SAVE CURRENT LOCATION 

;SET POWER FAIL TO POINT TO START OF PROGRAM 
;FOR APT START UP 

.-POINT TO APT INDIRECT ADDRESS PNTR. 

.•POINT TO APT HEADER BLOCK 
.'RESET LOCATION COUNTER 


SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP1 1 DIAGNOSTIC 
INTERFACE SPEC. 


001100 


SAPTHD : 

001100 

000000 

SHIBTS: 

001102 

001222 

SMBADR: 

001104 

000024 

STSTM: 

001106 

000024 

SPASTM: 

001110 

000024 

SUNITM: 

001112 

000042 



001114 

TAGADR= 


0 

SMAIL 

20 . 
20 . 
20 . 


;TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 

.•ADDRESS OF APT MAILBOX (BITS 0-15) 

.-RUN TIM OF LONGEST TEST 

;RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDED UNIT 


.WORD SETEND-SMAIL/2 .'.'LENGTH MAI LBOX-E TABLE (WORDS) 


SEQ 0036 
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COMMON TAGS 

0 .S8TTL COMMON TAGS 


001114 

001114 

001116 

001117 

001120 

001122 

001124 

001126 

001130 

001131 

001132 

001134 

001136 

001140 

001142 

001144 

001146 

001150 

001151 

001152 

001154 

001156 

001160 

001162 

001164 

001166 

001170 

001171 

001172 

001173 

001174 

001176 

001200 

001202 

001204 

001206 

001210 

001212 

001216 

001217 

001220 


001114 

000000 

000 

000 

000000 

000000 

000000 

000000 

000 

001 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000 

000 

000000 

177570 

177570 

177560 

177562 

177564 

177566 

000 

002 

012 

COO 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

207 

077 

015 

012 


001222 

001222 000000 
001224 000000 
001226 000000 


♦THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
♦USED IN THE PROGRAM. 


.=TAGADR 

SCMTAG: 

.WORD C 
STSTNM: .BYTE C 

SERFLG: .BYTE ( 

SICNT: .WORD ( 

SLPADR : .WORD ( 

SLPERR: .WORD ( 

SERTTL: .WORD ( 

SITEMB: .BYTE ( 

SERMAX: .BYTE 
SERRPC: .WORD ( 

SGDA0R: .WORD ( 

SBDADR: .WORD < 

SGDDAT : .WORD ( 

SBDDAT: .WORD ( 


SBDDAT: .WORD 
.WORD 
.WORD 
SAUTOB: .BYTE 
SINTAG: .BYTE 
.WORD 
SWR: .WORD 

DISPLAY: .WORD 


177560 

177562 

177564 

177566 

.BYTE 


0 

0 

0 

0 

0 

0 

0 

0 

1 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

DSWR 

DDISP 


;;START OF COMMON TAGS 

.-.-CONTAINS THE TEST NUMBER 
;; CONTAINS ERROR FLAG 
;.' CONTAINS SUBTEST ITERATION COUNT 
;; CONTAINS SCOPE LOOP ADDRESS 
.-.'CONTAINS SCOPE RETURN FOR ERRORS 
.-.-CONTAINS TOTAL ERRORS DETECTED 
.'.'CONTAINS ITEM CONTROL BYTE 
.'.'CONTAINS MAX. ERRORS PER TEST 
;; CONTAINS PC OF LAST ERROR INSTRUCTION 
.-.'CONTAINS ADDRESS OF ’GOOD' DATA 
.'.'CONTAINS ADDRESS OF 'BAD' DATA 
.'.‘CONTAINS 'GOOD' DATA 
.'.'CONTAINS 'BAD' DATA 
.'.•RESERVED— NOT TO BE USED 

.'.’AUTOMATIC MODE INDICATOR 
.-.‘INTERRUPT MODE INDICATOR 


SFILLS: .BYTE 
SFILLC: .BYTE 
$TPFLG: .BYTE 
$TMPO: .WORD 


SWR: .WORD DSWR .'.’ADDRESS OF SWITCH REGISTER 

DISPLAY: .WORD DDISP .'.'ADDRESS OF DISPLAY REGISTER 

STKS : 177560 .'.'TTY K8D STATUS 

STK8: 177562 .'.'TTY K8D BUFFER 

STPS: 177564 ;;TTY PRINTER STATUS REG. ADDRESS 

$TPB: 177566 ;;TTY PRINTER BUFFER REG. ADDRESS 

SNULL: .BYTE 0 ;; CONTAINS NULL CHARACTER FOR FILLS 

SFILLS: .BYTE 2 .'.'CONTAINS # OF FILLER CHARACTERS REQUIRED 

SFILLC : .BYTE 12 .'.'INSERT FILL CHARS. AFTER A 'IINE FEED" 

STPFLG: .BYTE 0 ;; "TERMINAL AVAILABLE" FLAG (BIT<07>=0=YES) 

STMPO: .WORD 0 .'.'USER DEFINED 

STMP1: .WORD 0 .'.'USER DEFINED 

STMP2: .WORD 0 .'.'USER DEFINED 

STMP3: .WORD 0 .'.USER DEFINED 

STMP4: .WORD 0 .'.'USER DEFINED 

STIMES: 0 ;;MAX. NUMBER OF ITERATIONS 

SESCAPE.'O .'.'ESCAPE ON ERROR ADDRESS 

S8ELL : .ASCIZ <207><377><377> ;;CODE FOR BELL 

SQUES: .ASCII /?/ .'.'QUESTION MARX 

SCRLF: .ASCII <15> .'.'CARRIAGE RETURN 

SLF: .ASCIZ <12> .'.'LINE FEED 

• •************************♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦******♦**♦***♦*♦♦***♦ 

'.SBTTL APT MAI LBOX-E TABLE 

• •*************************♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦*****♦***********♦ 


STMP1 : 
STMP2: 
STMP3: 
STMP4: 
STIMES: 


SESCAPE.'O 


.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

0 


377 

377 S8ELL: 

.ASCIZ 


SQUES: 

.ASCII 


SCRLF : 

.ASCII 

000 

SLF: 

.ASCIZ 


.EVEN 

SMAIL: 

SMSGTY: .WORD 
SFATAL : .WORD 
STESTN: .WORD 


;;APT MAILBOX 

AMSGTY .'.'MESSAGE TYPE CODE 
AFATAL ;; FATAL ERROR NUMBER 
ATESTN .'.'TEST NUMBER 
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L 3 


SEQ 0037 


;;P ASS COUNT 
; .-DEVICE COUNT 
;;I/0 UNIT NUMBER 
; .-MESSAGE ADDRESS 
;; MESSAGE LENGTH 
; ;APT ENVIRONMENT TABLE 
;; ENVIRONMENT BYTE 
.-.-ENVIRONMENT MODE BITS 
; .-APT SWITCH REGISTER 
; .’USER SWITCHES 
.-.-CPU TYPE. OPTIONS 
BITS 15-11=CPU TYPE 

1 1 /04=01 . 1 1 /05=02 . 1 1 /20=03 , 1 1 /40=04 . 1 1 /45=05 
1 1 /70=06,PDQ=07,Q=1 0 
BIT 10=REAL TIME CLOCK 
BIT 9=FL0ATING POINT PROCESSOR 
BIT 8=MEM0RY MANAGEMENT 
; ;HIGH ADDRESS, M.S. BYTE 
;;MEM. TYPE.BLK#1 
MEM. TYPE BYTE — (HIGH BYTE) 

900 NSEC CORE=001 
300 NSEC BIP0LAR-002 
500 NSEC MO S =003 
.-.-HIGH ADDRESS, BLKfl 

MEM. LAST ADDR.=3 BYTES, THIS WORD AND LOW OF •TYPE" ABOVE 
;;HIGH ADDRESS, M.S. BYTE 
;; HEM. TYPE. BLK#2 
;;MEM.LAST ADDRESS ,8LK#2 
;;HIGH ADDRESS, M.S. BYTE 
;; HEM. TYPE ,BLK#3 
•; HEM. LAST ADDRESS ,BLK#3 
;;HIGH ADDRESS, M.S. BYTE 
;; HEM. TYPE ,BLK#4 
;;MEM.LAST ADDRESS ,BLK#4 
;; INTERRUPT VECTORS .BUS PRIORITYfl 
;; INTERRUPT VECT0R#28US PRIORI TY#2 
;;BASE ADDRESS OF EQUIPMENT UNDER TEST 
;; DEVICE MAP 

CONTROLLER DESCRIPTION U0RD#1 
;; CONTROLLER DESCRIPTION U0RD#2 
.-.-DEVICE DESCRIPTOR WORD#0 
.-.-DEVICE DESCRIPTOR U0RDJ1 
.-.-DEVICE DESCRIPTOR W0RD#2 
; .-DEVICE DESCRIPTOR W0RD*3 
; .-DEVICE DESCRIPTOR U0RD#4 
.-.-DEVICE DESCRIPTOR U0RD#5 
;;DEVICE DESCRIPTOR U0RD#6 
.-.-DEVICE DESCRIPTOR W0RD#7 
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SEQ 0038 


001326 000000 
001330 000000 
001332 000000 


001334 

001335 


001336 


001336 
001340 
001342 
001344 
001346 
001350 
001352 
001354 
001356 
001360 
001362 
001364 
001366 
001370 
001372 
00 
00 

00 . ... 

001402 

001404 

001406 

001410 


001412 


001412 

001414 

001416 

001420 

001422 

001424 

001426 

001430 

001432 

001434 

001436 



.S8TTL USER DEFINED TAGS 


CHGADR: .WORD 
MANUAL: .WORD 
XXDP: .WORD 


LSTRK: .BYTE 
.BYTE 


CHANGE RH/RM BUS ADDRESS = -1 , NO CHANGE = 0 
ENABLE MANUAL INTERVENTION TEST(S) = 1 
THE LOW BYTE CONTAINS THE DRIVE NUMBER FROM WHICH 
THE PROGRAM WAS LOADED. THE HIGH BYTE CONTAINS THE 
'XXDP* DEVICE CODE FOR THE RM80. 

LO BYTE = 0 

HI BYTE, CONTAINS LAST TRACK ADDRESS OF UNIT 
UNDER TEST. RM80 = 13. 


;THE REGISTER INPUT BUFFER IS USED FOR 
.•STORING DRIVE STATUS 


00 

RMCS1I : 

00 

RMWCI : 

00 

RMBAI : 

00 

RMDAI : 

00 

RMCS2I : 

100 

RMDSI : 

100 

RMER1I: 

100 

RMASI : 

100 

RMLAI : 

100 

RMDBI: 

00 

RMMR1I: 

100 

RMDTI : 

100 

RMSNI : 

100 

RMOFI : 

100 

RMDCI: 

100 

RM 

HRI: 

100 

RM 

MR2I : 

100 

RM 

ER2I: 

100 

RM 

EC1I : 

100 

RM 

EC2I: 

too 

RM8AEI: 

100 

RMCS3I : 


GETBUF : 

.•REGISTER INPUT 


■w- 

$ 

$ 


BUFFER 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 


CONTROL, STATUS REGISTER #1 
WORD COUNT REGISTER 
BUS ADDRESS REGISTER 
DISK ADDRESS REGISTER 
CONTROL, STATUS REGISTER #2 
DRIVE STATUS REGISTER 
ERROR REGISTER #1 
ATTENTION SUMMARY REGISTER 
LOOK AHEAD REGISTER 
DATA BUFFER 

MAINTENANCE REGISTER #1 
DRIVE TYPE REGISTER 
SERIAL NUMBER REGISTER 
OFFSET REGISTER 
DESIRED CYLINDER REGISTER 
HOLDING REGISTER 
MAINTENANCE REGISTER #2 
ERROR REGISTER *2 
ECC POSITION REGISTER 
ECC PATTERN REGISTER 
BUS ADDRESS EXTENSION REGISTER 
CONTROL, STATUS REGISTER #3 


.-THE REGISTER OUTPUT BUFFER IS USED FOR 
.•ASSEMBLING DATA GOING TO REGISTER 


PUTBUF : 

.•REGISTER OUTPUT BUFFER 
RMCS10: .WORD 0 

RMWCO: .WORD 0 

RMBAO: .WORD 0 

RMDAO: .WORD 0 

RMCS20: .WORD 0 

RMDSO: .WORD 0 

RMER10: .WORD 0 

RMASO: .WORD C 

RMLAO: .WORD 0 

RMDBO : .WORD 0 

RMMR10: .WORD 0 


.•CONTROL, STATUS REGISTER #1 
.•WORD COUNT REGISTER 
.-BUS ADDRESS REGISTER 
.-DISK ADDRESS REGISTER 
; CONTROL, STATUS REGISTER #2 
.•DRIVE sfATUS REGISTER 
.•ERROR REGISTER #1 
.•ATTENTION SUMMARY REGISTER 
.-LOOK AHEAD REGISTER 
.•DATA BUFFER 
.•MAINTENANCE REGISTER #1 


CZRNDAO RM80 FCTNL PT1 
USER DEFINED TA6S 

001440 OOO 
001442 000 
001444 000 
0014*6 000 
001 4 JO 000 
001 4 52 000 
001454 000 
001456 000 
001460 
001462 
001464 
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.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
• WORD 
.WORD 


SEO 0039 


001466 000000 
001470 

001510 000000 


001512 000000 
001514 000000 


001516 


001545 



RMER20: 

RMEC10: 

RMEC20: 

RMBAEO: 

RMCS30: 


DRIVE TYPE REGISTER 

SERIAL NUMBER REGISTER 

OFFSET REGISTER 

DESIRED CYLINDER REGISTER 

HOLDING REGISTER 

MAINTENANCE REGISTER #2 

ERROR REGISTER #2 

ECC POSITION REGISTER 

ECC PATTERN REGISTER 

BUS ADDRESS EXTENSION REGISTER 

CONTROL, STATUS REGISTER #3 


EACH WORD OF THE TEST QUE CONTAINS THE DEVICE NUMBER IN 
THE LOU BYTE AND THE ATTENTION BIT IN THE HIGH BYTE. THE 
FIRST WORD CONTAINS THE ADDRESS OF THE DEVICE UNDER TEST 
IN THE TABLE. A ZERO WORD IS A BLANK AND REPRESENTS THE 
END OF THE QUE. 


TSTQUE: .WORD . 0 
.BLKU 8. 
.WORD 0 


CLKADR: .WORD 0 
CLKVCT: .WORD 0 


.•CONTAINS DEVICE POINTER 
.-TEST QUE FOR DEVICES UNDER TEST 
.•TABLE TERMINATOR GOES HERE WHEN 
;ALL 8. DEVICES ARE UNDER TEST. 

.•UNIBUS ADDRESS OF KUll CLOCK 
.-VECTOR ADDRESS OF KUll CLOCK 


;THE GET INDEX TABLE CONTAINS A BYTE LIST OF REGISTERS WHICH 
•ARE READ BY THE GET SUBROUTINE. THE LIST IS TERMINATED BY 
;A NEGATIVE BYTE. „ _ 

GETINX: .BLKB 23. ;GET INDEX TABLE 

.-THE PUT INDEX TABLE ICONTAINS A BYTE LIST OF REGISTERS WHICH 
;ARE WRITTEN BY THE PUT SUBROUTINE. THE LIST IS TERMINATED BY 

^5tINX? T !bLK8 YTE 23. .‘PUT INDEX TABLE 

;PUT TAGS HERE 
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ERROR POINTER TABLE 

.SBTTL ERROR POINTER TABLE 


SEG 004 C 


•THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 

•THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 

•LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 

•N0TE1: IF SITEHB IS 0 THE ONLY PERTINENT DATA IS (SERRPC). 

•N0TE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOlLOUS: 

* EM ;;POINTS TO THE ERROR MESSAGE 

* DH ;; POINTS TO THE DATA HEADER 

* DT ;; POINTS TO THE DATA 

* OF ; .-POINTS TO THE DATA FORMAT 


001574 


001574 

001576 

001600 

001602 


070112 

074256 

074406 

074476 


SERRTB: 

; ERROR 1 


WRONG UNIT SELECTED 


001604 

001606 

001610 

001612 


070116 

074256 

074406 

074476 


.-ERROR 2 


DEVICE WENT UNAVAILABLE 


001614 

001616 

001620 

001622 


070124 

074256 

074406 

074476 


: ERROR 3 


DEVICE WENT NONEXISTENT 


001624 

001626 

001630 

001632 


070132 

074256 

074406 

074476 


.-ERROR 4 


CONTROLLER NOT READY 


001634 

001636 

001640 

001642 


070140 

074256 

074406 

074476 


; ERROR 5 


DRIVE NOT READY AND GO NOT RESET 


.-ERROR 6 


UNEXPECTED VALUE FOR "ATA" STATUS 



; ERROR 15 


PA6E 8-1 


C 4 


SEP 0041 


BUS TIMEOUT TRYING TO READ OR WRITE REGISTER 


DRIVE NOT READY BUT GO IS RESET 


GO NOT RESET BUT DRIVE IS READY 


INCORRECT FUNCTION CODE 


PARITY ERROR READING REMOTE REGISTERS 


TRANSFER ERROR IS INCORRECT 


INCORRECT WORD COUNT 



PAGE 8-2 


D 4 


3EQ 0042 


INCORRECT BUS ADDRESS 


INCORRECT L8T STATUS 


INCORRECT AOE 


INCORRECT DISK ADDRESS 


INCORRECT CYLINDER ADDRESS 


INCORRECT ULE STATUS 


INCORRECT UPE STATUS 


E 4 


SEQ 0043 
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ERROR POINTER TABLE 




002026 

074256 


EHT1 


002030 

074406 


EDT1 


002032 

074476 


EFT1 

61 

62 



.ERROR 

25 

63 

002034 

070316 


EM725 


002036 

074256 


EHT1 


002040 

074406 


EDT1 

64 

65 

66 

002042 

074476 

.•ERROR 

EFT1 

26 

EMT26 

002044 

070326 



002046 

074256 


EHT1 


002050 

074406 


EDT1 

67 

68 
69 

002052 

074476 

.•ERROR 

EFT1 

27 

EHT27 

002054 

070336 



002056 

074256 


EHT1 


002060 

074406 


EDT1 

70 

71 

72 

002062 

074476 

.•ERROR 

EFT1 

30 

ENT30 

002064 

070346 



002066 

074256 


EHT1 


002070 

074406 


EDT1 

73 

74 

75 

002072 

074476 

.•ERROR 

EFT1 

31 

ENT31 

002074 

070356 



002076 

074256 


EHT1 


002100 

074406 


EDT1 


002102 

074476 


EFT1 

76 




32 

77 

78 



.'ERROR 

ENT32 

002104 

070366 



002106 

074256 


EHT1 


002110 

074406 


EDT1 


002112 

074476 


EFT1 

79 




33 

80 

81 



.'ERROR 

002114 

070376 


ENT33 


002116 

074256 


EHT1 


PA6E 8-3 


INCORRECT WCF STATUS 


INCORRECT UCE STATUS 


INCORRECT HOPE STATUS 


INCORRECT DCK STATUS 


INCORRECT ECH STATUS 


DLT SHOULD NOT BE SET 


MXF SHOULD NOT BE SET 


CZRNDAO RM80 FCTNL PT1 
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>EQ 0044 


002120 

002122 

074406 

074476 


EDT1 

EFT1 



82 

83 

84 

002124 

002126 

002130 

002132 

070406 

074256 

074406 

074476 

; ERROR 

34 

EMT34 

EHT1 

EDT1 

EFT1 

DTE SHOULD NOT BE SET 


85 

86 
87 

002134 

002136 

002140 

002142 

070416 

074256 

074406 

074476 

; ERROR 

35 

EMT35 

EHT1 

EDT1 

EFT1 

INCORRECT HCRC STATUS 


88 

89 

90 



; ERROR 

36 

INCORRECT HCE STATUS 


002144 

002146 

002150 

002152 

070426 

074256 

074406 

074476 


EMT36 

EHT1 

EDT1 

EFT1 



91 

92 

93 



; ERROR 

37 

INCORRECT FER STATUS 


002154 

002156 

002160 

002162 

070436 

074256 

074406 

074476 


EMT37 

EHT1 

EDT1 

EFT1 



94 

95 

96 



; ERROR 

40 

DPE SHOULD NOT BE SET (NOT A DATA COMMAND) 


002164 

002166 

002170 

002172 

070446 

074256 

074406 

074476 


EMT40 

EHT1 

EDT1 

EFT1 



97 

98 

99 

002174 

002176 

002200 

002202 

070454 

074256 

074406 

074476 

; ERROR 

41 

EMT41 

EHT1 

EDT1 

EFT1 

LOST *HOL" DURING PACK ACKNOWLEDGE 


100 

1^1 

1J2 

002204 

002206 

002210 

070464 

074256 

074406 

.'ERROR 

42 

EMT42 

EHT1 

EDT1 

UNSAFE ERROR DURING PACK ACKNOWLEDGE 

1 







. . 1 




PA6E 8-5 


G 4 


SEQ 0045 


’10PI" ERROR DURING PACK ACKNOWLEDGE 


'W ERROR DURING PACK ACKNOWLEDGE 


"ILR" ERROR DURING PACK ACKNOWLEDGE 


"ILF” ERROR DURING PACK ACKNOWLEDGE 


COMPOSITE ERROR STATUS IS INCORRECT 


PARITY ERROR WRITING REMOTE REGISTERS 


INCORRECT IAE STATUS DURING SEEK COMMAND 
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H 4 


SEO 0046 


002304 

002306 

002310 

002312 


070566 

074256 

074406 

074476 


.•ERROR 52 


EMT52 

EHT1 

EDT1 

EFT1 


OPI ERROR DURING SEEK - MEDIUM IS NOT ON LINE 


002314 

002316 

002320 

002322 


070604 

074256 

074406 

074476 


.•ERROR 53 


EMT53 

EHT1 

EDT1 

EFT1 


OPI ERROR DURIN6 SEEK - MEDIUM IS ON LINE. ASSUME 
ON CYLINDER LATCH DIDN’T RESET 


002324 

002326 

002330 

002332 


070622 

074256 

074406 

074476 


.-ERROR 54 


EMT54 

EHT1 

EDT1 

EFT1 


SEEK INCOMPLETE ERROR DURING SEEK COMMAND 


002334 

002336 

002340 

002342 


070632 

074256 

074406 

074476 


.-ERROR 55 


EMT55 

EHT1 

EDT1 

EFT1 


DEVICE CHECK DURING SEEK COMMAND 


002344 

002346 

002350 

002352 


070644 

074256 

074406 

074476 


; ERROR 56 


EMT56 

EHT1 

EDT1 

EFT1 


PIP IS STILL SET AFTER SEEK - SKI IS RESET 


002354 

002356 

002360 

002362 


070662 

074256 

074406 

074476 


; ERROR 57 


EMT57 

EHT1 

EDT1 

EFT1 


ATA DID NOT SET DURING SEEK COMMAND 


002364 

002366 

002370 


070672 

074256 

0 7 4406 


.•ERROR 60 


EMT60 

EHT1 

EDT1 


IVC ERROR DURING SEEK COMMAND - LOST 
VOLUME VALID 



PA6E 8-7 


SEQ 0047 


1 4 


ERRONEOUS 1VC ERROR DURIN6 SEEK COWHAND - 
VOLUME VALID IS STIL SET 


HOL IS ZE30. BUT OPI WAS NOT 
REPORTED DURIN6 SEEK COWHAND 


SSE SHOULD NOT BE SET 


DRIVE DID NOT DETECT "IVC'* ERROR DURING SEEK 


DRIVE EXECUTED A SEEK WITH ERROR SET 


UNEXPECTED ERROR SET IN RMER1 


UNEXPECTED ERROR SET IN RWER2 








J 4 


1 CZRNDAO 
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SEQ 0048 

ERROR POINTER 

TABLE 






002460 

074406 


E0T1 




002462 

074476 


EFT1 



170 

171 

172 



.•ERROR 

70 

ERRONEOUS "IAE" ERROR DURING RECALIBRATE 


002464 

071040 


EMT70 




002466 

074256 


EHT1 




002470 

074406 


EDT1 




002472 

074476 


EFT1 



173 







174 



.•ERROR 

71 

"ILF" ERROR DURING RECALIBRATE 


175 

002474 

071050 


EMT71 




002476 

074256 


EHT1 




002500 

074406 


c'DTI 




002502 

074476 


EFT1 



176 







177 



.•ERROR 

72 

't)PI" ERROR DURING RECALIBRATE DUE TO ’MOL” = 0 


178 

002504 

071060 


EMT72 




002506 

074256 


EHT1 




002510 

074406 


E0T1 




002512 

074476 


EFT1 



179 







180 



.•ERROR 

73 * 

•mPI** ERROR DURING RECALIBRATE BECAUSE ON 


181 





CYLINDER DIDNT DROP 

j 

182 

002514 

071076 


ENT 73 




002516 

074256 


EHT1 




002520 

074406 


E0T1 




002522 

074476 


EFT1 



183 







184 



.•ERROR 

74 

"IVC" ERROR DURING RECALIBRATE - "VV" = 0 


185 

002524 

071114 


ENT74 




002526 

074256 


EHT1 




002530 

074406 


EDT1 




002532 

074476 


EFT1 



186 







187 



.•ERROR 

75 

ERRONEOUS "IVC" ERROR DURING RECALIBRATE - "VV" = 1 


188 

002534 

071124 


ENT75 




002536 

074256 


EHT1 




002540 

074406 


EDT1 




002542 

074476 


EFT1 



189 







190 



.•ERROR 

76 

"SKI" ERROR DURING RECALIBRATE 


191 

002544 

071144 


ENT76 




002546 

074256 


EHT1 




K 4 


SEQ 0049 


C2RNDA0 RM80 FCTNL PT1 MACRO V04.00 28- JAN-82 16:24:51 PA6E 8-9 


ERROR POINTER TABLE 





002550 

074406 


EDT1 


192 

193 

194 

002552 

074476 

; ERROR 

EFT1 

77 

EMT77 

"DVC” OCCURRED DURIN6 RECALIBRATE 

002554 

071154 




002556 

074256 


EHT1 



002560 

074406 


EDT1 



002562 

074476 


EFT1 


195 

196 



;ERR0R 

100 

LOST , *0L M DURING RECALIBRATE - •toPI" = 0 

197 

002564 

071166 


EMT100 



002566 

074256 


EHT1 



002570 

074406 


EDT1 



002572 

074476 


EFT1 


198 

199 

200 



.•ERROR 

101 

LOST 'W* DURING RECALIBRATE - "IVC" = 0 

002574 

071204 


EMT101 



002576 

074256 


EHT1 



002600 

074406 


EDT1 



002602 

074476 


EFT1 


201 

202 

203 



.-ERROR 

102 

"ATA" DID NOT SET DURING RECALIBRATE 

002604 

071222 


EMT102 



002606 

074256 


EHT1 



002610 

074406 


EDT1 



002612 

074476 


EFT1 


204 

205 

206 



; ERROR 

103 

"OM" DID NOT RESET DURING RECALIBRATE 

002614 

071232 


EMT103 



002616 

074256 


EHT1 



002620 

074406 


EDT1 


207 

208 
209 

002622 

074476 

.‘ERROR 

EFT1 

104 

EMT104 

•T»IP M IS STIL SET AFTER RECALIBRATE 

002624 

071244 




002626 

074256 


EHT1 



002630 

074406 


EDT1 


210 

211 

212 

002632 

074476 

.ERROR 

EFT1 

105 

EMT105 

UNEXPECTED "ILR" ERROR DURING RECALIBRATE 

002634 

071262 




002636 

074256 


EHT1 



002640 

074406 


EDT1 



I 4 


SEQ 005 0 


CZRNDAO RM80 FCTNL PT1 MACRO V04.00 28- JAN-82 16:24:51 PA6E 8-10 


ERROR POINTER ' 

rABLE 




213 

214 

215 

002642 

074476 

.•ERROR 

EFT1 

106 

EMT106 

UNEXPECTED "RMR" ERROR DURING RECALIBRATE 

002644 

071272 




002646 

074256 


EHT1 



002650 

074406 


EDT1 



002652 

074476 


EFT1 


216 

21 7 

218 



.•ERROR 

107 

"UNS" ERROR DURING RECALIBRATE - AC POWER IS LOW 

002654 

071302 


EMT107 



002656 

074256 


EHT1 



002660 

074406 


EDT1 


219 

220 
221 

002662 

074476 

.•ERROR 

EFT1 

110 

EMT110 

CANNOT ACCESS MASS8US CONTROLLER VIA UNIBUS 

002664 

071322 




002666 

074300 


EHT110 



002670 

074424 


EDT110 



002672 

074514 


EFT110 


222 

223 

224 



.•ERROR 

111 

NONEXISTENT DEVICE 

002674 

071334 


EMT111 



002676 

074304 


EHT111 



002700 

074426 


EDT111 



002702 

074516 


EFT111 


225 

226 
227 



.•ERROR 

112 

DEVICE NOT AVAILABLE 

002704 

071342 


EMT112 



002706 

074304 


EHT111 



002710 

074426 


EDT111 



002712 

074516 


EFT111 


228 

229 

230 



.•ERROR 

113 

BUS TIMEOUT-NED STATUS FAILURE 

002714 

071350 


EMT113 



002716 

000000 


0 



002720 

000000 


0 


- 

002722 

000000 


0 


231 






232 

233 



.•ERROR 

114 

UNUSED 

002724 

000000 


0 



002726 

000000 


0 



0027 30 

000000 


0 



002732 

000000 


0 



CZRNDAO RM80 FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 8-11 
ERROR POINTER TABLE 


SEQ 0051 


002734 

002736 

002740 

002742 


071364 

074256 

074406 

074476 


; ERROR 115 RMCS1 NOT INITIALIZED BY UNIBUS 

EMT115 

EHT1 

EDT1 

EFT1 


002744 

002746 

002750 

002752 


071374 

074256 

074406 

074476 


; ERROR 116 RMBA NOT INITIALIZED BY UNIBUS 

EMT116 

EHT1 

EDT1 

EFT1 


002754 

002756 

002760 

002762 


071404 

074256 

074406 

074476 


.-ERROR 117 RMCS2 NOT INITIALIZED BY UNIBUS 

EMT117 

EHT1 

EDT1 

EFT1 


002764 

002766 

002770 

002772 


071414 

074256 

074406 

074476 


.•ERROR 120 RMER1 NOT INITIALIZED BY UNIBUS 

EMT120 

EHT1 

EDT1 

EFT1 


002774 

002776 

003000 

003002 


071424 

074256 

074406 

074476 


.•ERROR 121 RMAS NOT INITIALIZED BY UNIBUS 

EMT121 

EHT1 

EDT1 

EFT1 


003004 

003006 

003010 

003012 


071434 

074256 

074406 

074476 


; ERROR 1 22 RMMR1 NOT INITIALIZED BY UNIBUS 

EMT122 

EHT1 

EDT1 

EFT1 


003014 

003016 

003020 

003022 


071444 

074256 

074406 

074476 


.•ERROR 123 RMDS NOT INITIALIZED BY UNIBUS 

EMT1 23 
EHT1 
EDT1 
EFT1 


CZRNDAO RM80 r CTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 


ERROR POINTER TABLE 


255 


256 

.•ERROR 124 

257 


003024 071454 

ENT 124 

003026 074256 

EHT1 

003030 074406 

EDT1 

003032 074476 

EFT1 


N 4 

PAGE 8-12 

RNEC2 NOT INITIALIZED BY UNIBUS 


258 

259 

260 


003034 

003036 

003040 

003042 


071464 

074256 

074406 

074476 


261 

262 

263 


003044 

003046 

003050 

003052 


071474 

074256 

074406 

074476 


264 

265 

266 


003054 

003056 

003060 

003062 


071506 

074256 

074406 

074476 


.-ERROR 125 RNNR2 NOT INITIALIZED BY UNIBUS 

ENT125 

EHT1 

EDT1 

EFT1 


.•ERROR 126 - RNCS1 NOT CLEARED BY CONTROLLER CLEAR 

i 

ENT 126 
EHT1 
EDT1 
EFT1 


.•ERROR 


127 

ENT127 

EHT1 

EDT1 

EFT1 


RMBA NOT CLEARED BY CONTROLLER CLEAR 


267 

268 
269 


003064 

003066 

003070 

003072 


270 

271 

272 


003074 

003076 

003100 

003102 


273 

274 

275 


003104 

003106 

003110 

003112 


276 


071520 

074256 

074406 

074476 


07 t 532 
074256 
074406 
074476 


071544 

074256 

074406 

074476 


.-ERROR 

130 

RMCS2 NOT CLEARED BY CONTROLLER CLEAR 


ENT130 

EHT1 

EDT1 

EFT1 


.■ERROR 

131 

RNER1 NOT CLEARED BY CONTROLLER CLEAR 


ENT131 

EHT1 

EDT1 

EFT1 


.‘ERROR 

13? 

RNAS NOT CLEARED BY CONTROLLER CLEAR 


ENT132 

EHT1 

EDT1 

EFT1 



SEQ 0052 


T 


SEO 0053 


CZRNDAO RH80 FCTNL D T1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 8-13 
ERROR POINTER TABLE 


B 5 


277 

278 


279 

280 
281 


282 

283 

284 


003114 

003116 

003120 

003122 


003124 

003126 

003130 

003132 


003134 

003136 

003140 

003142 


071556 

074256 

074406 

074476 


071570 

074256 

074406 

074476 


071602 

074256 

074406 

074476 


.-ERROR 133 RMMR1 NOT CLEARED BY CONTROLLER CLEAR 

EMT133 

EHT1 

EDT1 

EFT1 

; ERROR 134 RMDS NOT CLEARED BY CONTROLLER CLEAR 

EMT134 

EHT1 

EDT1 

EFT1 

.•ERROR 135 RMEC2 NOT CLEARED BY CONTROLLER CLEAR 

EMT135 

EHT1 

EDT1 

EFT1 


285 

286 
287 


003144 

003146 

003150 

003152 


071614 

074256 

074406 

074476 


288 

289 

290 

003154 071626 
003156 074256 
003160 074406 
003162 074476 


.•ERROR 136 RMMR2 NOT CLEARED BY CONTROLLER CLEAR 

EMT136 

EHT1 

EDT1 

EFT1 


.•ERROR 137 RMCS1 NOT CLEARED BY ERROR CLEAR 

EMT137 

EHT1 

EDT1 

EFT1 


291 

292 

293 


003164 

003166 

003170 

003172 


294 

295 

296 


003174 

003176 

003200 

00320? 


071636 

074256 

074406 

074476 


071646 

074256 

074406 

074476 


297 

298 


.•ERROR 140 RMCS2 NOT CLEARED BY ERROR CLEAR 

EMT140 

EHT1 

EDT1 

EFT1 


.•ERROR 141 RMCS1 NOT CLEARED BY DRIVE CLEAR 

EMT141 

EHT1 

EDT1 

EFT1 


.•ERROR 142 RMDS NOT CLEARED BY DRIVE CLEAR 



C 5 

CZRNDAO RM80 FCTNL PT1 MACRO V04.0G 28- JAN-82 16:24:51 PAGE 8-14 SEO 005^ 


ERROR POINTER 

TABLE 





299 








003204 

071656 


ENT 142 




003206 

074256 


EHT1 




003210 

074406 


EDT1 




003212 

074476 


EFT1 



300 







301 



; c PROR 

143 

RNER1 NOT CLEARED BY DRIVE 

CLEAR 

302 








003214 

071666 


ENT 143 




003216 

074256 


EHT1 




003220 

074406 


EDT1 




003222 

074476 


EFT1 



303 







304 



.'ERROR 

144 

RNAS NOT CLEARED BY DRIVE CLEAR 

305 








003224 

071676 


ENT144 




003226 

074256 


EHT1 




003230 

074406 


EDT1 




003232 

074476 


EFT1 



306 







307 



.-ERROR 

145 

RNMR1 NOT CLEARED BY DRIVE 

: CLEAR 

308 








003234 

071706 


ENT145 




003236 

074256 


EHT1 




003240 

074406 


EDT1 




003242 

074476 


EFT1 



309 







310 



; ERROR 

146 

RNNR2 NOT CLEARED BY DRIVE 

CLEAR 

311 








003244 

071716 


ENT146 




003246 

074256 


EHT1 




003250 

074406 


EDT1 




003252 

074476 


EFT1 



312 







313 



.'ERROR 

147 

RNER2 NOT CLEARED BY DRIVE 

CLEAR 

314 








003254 

071726 


ENT147 




003256 

074256 


EHT1 




003260 

074406 


EDT1 




003262 

074476 


EFT1 



315 







316 



; ERROR 

150 

RNEC2 NOT CLEARED BY DRIVE 

CLEAR 

317 








003264 

071736 


ENT150 




003266 

07425b 


EHT1 




003270 

074406 


EDT1 




003272 

074476 


EFT1 



318 







319 



.-ERROR 

151 

NEDIUN NOT ON LINE 


320 








D 5 

CZRNDAO RM80 FCTNL PT1 MACRO V04.00 28- JAN-82 16:24:51 PA6E 8-15 


ERROR POINTER 

TABLE 





003274 

071746 


EMT151 



003276 

074256 


EHT1 



C03300 

074406 


E0T1 



003302 

074476 


EFT1 


321 






322 



.•ERROR 

152 

DRIVE FAULT 

323 







003304 

071760 


EMT152 



003306 

074256 


EHT1 



003310 

074406 


EDT1 



003312 

074476 


EFT1 


324 






325 



.•ERROR 

153 

UNSAFE SHOULD BE SET BECAUSE DVC IS SET 

326 







003314 

071772 


EMT153 



003316 

074256 


EHT1 



003320 

074406 


EDT1 



003322 

074476 


EFT1 


327 






328 



.-ERROR 

154 

UNSAFE SHOULD NOT BE SET. AC IS LOU 

329 







003324 

072010 


ENT 154 



003326 

074256 


EHT1 



003330 

074406 


E0T1 



003332 

074476 


EFT1 


330 






331 



; ERROR 

155 

VOLUME VALID NOT SET BY PACK ACK 

332 







003334 

072026 


EMT155 



003336 

074256 


EHT1 



003340 

074406 


E0T1 



003342 

074476 


EFT1 


333 






334 



.ERROR 

156 

OFFSET MODE NOT SET BY OFFSET COMMAND 

335 





/ 


003344 

072040 


EMT156 



003346 

074256 


EHT1 



003350 

074406 


EDT1 



003352 

074476 


EFT1 


336 






337 



; ERROR 

157 

OFFSET MODE NOT RESET BY RTC COMMAND 

338 







003354 

072052 


EMT157 



003356 

074256 


EHT1 



003360 

074406 


EDT1 



003362 

0744 76 


EFT1 


339 






340 



; ERROR 

160 

RMOF NOT RESET BY RIP COMMAND 

341 







003364 

072064 


EMT160 



SEQ 0055 


SEO 0056 


CZRNDAQ RM80 FCTNl PT1 MACRO V04.00 
ERROR POINTER TABLE 

003366 074256 
003370 074406 
003372 074476 


342 

343 

344 


003374 072074 
003376 074256 
003400 074406 
003402 074476 


345 

346 

347 


003404 

003406 

003410 

003412 


348 

349 

350 

351 


003414 

003416 

003420 

003422 


352 

353 

354 


003424 

003426 

003430 

003432 


355 

356 

357 


003434 

003436 

003440 

003442 


358 

359 

360 


003444 

003446 

003450 

003452 


361 

8 $ 


072106 

074256 

074406 

074476 


074052 

074344 

074442 

074532 


072130 

074256 

074406 

074476 


072136 

074256 

074406 

074476 


072144 

074256 

074406 

074476 


003454 072152 


28-JAN-82 16:24:51 PA6E 8™16 


EHT1 

EDT1 

EFT1 


E 5 


; ERROR 161 RMDA NOT RESET BY RIP COMMAND 

EMT161 

EHT1 

EDT1 

EFT1 

.•ERROR 162 RMDC NOT RESET BY RIP COMMAND 

EMT162 

EHT1 

EDT1 

EFT1 


.•ERROR 163 


DATA WAS ECC CORRECTED BUT DOES NOT COMPARE WITH 
WRITE BUFFER 


EMT336 

EHT336 

EDT336 

EFT336 


.•ERROR 164 


OPJ SHOULD NOT BE SET 


EMT164 

EHT1 

EDT1 

EFT1 


; ERROR 165 


I VC SHOULD NOT BE SET 


EMT165 

EHT1 

EDT1 

EFT1 


.ERROR 166 IAE SHOULD NOT BE SET 

EMT166 

EHT1 

EDT1 

EF71 


.•ERROR 167 NEM SHOULD NOT BE SET 
EMT167 



(7RNDA0 RM80 FCTNL PT1 MACRO V04.00 
ERROR POINTER TABLE 

005456 074256 
003460 074406 
003462 074476 


2S-JAN-82 16:24:51 PAGE 8-'7 


SEO 005? 


003464 

003466 

003470 

003472 


072160 

074256 

074406 

074476 


; ERROR 170 INCORRECT 'MOL" STATUS OURING DIAGNOSTIC MODE 

EMT170 

EHT1 

EDT1 

EFT1 


003474 

003476 

003500 

003502 


072172 

074256 

074406 

074476 


.•ERROR 171 


EMT171 

EHT1 

EDT1 

EFT1 


"ATA" NOT SET DURING RETURN TO CENTERLINE 


003504 

003506 

003510 

003512 


072202 

074256 

074406 

074476 


.-ERROR 172 "ATA" NOT SET BY OFFSET COMMAND 

EMT1 72 
EHT1 
EDT1 
EFT1 


003514 

003516 

003520 

003522 


072212 

074256 

074406 

074476 


.•ERROR 173 RMER2 NOT INITIALIZED BY UNIBUS INIT 

EMT173 

EHT1 

EDT1 

EFT1 


003524 

003526 

003530 

003532 


072222 

074256 

074406 

074476 


.•ERROR 174 RMER2 NOT INITIALIZED BY CONTROLLER CLEAR 

EMT174 

EHT1 

EDT1 

EFT1 


003534 

003536 

003540 

003542 


072234 

074256 

074406 

074476 


; ERROR 175 SELECTED DEVICE IS IN WRITE PROTECT 

EMT175 

EHT1 

EDT1 

EFT1 


003544 

003546 


072242 

074256 


.•ERROR 176 CANNOT SET DIAGNOSTIC NODE 

EMT176 

EHT1 


C2KN0A0 RM80 F C TNL PT1 MACRO 
ERROR POINTER TABLE 


003550 

074406 

003552 

074476 

385 


386 


387 


003554 

000000 

003556 

000000 

003560 

000000 

003562 

000000 

388 


389 

TQA 


003564 

072252 

003566 

074256 

003570 

074406 

003572 

074476 


391 

392 

393 


003574 

003576 

003600 

003602 


394 

395 

396 


003604 

003606 

003610 

003612 


397 

398 

399 


003614 

003616 

003620 

003622 


400 

401 

402 


003624 

003626 

003630 

003632 


403 

404 

405 


003634 

003636 

003640 


072264 

074256 

074406 

074476 


072276 

074256 

074406 

074476 


072310 

074256 

074406 

074476 


072322 

074256 

074406 

074476 


072340 

074256 

074406 


V04.00 28-JAN-82 16:24:51 PA6E 8-18 


EDT1 

EFT1 


G 5 


SEQ 005 b 


.-ERROR 177 —RESERVED FOR POWER MONITOR BIT FAILURE— 

0 

0 

0 

0 

.•ERROR 200 INCORRECT "PIP” STATUS DURING DIAGNOSTIC MODE 

EMT200 

EHT1 

EDT1 

EFT1 

.-ERROR 201 INCORRECT "URL** STATUS DURING DIAGNOSTIC MODE 

EMT201 

EHT1 

EDT1 

EFT1 

.•ERROR 20 2 INCORRECT "SKI" STATUS DURING DIAGNOSTIC MODE 

EMT202 

EHT1 

EDT1 

EFT1 

.•ERROR 203 INCORRECT '’DVC" STATUS DURING DIAGNOSTIC MODE 

EMT203 

EHT1 

EDT1 

EFT1 

.•ERROR 204 *VV" WAS NOT RESET BY MAINTENANCE UNIT READY 

EMT204 

EHT1 

EDT1 

EFT1 

.ERROR 205 SELECTED DEVICE HAS A PERSISTENT "SKI" ERROR 

EMT205 

EHT1 

EDT1 



H S 


SEQ 0059 


CZRNDAO RM80 FCTNl PT1 MACRO V04.00 28- JAN-82 16:24:51 PA6E 8-19 
ERROR POINTER TABLE 

003642 074476 EFT1 


406 
AO 7 
408 


003644 

003646 

003650 

003652 


072350 

074256 

074406 

074476 


; ERROR 


2 06 

EMT206 

EHT1 

EDT1 

EFT1 


"LBC" DID NOT SET DURING DIAGNOSTIC MODE 


409 

410 

411 

003654 

003656 

003660 

003662 


412 

413 

414 

003664 

003666 

003670 

003672 


415 

416 

417 


003674 

003676 

003700 

003702 


418 

419 

420 

003704 

003706 

003710 

003712 


421 

422 

423 


003714 

003716 

003720 

003722 


072360 

074256 

074406 

074476 


072372 

074256 

074406 

074476 


072400 

074256 

074406 

074476 


072414 

074256 

074406 

074476 


072430 

074256 

074406 

074476 


.ERROR 207 UNEXPECTED LOSS OF *M0L" - MEDIUM IS OFF LINE 

EMT207 

EHT1 

EDT1 

EFT1 


.-ERROR 210 UNEXPECTED LOSS OF VOLUME VALID - "W" = 0 

EMT210 

EHT1 

EDT1 

EFT1 


.•ERROR 211 UNEXPECTED MECHANICAL MOTION - *T>IP" = 1 

EMT211 

EHT1 

EDT1 

EFT1 


.•ERROR 212 UNEXPECTED DEVICE FAULT - “DVC M = 1 

EMT212 

EHT1 

EDT1 

EFT1 


.•ERROR 213 UNEXPECTED SEEK INCOMPLETE ERROR - "SKI” = 1 

EMT213 

EHT1 

EDT1 

EFT1 


424 

425 

426 


C03724 

003726 

003730 

003732 


072440 

074270 

074416 

074506 


.•ERROR 


214 

EMT214 

EHT2 

EDT2 

EFT2 


DRIVE EXECUTED A RECALIBRATE WITH ERROR SET 


1 



CZRNDAO RH80 FCTNL PT1 NACRO V04.00 28- JAN-82 16:24:51 PAGE 8-20 
ERROR POINTER TABLE 


I 5 


SEO 0060 


427 

428 

*. 2 ? 


003734 

003736 

003740 

003742 


072460 

074270 

074416 

074506 


430 

431 


436 

437 

438 


003764 

003766 

003770 

003772 


439 

440 

441 


003774 

003776 

004000 

004002 


442 

443 

444 


004004 

004006 

004010 

004012 


445 

446 

447 


004014 

004016 

004020 

004022 


072512 

074256 

074406 

074476 


072522 

074256 

074406 

074476 


072532 

074256 

074406 

074476 


072542 

074320 

074432 

074522 


.-ERROR 215 DRIVE DID NOT DETECT "IVC" ERROR DURING RECALIBRATE 

ENT215 

EHT2 

EDT2 

EFT2 

.-ERROR 216 INCORRECT "IVC" STATUS 


432 

003744 

072472 

ENT216 


003746 

074256 

EMT1 


003750 

074406 

EDT1 


003752 

074476 

EFT1 

433 

434 

435 

003754 

072502 

.-ERROR 217 

ENT217 


003756 

074256 

EHT1 


003760 

074406 

EDT1 


003762 

074476 

EFT1 


.-ERROR 220 


INCORRECT ’VLE" STATUS 


ENT220 

EHT1 

EDT1 

EFT1 

; ERROR 221 INCORRECT ‘10PI" STATUS 

ENT221 

EHT1 

EDT1 

EFT1 

; ERROR 222 RH80 DID NOT DETECT RMR ERROR 

ENT 222 
EHT1 
EDT1 
EFT1 

.-ERROR 223 RN80 DID NOT DETECT PARITY ERROR ON MASS8US CONTROL BUS 

ENT223 
EHT223 
EDT223 
EF T 223 
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SEQ 0061 


004024 

004026 

004030 

004032 


004034 

004036 

004040 

004042 


072552 

074256 

074406 

074476 


072566 

074256 

074406 

0*4476 


.-ERROR 224 SSE NOT DETECTED DURING DATA TRANSFER 

ENT 224 
EHT1 
EDT1 
EFT1 

.•ERROR 225 "SSEI" NOT RESET BY END OF TRACK DURING DATA TRANSFER 

ENT225 

EHT1 

EDT1 

EFT1 


004044 

004046 

004050 

004052 


004054 

004056 

004060 

004062 


072606 

074256 

074406 

074476 


072616 

074256 

074406 

074476 


.•ERROR 226 "SSEr SHOULD BE SET AFTER DATA TRANSFER 

ENT226 

EHT1 

EDT1 

EFT1 

; ERROR 227 SSE WAS DETECTED W/ SSEI SET 

EHT227 

EHT1 

EDT1 

EFT1 


004064 

004066 

004070 

004072 


004074 

004076 

004100 

004102 


072632 

074310 

074426 

074516 


072636 

074310 

074426 

074516 


.•ERROR 230 WRONG UNIT SELECTED 

ENT230 

EHT112 

EDT111 

EFT111 

.•ERROR 231 INCORRECT *10PE" STATUS 

ENT231 

EHT112 

EDT111 

EFT111 


004104 

004106 

004110 

004112 


072646 

000000 

000000 

000000 


.•ERROR 232 UNUSED 

EMT232 

0 

0 

0 


469 
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K 5 


SEQ 0062 



004114 

004116 

004120 

004122 


472 

475 

474 


004124 

004126 

004130 

004132 


475 

476 

477 


004 13* 
004136 
004140 
004142 


478 

479 

480 


004144 

004146 

004150 

004152 


481 

482 

483 


004154 

004156 

004160 

004162 


484 

485 

486 


004164 

004166 

004170 

004172 


487 

488 

489 


004174 

004176 

004200 

004202 


490 

491 


072650 

000000 

000000 

000000 


000000 

000000 

000000 

000000 


000000 

000000 

000000 

000000 


000000 

000000 

000000 

000000 


000000 

000000 

000000 

000000 


000000 

000000 

000000 

000000 


000000 

000000 

000000 

000000 


.ERROR 233 

EMT233 

0 

0 

0 


.ERROR 234 

0 

0 

0 

0 


.•ERROR 235 

0 

0 

0 

0 


.•ERROR 236 

0 

0 

0 

0 


; ERROR 237 

0 

0 

0 

0 


; ERROR 240 

0 

0 

0 

0 


.•ERROR 241 

0 

0 

0 

0 


; ERROR 242 


UNUSED 


UNUSED 


UNUSED 


UNUSED 


UNUSED 


UNUSED 


UNUSED 


UNUSED 







L 5 
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SEO 0063 

ERROR POINTER 

TABLE 





492 






004204 

000000 


0 



004206 

000000 


0 



004210 

000000 


0 



004212 

000000 


0 



493 

494 


.-ERROR 

243 

UNUSED 


495 






004214 

000000 


0 



004216 

000000 


0 



004220 

000000 


0 



004222 

000000 


0 



496 

497 


; ERROR 

244 

UNUSED 


498 






004224 

000000 


0 



004226 

000000 


0 



004230 

000000 


0 



004232 

000000 


0 



499 





1 

500 


.’ERROR 

245 

UNUSED 


501 






004234 

000000 


0 



004236 

000000 


0 



004240 

000000 


0 



004242 

000000 


0 



50 2 

503 


; ERROR 

246 

M ATA M NOT RESET BY GO WHEN **RR" = 0 


504 






004244 

072676 


EMT246 



004246 

074256 


EHT1 



004250 

074406 


EDT1 



004252 

074476 


EFT1 



505 

506 

507 

004254 


.■ERROR 

247 

"ATA" NOT RESET BY WRITING RMAS 

| 

072706 


EMT247 



004256 

074256 


EHT1 



004260 

074406 


EDT1 



004262 

074476 


EFT1 



508 

509 

510 

004264 


; ERROR 

250 

”ATA*' WAS RESET BY GO WHEN "ERR" = 1 


072720 


EMT250 



004266 

074256 


EHT1 



004270 

074406 


EDT1 



004272 

074476 


EFT1 



511 

512 


; ERROR 

251 

PROGRAM INTERRUPT WAS NOT GENERATED 


513 







CZRNDAO RM80 FCTNL PT1 MACRO V04 
ERROR POINTER TABLE 

004274 072734 
004276 074270 
004300 074416 
004302 074506 
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EMT251 

EHT2 

EDT2 

EFT2 


SEO 0064 


004304 

004306 

004310 

004312 


072742 

074270 

074416 

074506 


.‘ERROR 252 PROGRAM INTERRUPT SHOULD NOT HAVE BEEN GENERATED 

EMT252 
EHT 2 
EDT2 
EFT2 


004314 

004316 

004320 

004322 


072750 

074256 

074406 

074476 


.■ERROR 2 53 OFFSET MODE WAS NOT RESET BY WRITING RMDC 

EMT253 

EHT1 

EDT1 

EFT1 


004324 

004326 

004330 

004332 


072766 

074256 

074406 

074476 


; ERROR 254 INCORRECT "ILF" STATUS 

EMT254 

EHT1 

EDT1 

EFT1 


004334 

004336 

004340 

004342 


072776 

074256 

074406 

074476 


; ERROR 255 INCORRECT "ATA" STATUS 

EMT255 

EHT1 

EDT1 

EFT1 


004344 

004346 

004350 

004352 


073006 

074332 

074432 

074522 


.•ERROR 256 INCORRECT ,, ILR" STATUS 

EMT256 

EHT256 

EDT223 

EFT223 


004354 

004356 

004360 

004362 


073016 

074256 

074406 

074476 


.‘ERROR 257 INVALID IAE STATUS DURING SEARCH COMMAND 

EMT257 

EHT1 

EDT1 

EFT1 


004364 073030 


.‘ERROR 2 60 

EMT260 


"IVC" WAS NOT DETECTED DURING SEARCH COMMAND 


i 





N 5 
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,EQ 0065 

ERROR POINTER 

TABLE 






004366 

074256 


EHT1 




004370 

074406 


EDT1 




004372 

074476 


EFT1 



535 







536 



;ERROR 

261 

DRIVE EXECUTED SEARCH WITH ERROR SET 



004374 

073042 


EMT261 




004376 

074256 


EHT1 




004400 

074406 


EDT1 




004402 

074476 


EFT1 



538 







539 



; ERROR 

26 2 

"L8C" ERROR NOT SET DURING DIAGNOSTIC MODE 


540 








004404 

073062 


EMT262 




004406 

074256 


EHT1 




004410 

074406 


EDT1 




004412 

074476 


EFT1 



541 







542 



.•ERROR 

263 

"SKI" ERROR DURING SEARCH COMMAND 


543 








004414 

073072 


EMT263 




004416 

074256 


EHT1 




004420 

074406 


EDT1 




004422 

074476 


EFT1 



544 







545 



.‘ERROR 

264 

"IVC" ERROR DURING SEARCH - LOST VOLUME VALID 


546 








004424 

073102 


EMT264 




004426 

074256 


EHT1 




004430 

074406 


EDT1 




004432 

074476 


EFT1 



547 







548 



; ERROR 

265 

ERRONEOUS IVC ERROR DURING SEARCH - VOLUME IS. VALID 


549 








004434 

073122 


EMT265 




004436 

074256 


EHT1 




004440 

074406 


EDT1 




004442 

074476 


EFT1 



550 







551 



.'ERROR 

266 

DEVICE FAULT (DVC) DURING SEARCH 


552 








004444 

073142 


EMT266 




004446 

074256 


EHT1 




004450 

074406 


EDT1 




004452 

074476 


EFT1 



553 







554 



.‘ERROR 

267 

SKI SHOULD HAVE BEEN SET BECAUSE CYLINDER 


555 



• 


, ADDRESS IS TOO LARGE 


556 








004454 

073154 


EMT267 

i 



B 6 


SEQ 00 6 
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ERROR POINTER TABLE 



004456 

074256 


FHT1 

004460 

074406 


EDT1 

004462 

074476 


EFT1 

557 

558 

559 

004464 


; ERROR 

270 

073172 


EMT270 

004466 

074256 


EHT1 

004470 

074406 


EDT1 

004472 

074476 


EFT1 

560 

561 


; ERROR 

271 

562 

563 

004474 

073206 

• 

EMT271 

004476 

074256 


EHT1 

004500 

074406 


EDT1 

004502 

074476 


EFT1 

564 

565 

566 

004504 


.■ERROR 

272 

073224 


EMT272 

004506 

074256 


EHT1 

004510 

074406 


EDT1 

004512 

074476 


EFT1 

567 

568 

569 

004514 


.-ERROR 

273 

073242 


EMT273 

004516 

074256 


EHT1 

0045 20 

074406 


EDT1 

004522 

074476 


EFT1 

570 

571 


.•ERROR 

274 

572 

573 

004524 

073260 

* 

EMT274 

004526 

074256 


EHT1 

004530 

074406 


EDT1 

004532 

074476 


EFT1 

574 

575 


.•ERROR 

275 

576 

5 77 

004534 

073276 

0 

EMT275 

004536 

074256 


EHT1 

004540 

074406 


EDT1 

004542 

074476 


EFT1 

578 

579 


.•ERROR 

276 


OPi ERROR DURING SEARCH BECAUSE MOL = 0 


OPi ERROR DURING SEARCH BECAUSE ON CYLINDER 
DIDN'T DROP 


LOST MOL DURING SEARCH, OPI IS NOT SET 


PIP STIL SET AFTER SEARCH 


PARITY ERROR OCCURRED WHILE WRITING REMOTE 
REGISTERS BUT MXF DID NOT SET 


MXF ERROR - COMPOSITE ERROR OCCURRED BEFORE DATA 
COMMAND STARTED 


'WI" ERKOR DURING DATA TRANSFER BECAUSE ’MOL” WAS 
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SEQ 0067 


004544 

004546 

004550 

004552 


073310 

074256 

074406 

074476 


EMT276 

EHT1 

EDT1 

EFT1 


004554 

004556 

004560 

004562 


073324 

074256 

074406 

074476 


ERROR 277 ‘10PI" ERROR DURING DATA TRANSFER BECAUSE 1) ON 

CYLINDER DIDN'T DROP OR 2) SEARCH TIMED OUT OR 
3) RUN TIMED OUT 

EMT277 

EHT1 

EDT1 

EFT1 


004564 

004566 

004570 

004572 


073342 

074256 

074406 

074476 


; ERROR 300 "I VC" ERROR DURING DATA TRANSFER BECAUSE VOLUME 
; WAS NOT VALID 

EMT300 

EHT1 

EDT1 

EFT1 


004574 

004576 

004600 

004602 


073362 

074256 

074406 

074476 


; ERROR 301 ERRONEOUS "I VC" ERROR DURING DATA TRANSFER 
; IS VALID 

EMT301 

EHT1 

EDT1 

EFT1 


- VOLUME 


004604 

004606 

004610 

004612 


073404 

074256 

074406 

074476 


; ERROR 302 


’ILR" ERROR DURING DATA TRANSFER 


EMT302 

EHT1 

EDT1 

EFT1 


004614 073416 
004616 074256 
004620 074406 
004622 074476 


; ERROR 303 


’ILF" ERROR DURING DATA TRANSFER 


EMT303 

EHT1 

EDT1 

EFT1 


.-ERROR 304 "RMR" ERROR DURING DATA TRANSFER 


004624 073430 
004626 074256 
004630 074406 


EMT304 

EHT1 

EDT1 


CZRNDAO RM80 FCTNL PT 1 MACRO 
ERROR POINTER TABLE 
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D 6 
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SEQ 0068 


004632 

074476 


EFT1 



604 

605 

606 

004634 

004636 

004640 

004642 

073442 

074256 

074406 

074476 

.-ERROR 

305 

EMT305 

EHT1 

EDT1 

EFT1 

INCORRECT "IAE" STATUS DURING DATA TRANSFER 


607 

608 
609 



.•ERROR 

306 

"SKI" ERROR DURING DATA TRANSFER 


004644 

004646 

004650 

004652 

073454 

074256 

074406 

074476 


EMT306 

EHT1 

EDT1 

EFT1 



610 

611 

612 

004654 

004656 

004660 

004662 

073464 

074256 

074406 

074476 

.•ERROR 

307 

EMT307 

EHT1 

EDT1 

EFT1 

DRIVE DID NOT DETECT SKI ERROR DUE TO CYLINDER 


613 

614 

615 

004664 

004666 

004670 

004672 

073504 

074256 

074406 

074476 

.•ERROR 

310 

EMT310 

EMT1 

E0T1 

EFT1 

DEVICE FAULT DURING DATA TRANSFER 

! 

616 

617 

618 



.•ERROR 

311 

LOSS OF BIT CLOCK DURING DATA TRANSFER 


004674 

004676 

004700 

004702 

073516 

074256 

074406 

074476 


EMT311 

EHT1 

EDT1 

EFT1 



619 

620 
621 

004704 

004706 

004710 

004712 

073530 

074256 

074406 

074476 

.•ERROR 

312 

EMT312 

EHT1 

EDT1 

EFT1 

LOSS OF SYSTEM CLOCK DURING DATA TRANSFER 


622 

623 

624 



.-ERROR 

313 

UNSAFE ERROR DURING DATA TRANSFER (DVC = 0) 


004714 

004716 

004720 

004722 

073542 

074256 

074406 

0744/6 


EMT313 

EHT1 

EDT1 

EFT1 
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E 6 


SEQ 0069 


; ERROR 314 DRIVE TIMING ERROR DURING DATA TRANSFER 


004724 

004726 

004730 

004732 


073562 

074256 

074406 

074476 


EMT314 

EHT1 

EDT1 

EFT1 


004734 

004736 

004740 

004742 


073574 

074256 

074406 

074476 


; ERROR 315 WRITE LOCK ERROR 

EMT315 

EHT1 

EDT1 

EFT1 


004744 

004746 

004750 

004752 


073606 

074256 

074406 

074476 


; ERROR 316 ERRONEOUS WRITE LOCK ERROR 

EMT316 

EHT1 

EDT1 

EFT1 


004754 

004756 

004760 

004762 


073620 

074256 

074406 

074476 


; ERROR 317 HEADER CRC ERROR DURING DATA TRANSFER 

EMT317 

EHT1 

EDT1 

EFT1 


004764 

004766 

004770 

004772 


073630 

074256 

074406 

074476 


; ERROR 320 FORMAT ERROR DURING DATA TRANSFER 

EMT320 

EHT1 

EDT1 

EFT1 


004774 

004776 

005000 

005002 


073640 

074256 

074406 

074476 


; ERROR 321 HEADER COMPARE ERROR DURING DATA TRANSFER 

EMT321 

EHT1 

EDT1 

EFT1 


005004 

005006 

005010 

005012 


073650 

074256 

074406 

074476 


; ERROR 3 22 HEADER ERRORS SHOULD NOT BE SET 

EMT322 

EHT1 

EDT1 

EFT1 


F 6 

CZRNDAO RM80 FCTNL PT1 MACRO V04.00 28- JAN-82 16:24:51 PA6E 8-30 SEQ 0070 


ERROR POINTER 

TABLE 




646 





647 


; ERROR 

323 

DATA CHECK ERROR DURING DATA TRANSFER 

648 





005014 

073656 


EMT323 


005016 

074256 


EHT1 


005020 

074406 


EDT1 


005022 

074476 


EFT1 


649 





650 


.-ERROR 

324 

CORRECTABLE DATA CHECK ERROR DURING DATA TRANSFER 

651 





005024 

073666 


EMT324 


005026 

074256 


EHT1 


005030 

074406 


EDT1 


005032 

074476 


EFT1 


652 





653 


.-ERROR 

325 

UNCORRECTABLE DATA CHECK ERROR DURING DATA TRANSFER 

654 





005034 

073700 


EMT325 


005036 

074256 


EHT1 


005040 

074406 


EDT1 


005042 

074476 


EFT1 


655 





656 


.-ERROR 

326 

DATA PARITY ERROR DURING READ COWHAND 

657 





005044 

073712 


EMT326 


005046 

074256 


EHT1 


005050 

074406 


EDT1 


005052 

074476 


EFT1 


658 





659 


.'ERROR 

327 

OFFSET NODE NOT RESET BY WRITE COMMAND 

660 





005054 

073730 


EMT327 


005056 

074256 


EHT1 


005060 

074406 


EDT1 


005062 

074476 


EFT1 


661 





66 2 


; ERROR 

330 

DATA PARITY ERROR DURING WRITE COMMAND 

663 





005064 

073742 


EMT330 


005066 

074256 


EHT1 


005070 

074406 


EDT1 


005072 

074476 


EFT1 


664 





665 


.•ERROR 

331 

WRITE CLOCK FALURE DURING WRITE COMMAND 

666 





005074 

073752 


EMT331 


005076 

074256 


EHT1 


005100 

074406 


EDT1 


005102 

074476 


EFT1 



667 



G 6 
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ERROR POINTER 

668 

669 

005104 

TABLE 

.ERROR 

33 2 

DATA LATE ERROR DURING DATA TRANSFER 


073764 


EHT332 



005106 

074256 


EHT1 



005110 

074406 


EDT1 



005112 

074476 


EFT1 



670 






671 


; ERROR 

333 

PIP STIL SET AFTER DATA TRANSFER - SKI * 

0 

672 






005114 

073776 


EHT333 



C05116 

074256 


EHT1 



005120 

074406 


EDT1 



005122 

074476 


EFT1 



673 






674 


.•ERROR 

334 

LOST MOL DURING DATA TRANSFER - OPI = 0 


675 






005124 

074014 


EHT334 



005126 

074256 


EHT1 



005130 

074406 


EDT1 



005132 

074476 


EFT1 



676 



335 



677 


.'ERROR 

LOST VOLUME VALID DURING DATA TRANSFER - 

I VC 

678 






005134 

074032 


EHT335 



005136 

074256 


EHT1 



005140 

074406 


EDT1 



005142 

074476 


EFT1 



679 



336 



680 


.•ERROR 

DATA READ DOES NOT COMPARE WITH DATA WRITTEN 

681 






005144 

074052 


EMT336 



005146 

074344 


EHT336 



005150 

074442 


EDT336 



005152 

074532 


EFT336 



682 






683 


.•ERROR 

337 

WRITE CHECK ERROR NOT DETECTED 


684 






005154 

074062 


EHT337 



005156 

074356 


EHT337 



005160 

074452 


EDT337 



005162 

074542 


EFT337 



685 






686 


.■ERROR 

340 

WRITE CHECK ERROR AT UNEXPECTED ADDRESS 


687 






005164 

074072 


EHT340 



005166 

074344 


EHT336 



005170 

074442 


EDT336 



005172 

074532 


EFT336 



688 






689 


.'ERROR 

341 

INCORRECT DATA DURING WRITE CHECK ERROR 




8-32 


H 6 


SEQ 0072 


••IVC” ERROR NOT DETECTED DURING DATA TRANSFER 


’TER" NOT DETECTED DURING DATA TRANSFER 


'XCE" NOT DETECTED DURING DATA TRANSFER 


*BSE“ NOT DETECTED DURING DATA TRANSFER 


HEADER ERROR WAS DETECTED U/ HCI SET 


DATA TRANSFER NOT ABORTED W/ COMP ERROR SET 


LOST VOLUME VALID DURING SEARCH - "IVC" = 0 



I 6 


SEQ 0073 
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ERROR POINTER TABLE 

005264 074206 

005266 074256 

005270 074406 

005272 074476 


EMT350 

EHT1 

EDT1 

EFT1 


712 

713 

714 

005274 

005276 

005300 

005302 

074224 

074256 

074406 

074476 

.-ERROR 

351 

EMT351 

EHT1 

EDT1 

EFT1 

"ATA“ DID NOT SET DURING SEARCH 

715 

716 

717 

005304 

005306 

005310 

005312 

074234 

000000 

000000 

000000 

; ERROR 

352 

EMT352 

0 

0 

0 

PROGRAM TIMEOUT WHILE TESTING RMLA 

718 

719 

720 

005314 

005316 

005320 

005322 

074240 

074402 

074474 

074562 

.-ERROR 

353 

EMT353 

EHT353 

EDT353 

EFT353 

LOOK AHEAD TEST FAILS 

721 

722 

723 

005324 

005326 

005330 

005332 

074250 

074256 

074406 

074476 

.•ERROR 

354 

EMT354 

EHT1 

EDT1 

EFT1 

BSE SHOULD NOT BE SET 

724 

725 



.-PUT ERROR TABLE HERE 
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ERROR TABLE USAGE 

1 .SBTTL ERROR TABLE USAGE 


SEQ 0074 


THE ERROR TABLE ABOVE CONSISTS OF FOUR WORD ENTRIES FOR EACH ERROR 
NUMBER, I.E., 

ENT - ERROR MESSAGE TABLE ADDRESS 
EHT - ERROR HEADER TABLE ADDRESS 
EDT - ERROR DATA TABLE ADDRESS 
EFT - ERROR FORMAT TABLE ADDRESS 

THE EMT ENTRY IS THE ADDRESS OF THE TABLE OF ERROR MESSAGE STRINGS 
FOR THE PARTICULAR ERROR. EACH ERROR MESSAGE TABLE LISTS THE ADDRESS 
OF ONE OR MORE ERROR MESSAGE STRINGS WHICH ARE TO BE FORMATTED AND 
TYPED BY THE ERROR TYPE SUBROUTINE. IF THE EMT ENTRY IS ZERO. THERE IS 
NO MESSAGE TO BE TYPED FOR THE ERROR. 

SIMILARLY, THE EHT. EDT. AND EFT ENTRIES ARE ADDRESSES OF TABLES 
OF HEADER. DATA AND FORMAT INFORMATION FOR A GIVEN ERROR. EACH ENTRY 
IN THE ERROR HEADER TABLE MAY OR MAY NOT HAVE AN ASSOCIATED LINE OF 
DATA, HOWEVER, EACH DATA LINE MUST HAVE AN ASSOCIATED FORMAT AND 
HEADER. THAT IS, A HEADER LINE MAY BE PRINTED WITHOUT ANY DATA, 

BUT A DATA LINE IS NOT PRINTED WITHOUT A HEADER, AND EACH DATA LINE 
MUST ALSO HAVE A FORMAT. 

IN SUMMARY, 

EACH NONZERO ENTRY IS THE ADDRESS OF A TABLE, 

EACH TABLE IS A LIST OF ADDRESSES WHICH DEFINES THE LOCATIONS 
OF MESSAGE STRINGS, HEADERS, DATA OR FORMAT. 
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ERROR TABLE USAGE 


K 6 


SEO 0075 


1 



.THIS ROUTINE 

HANDLES UNEXPECTED 

TIMEOUTS 

c 

3 

005334 

011600 

BADTMO: MOV 

(SP).RO 

SAVE PC WHERE THE TIME OUT OCCURED 

4 

005336 

005740 

TST 

-<ro5 

ADJUST PC -2 

5 

005340 

022626 

CMP 

<SP)*.(SP)+ 

RESTORE STACK POINTER 

6 

0G5342 

1044C1 C05350 

TYPE 

,65$ 

.'TYPE ASCIZ STRING 


005346 

000417 

BR 

64$ 

.'GET OVER THE ASCIZ 


005406 

7 005406 

8 005410 

9 005412 

10 

11 005414 

12 

13 

14 

15 005416 

16 005424 

17 

18 005426 

19 005432 

20 005434 

21 005440 

22 005442 

23 

24 

005444 

005450 

005452 

005456 

005460 

005464 

005472 

005500 

005506 

005514 

005522 

005530 

005536 

005544 

005552 

005556 

005562 

005570 

005576 


005604 

005610 

005616 

005624 

005632 

005640 


010046 

104402 

000240 

000404 


012737 

000402 

005037 

000240 

005227 

001375 

000005 


012706 

005026 

022706 

001374 

012706 

012737 

012737 

012737 

012737 

012737 

012737 

012737 

012737 

013737 

005037 

005037 

112737 

012737 

012737 


013746 

012737 

012737 

012737 

022777 

001012 


;;65S: 

64$; 


wn « » vl i v* bn mb nwvi < 

.ASCIZ <CRLF>/UNEXPECTED BUS TIMEOUT, PC*/ 


MOV 

TYP0C 

NOP 

BR 


R0,-(SP) 


START 


.S8TTL START OF PROGRAM 


177777 001326 

001326 

000000 


START1 : MOV 
BR 

START: CLR 
START2: NOP 
INC 
3NE 
RESET 


0-1.CHGADR 

START2 

CHGADR 

00 
. -4 


.•SETUP FOR TYPING OUT PC 

;PUT 'HALT(O) ' INSTRUCTION HERE IF YOU WISH 
;T0 STOP ON UNEXPECTED TIMEOUT. 

.'BRANCH TO START 


.'CHANGE RH/RM BUS ADDRESS 


;N0 CHANGE IN ADDRESS 

;TTY LOOP, WAIT FOR INCREMENT 
;0F WORD 

.'RESET THE WORLD 


.S8TTL INITIALIZE THE COMMON TAGS 


001114 

MOV 

0$CMTAG,R6 

.'.'FIRST LOCATION TO BE CLEARED 

001154 

CLR 

CR6) + 

.'.'CLEAR MEMORY LOCATION 

CMP 

0SWR.R6 

;;D0NE? 


BNE 

.-6 

.'.LOOP BACK IF NO 

001100 

MOV 

0STACK.SP 

..•SETUP THE STACK POINTER 


062072 

000340 

062762 

000340 

065766 

000340 

066074 

000340 

041350 

001206 

001210 

000001 

005570 

005576 


000004 

005644 

177570 

177570 

177777 


000020 

000022 

000030 

000032 

000034 

000036 

000024 

000026 

041342 


001131 

001122 

001124 


000004 

001154 

001156 

173314 


.-.'INITIALIZE 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CLR 
CLR 
MOVB 
MOV 
MOV 


0$SCOPE.B0IOTVEC ;;I0T VECTOR FOR SCOPE ROUTINE 
034O.B0IOTVEC+2 ; .'LEVEL 7 

0SERROR .80EMT VE C ;;EMT VECTOR FOR ERROR ROUTINE 

034O.B0ENTVEC+2 .'.'LEVEL 7 

0$TRAP,80TRAPVEC ;;TRAP VECTOR FOR TRAP CALLS 

034O,80TRAPVEC*2;LEVEL 7 

0$PWRDi , B0PWRVE C ; .'POWER FAILURE VECTOR 

0340 , B0PWRVE C +2 ; .'LEVEL 7 

IENDCT.SEOPCT ;. -SETUP END-OF -PROGRAM COUNTER 

STIMES .'.'INITIALIZE NUMBER OF ITERATIONS 

SESCAPE .’.‘CLEAR THE ESCAPE ON ERROR ADDRESS 

01,$ERMAX .‘.'ALLOW ONE ERROR PER TEST 

0. ,$LPADR ..'INITIALIZE THE LOOP ADDRESS FOR SCOPE 

0. ,$LPERR ;; SETUP THE ERROR LOOP ADDRESS 


riw» if t knn # « s#b • v» mb biw»wn bw* nvifnb * 

..SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 


.'.'EQUAL TO A "-I" 
MOV 
MOV 
MOV 
MOV 
CMP 
BNE 


SETUP FOR A 
80ERRVEC.-CSP) 
064S.&0ERRVEC 
0DSWR.SWR 
0DDISP, DISPLAY 
0-1.8SWR 
66 $ 


SOFTWARE SWITCH REGISTER. 

SAVE ERROR VECTOR 
SET UP ERROR VECTOR 
SETUP FOR A HARDWARE SW1CH REGISTER 
AND A HARDWARE DISPLAY REGISTER 
TRY TO REFERENCE HARDWARE SWR 
BRANCH IF NO TIMEOUT TRAP OCCURRED 
AND THE HARDWARE SWR IS NOT = -1 
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L 


o 


SEQ 0076 


25 

26 

27 

28 
29 


30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 


44 

45 

46 


005642 

000403 




BR 

65$ 

.•BRANCH IF NO TIMEOUT 

005644 

012716 

005652 


64$: 

NOV 

#65$. (SP) 

;SET UP FOR TRAP RETURN 

005650 

000002 




RTI 



005652 

012737 

000176 

001154 

65$: 

NOV 

fSWREG.SWR 

.■POINT TO SOFTWARE SWR 

005660 

012737 

000174 

001156 


NOV 

#01 SPRE G . D I SPLAY 


005666 

012637 

000004 


66$: 

NOV 

<SP)*.8#ERRVEC ; 

.•RESTORE ERROR VECTOR 

005672 

005037 

001230 



CLR 

SPASS 

.‘CLEAR PASS COUNT 

005676 

132737 

000200 

001243 


BIT8 

#APTSIZE,$ENVN ; 

.‘TEST USER SIZE UNDER APT 

005704 

001403 




BEQ 

67$ 

; YES. USE NON-APT SWITCH 

005706 

005714 

012737 

001244 

001154 

67$: 

NOV 

#$SWREG.SWP 

; NO. USE APT SWITCH REGISTER 





.•SETUP 

* TIMEOUT 

’ TRAP VECTOR FOR 

UNEXPECTED BUS TIMEOUTS 

005714 

012737 

005334 

000004 


MOV 

#8ADTM0,ERRVEC ; 

SETUP FOR UNEXPECTED TIMEOUT 

005722 

012737 

000300 

000006 


MOV 

#PR6,ERRVEC*2 ; 

LEVEL 6 





.S8TTL 

TYPE PROGRAM NAME 






;;TYPE 

THE NAME 

OF THE PROGRAM 15 

FIRST PASS 

005730 

005227 

177777 



INC 

#-1 

.•FIRST TIME? 

005734 

001033 




BNE 

68$ 

.‘BRANCH IF NO 

005736 

022737 

041512 

000042 


CMP 

#$ENDAD,a#42 

.-ACT-11? 

005744 

001427 




BEQ 

68$ 

.‘BRANCH IF YES 

005746 

104401 

005754 



TYPE 

.69$ 

.‘TYPE ASCIZ STRING 

005752 

000424 




BR 

68$ 

.-GET OVER THE ASCIZ 





; ; 69$ : 

.ASCIZ 

<CRLF>aCZRNDAO - 

RM80 FUNCTIONAL TEST. PT ia<CRLF> 

006024 




6fi$: 








.S8TTL 

GET VALUE FOR SOFTWARE SWITCH REGISTER 

006024 

005737 

000042 



TST 

a#42 

.-ARE WE RUNNING UNDER XXDP/ACT? 

006030 

001012 




BNE 

70$ 

.•BRANCH IF YES 

006032 

123727 

001242 

000001 


CNP8 

$ENV.#1 

.•ARE WE RUNNING UNDER APT? 

006040 

001406 




BEQ 

70$ 

.•BRANCH IF YES 

006042 

023727 

001154 

000176 


CMP 

SWR.#SWREG 

.•SOFTWARE SWITCH REG SELECTED? 

006050 

001005 




BNE 

71$ 

.•BRANCH IF NO 

006052 

104407 

000403 




GTSWR 


.-GET SOFT-SWR SETTINGS 

006054 




BR 

71$ 


006056 

112737 

000001 

001150 

70$: 

MOVB 

#1 ,$AUTOB 

.'SET AUTO-MODE INDICATOR 

006064 




71$: 








;THE FOLLOWING FINOS OUT THE PROGRAM CONTROL NODE: 





.PAPER 

TAPE (MANUAL). ACT11, XXDP CHAIN OR DUMP 

006064 

005037 

001332 



CLR 

XXDP 

CLEAR • XXDP ’ LOAD DEVICE STORAGE 

006070 

122737 

000016 

000041 


CMP8 

#16.a#41 

LOADED FROM AN RM80 ? 

006076 

001121 




BNE 

3$ 

BR IF NOT 

006100 

013737 

000040 

001332 


NOV 

a#40.XXDP 

GET DEVICE INDICATOR AND NUMBER 

006106 

122737 

000007 

001332 


CNPB 

#7, XXDP 

IS IT A VALID NUMBER ? 

006114 

103002 




BHIS 

1$ 

YES 

006116 

105037 

001332 



CLRB 

XXDP 

NO. DEFAULT TO DRIVE 0 

006122 

005737 

000042 


1$: 

TST 

a#4 2 

CHAIN MODE OR ACT11 AUTO ACCEPT ? 

006126 

001425 




BEQ 

2$ 

BR IF NEITHER 

006130 

104401 

006136 



TYPE 

.73$ 

.-TYPE ASCIZ STRING 

006134 

000412 




BR 

>2$ 

.-GET OVER THE ASCIZ 





;;73$: 

.ASCIZ 

<CRLF>/NOT TESTING DRIVE / 

006162 

006162 

005046 



^S: 

CLR 

-(SP) 

CLEAR WORD ON STACK 

006164 

113716 

001332 



MOVB 

XXOP.(SP) 

GET DRIVE ADDRESS 

00^ 170 

104403 




TYPOS 


TYPE THE ADDRESS 
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M 6 


SEO 0077 


47 006172 

001 



.BYTE 

1 

.-ONLY 1 CHARACTER 

48 006173 

000 



.BYTE 

0 

.SUPRESS LEADING ZEROS 

49 006174 

104401 

001217 


TYPE 

,$CRLF 

i% 

; CR-LF 

50 006200 

51 

52 006202 

000460 



BR 

.'GET NUMBER OF DRIVES 

005227 

177777 

2$: 

INC 

#-1 

.'FIRST TIME THRU HERE ? 

53 006206 

001055 



BNE 

3$ 

;N0 

54 006210 

104401 

006216 


TYPE 

.75$ 

.'.'TYPE ASCIZ STRING 

006214 

000410 



BR 


.'.'GET OVER THE ASCIZ 


006236 

55 006236 

56 006240 

57 006244 

58 006246 

59 006247 

60 006250 
006254 

006342 

64 

65 006342 

66 006346 

67 006350 

68 

69 

70 006356 

71 006356 

72 006364 

73 

74 006366 

75 006370 

76 006374 

77 

78 006400 

79 006406 

80 006410 

81 006414 
006416 
006420 
006421 

82 006422 

83 

84 006426 

85 006434 

86 006440 

87 006444 

88 006452 

89 006454 

90 006462 

91 006464 

92 006472 

93 006500 

94 006502 

95 006510 

96 006512 

97 006516 


005046 

113716 

104403 

001 

000 

104401 

000432 


005737 

001537 

012737 


132737 

001124 

005001 

013700 

104401 

136137 

001507 

104401 

010146 

104403 

002 

000 

104401 

012760 

010160 

005760 

032760 

001027 

032760 

001426 

012737 

022760 

001407 

022760 

001403 

104401 

000412 


;;75S: 

?4$: 


.ASCIZ <CRLF>/TO TEST DftlVE / 


001332 


006256 


000042 

000377 001300 


000200 001243 


001276 

067112 

070102 001300 
001217 


CLR 

MOVB 

TYPOS 

.BYTE 

.BYTE 

TYPE 

BR 

::76S: .ASCIZ 
3$: 

.'CHECK FOR AUTO 
TST 
BEO 
MOV 


-(SP> .'CLEAR WORD ON STACK 

XXDP.(SP) .'GET DRIVE ADDRESS 

.-TYPE DRIVE ADDRESS 
1 .'ONLY 1 CHARACTER 

0 .'SUPRESS LEADING ZEROS 

.76$ .'.'TYPE ASCIZ STRING 

3$ ;;GET OVER THE ASCIZ 

/. HALT PROGRAM. CLEAR LOC. 40 AND RESTART PROGRAM. /<CRLF> 
MODE OR STANDALONE MODE 


S*42 

STANDALONE 

#377,SDEVM 


RUNNING IN AUTO MODE ? 

BR IF NO 

SET DEVICE MAP FOR ALL DRIVES 


.'PROGRAM IS RUNNING IN AUTO MODE - SEE IF SIZING IS ALLOWED 
XSIZ: 


067775 

000040 

000010 

000012 

010000 


BITB 

#BIT7.$ENVH 

.'SIZING ALLOWED ? 

BNE 

12$ 

.’NO 

CLR 

R1 

.•START FROM DRIVE 0 

MOV 

$8ASE.R0 

.'LOAD THE BASE ADDRESS 

TYPE 

.SYSTAT 

.'TYPE 'UNIT STATUS:' 

BITB 

ATNTBL (R1 ) ,$DEVF 

;IS DEVICE PRESENT IN MAP ? 

BEQ 

11$ 

;BR IF NO 

TYPE 

.$CRLF 

; CR-LF 

MOV 

RI.-(SP) 

;;SAVE R1 FOR TYPEO'JT 

TYPOS 


;;G0 TYPE-OCTAL ASCII 

.BYTE 

2 

..'TYPE 2 DIGIT(S) 

.BYTE 

0 

.-.'SUPPRESS LEADING ZEROS 

TYPE 

.8LNKS4 

.’TYPE 4 BLANKS 


000010 


000010 


004000 000000 


067130 

020026 


006624 

000026 


024026 000026 
067135 


#CLR.RMCS2(R0> 

R1.RMCS2CR0) 

RMDS(RO) 

*NED.RMCS2(R0> 

3$ 

#DVA,RMCS1 (RO) 

4$ 

#$RM80,10$ 

#20026.RMDT(R0> 

2 $ 

#24026.RMDT(R0) 

2 $ 

.NOTRM 

$ 


CLEAR NASS BUS 
LOAD THE DRIVE ADDRESS 
ACCESS DRIVE REGISTER 
IS DRIVE PRESENT ? 

BR IF NO 

IS DRIVE AVAILABLE ? 

BR IF NO 

ASSUME RM80 DEVICE 
SINGLE PORT RM80 ? 

BR IF YES 
DUAL PORT RM80 ? 

BR IF YES 
DRIVE NOT AN RM80 
CHECK NEXT DRIVE 


N 6 


SEQ 0078 
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98 006520 

032760 

010000 

000012 

2$: 

BIT 

AMOL.RMDS(RO) ; IS MEDIUM ON LINE ? 

99 006526 

001412 




BEQ 

6$ 

;8R IF NO 

100 006530 

101 

102 006532 

000417 




BR 

7$ 


104401 

067167 


3$: 

TYPE 

.NOTPRS 

5 $ 

.•DRIVE NOT PRESENT 

103 006536 

104 

105 006540 

000402 




BR 

.•CHECK NEXT DRIVE 

104401 

067204 


4$: 

TYPE 

.NOTAVL 

.‘DRIVE NOT AVAILABLE 

106 006544 

146137 

070102 

001300 

5$: 

BICB 

ATNTBL(RI) 

,$DEVM ; CLEAR DEVICE FROM BIT MAP 

.•CHECK NEXT DRIVE , 

107 006552 

108 

109 006554 

000425 




BR 

11$ 

104401 

067223 


6$: 

TYPE 

.UNTOFF 

.•DRIVE OFFLINE 

110 006560 

146137 

070102 

001300 


BICB 

ATNTBL(RI) 

,$DEVM ; CLEAR DEVICE FROM BIT MAP 

.•PRINT DRIVE TYPE 

111 006566 

112 

113 006570 

000413 




BR 

9$ 

005737 

001332 


7$: 

TST 

XXDP 

.•LOADED FROM RM80 ? 

114 006574 

001406 




BEQ 

8$ 

;N0 

115 006576 

123701 

001332 



CMPB 

XXDP.R1 

;IS THIS THE DRIVE ? 

116 006602 

001003 




BNE 

8$ 

;BR IF NO 

117 006604 

104401 

067152 



TYPE 

.LODEV 

.•DRIVE IS LOAD DEVICE 

118 006610 

119 

120 006612 

000755 




BR 

5 $ 


104401 

067234 


8$: 

TYPE 

.UNTON 

.•DRIVE ONLINE 

121 006616 

104401 

067777 


9$: 

TYPE 

.BLNKS2 

.•TYPE 2 BLANKS 

122 006622 

104401 




TYPE 


.•PRINT DRIVE TYPE 

123 006624 

124 

125 006626 

000000 



10$: 

.WORD 

0 

.•MESSAGE ADDRESS HERE 

005201 



11 $: 

INC 

R1 

.•INCREMENT THE DRIVE ADDRESS 

126 006630 

020127 

000007 



CMP 

R1,#7 

.-ALL DRIVES ARE CHECKED ? 

127 006634 

128 

129 006636 

003661 




BLE 

1$ 

.•BRANCH IF NOT 

104401 

001217 


12$: 

TYPE 

.SCRLF 

.-CR-LF 

130 006642 

000137 

007402 



JMP 

CMNSTART 

.-JUMP TO COMMON START 



*0^000 r\j->o >000^ miv>— wf\j- s O'Ooo^jo^u>^ w/\>-*0'Ooo-^oui^L^ru 
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B 7 


SEQ 0079 


006646 

006646 

006652 

006656 


006660 

006664 

006666 

006672 

006700 

006702 

006706 

006712 

006714 

006720 

006724 


006726 

006726 

006732 

006734 

006740 


006744 

006744 

006750 

006754 

006756 

006762 

006764 

006770 

CD6772 

007000 

007002 

007006 

007010 

007016 
007022 
007024 
0070 JO 
007032 
007036 
007040 
007044 
007046 
007054 
007056 
007062 
007064 


004737 

005227 

001023 


104401 

104411 

012637 

123727 

001005 

104401 

104401 

000414 

104401 

104401 

000407 


005737 

001457 

005037 

104401 


104401 

013746 

104402 

104401 

104413 

012637 

001412 

022737 

101403 

104401 

000756 

013737 

104401 

005046 

113716 

104402 

104401 

104413 

012637 

001412 

022737 

101003 

104401 

000755 

113737 


.SBTTL STANDALONE INPUT ROUTINES 



STANDALONE: 



064402 



JSR 

PC.STKINT 

.‘INITIALIZE CONSOLE 

177777 



INC 

#-1 

.‘FIRST TIME THRU HERE ? 




BNE 

2$ 

;BR IF NO 


;SEE 

IF 

OPERATOR WANTS HELP 

TEXT 

066536 



TYPE 

.NSHELP 

;WANT HELP ? 




RDCHR 


.‘GET RESPONSE 

001176 



NOV 

(SPH.fTNPI 

.‘SAVE AND ECHO RESPONSE 

001176 000131 



CMP8 

STNPl.f'Y 

.‘WAS IT A YES RESPONSE ? 




BNE 

1$ 

;N0 

001176 



TYPE 

.STMP1 

.‘TYPE 'Y' 

104372 



TYPE 

.HELP 

;YES - TYPE HELP TEXT 




BR 

is 


067771 

IS: 


TYPE 

.N 

.-TYPE 'N' 

001217 



TYPE 

.SCRLF 

.‘CR-LF 




BR 

is 



;SEE 

IF 

USER 

WANTS T 0 CHANGE 

UNIBUS ADDRESS 


2$: 





001326 



TST 

CHGADR 

.‘CHANGE RH/RM BUS ADDRESS 




BED 

7$ 

;BR IF NO 

001326 



CLR 

CHGADR 

;N0 CHANGE NEXT TINE 

001217 



TYPE 

.SCRLF 

.-CR-LF 


; DIALOGUE TO CHANGE THE ’JNIBUS ADDRESS, VECTOR ADDRESS AND INTERRUPT PRIORITY 


066567 



TYPE 

.CNSL01 

TYPE CURRENT BUS ADDRESS 

001276 



NOV 

SBASE, -(SP) 

.‘SAVE SBASE FOR TYPEOUT 




TYPOC 


;G0 TYPE— OCTAL ASCII (ALL DIGITS) 

067777 



TYPE 

.8LNKS2 

TYPE 2 BLANKS 




RDOCT 


GET NEW BUS ADDRESS 

001176 



NOV 

(SP)+,STMP1 

CARRIAGE RETURN ? 




BED 

5S 

YES-SKIP TO NEXT ENTRY 

160000 

001176 


CMP 

#1 60000, STNP1 

BASE ADDRESS IN I/O PAGE ? 




BLOS 

4S 

YES 

066577 



TYPE 

.CNSL02 

TYPE WARNING NESSAGE 




BR 

is 

TRY AGAIN 

001176 

001276 

4S: 

NOV 

STNP1 .SBASE 

STORE NEW BUS ADDRESS 

066641 


5S: 

TYPE 

.CNSL03 





CLR 

-(SP) 


001272 



Move 

TVDflf 

SVECTI.(SP) 

GET CURRENT VECTOR ADDRESS 

067777 



1 TrUL 

TYPE 

.8LNKS2 

TYPE 2 BLANKS 




RDOCT 


GET NEW VECTOR ADDRESS 

001176 



NOV 

(SP)+. STNP1 

CARRIAGE RETURN? 




BEQ 

7S 

YES-SKIP TO NEXT ENTRY 

001000 

001176 


CNP 

#1000,STNP1 

VECTOR ADDRESS < 1000 ? 




BHI 

6$ 

YES.'! 

066650 



TYPE 

.CNSL04 

TYPE WARNING NESSAGE 




BR 

is 

RETRY 

001176 

001272 

6S: 

N0V8 

STNP1 .SVECT1 

STORE NEW VECTOR ADDRESS 
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C 7 


SEQ 0080 


57 

58 





;FIND 

OUT IF 

USER WANTS TO DO LOGICAL ADDRESS PLUG TEST 

59 

007072 

005037 

001330 


>$: 

CLR 

MANUAL 

NO MANUAL INTERVETION 

60 

007076 

104401 

067300 



TYPE 

.MSMNUL 

TYPE 'PLUG TEST ?' 

61 

007102 

104412 




RDLIN 


READ THE ENTRY 

62 

007104 

012600 




MOV 

<SP>*. RO 

SAVE ADDRESS OF RESPONSE 

63 

007106 

105710 




TSTB 

(RO) 

WAS RESPONSE A CARRIAGE RETURN 

64 

007110 

001417 




BEG 

9$ 

BR IF YES 

65 

007112 

105760 

000001 



TSTB 

1<R0) 

WAS IT TERMINATED WITH CARRIAGE 

66 

007116 

001011 




BNE 

8$ 

BR IF NO 

67 

007120 

122710 

000116 



CMP8 

#'N. (RO) 

WAS IT A 'N' RESPONSE ? 

68 

007124 

001411 




BEQ 

9$ 

BR IF YES 

69 

007126 

012737 

000001 

001330 


MOV 

#1 .MANUAL 

SET MANUAL INTERVENTION FLAG 

70 

007134 

122710 

000131 



CMPB 

#' Y. (RO) 

WAS IT A 'Y* RESPONSE ? 

71 

007140 

001403 




BEQ 

9$ 

BR IF YES 

72 

007142 

104401 

067047 


8$: 

TYPE 

.CNSL09 

TYPE " 7ILLEGAL INPUT" 

73 

74 

75 

007146 

000751 




BR 

H 

RETRY 





.'DIALOGUE TO 

INPUT DEVICE NUMBERS 

76 

007150 

005227 

177777 


9$: 

INC 

#-1 

FIRST TIME THRU ? 

77 

007154 

001002 




BNE 

10$ 

BR IF NO 

78 

007156 

104401 

066704 



TYPE 

.CNSL07 

TYPE INPUT INSTRUCTIONS 

79 

007162 

104401 

001217 


101: 

TYPE 

-$CRLF 

CR-LF 

80 

007166 

005037 

001300 


11$: 

CLR 

$DEVM 

CLEAR DEVICE MAP 

81 

007172 

104401 

067070 



TYPE 

.MSDRVS 

TYPE 'DRIVE(S) : ' 

82 

007176 

104411 




RDCHR 



83 

007200 

012637 

001176 



MOV 

(SP)*.$TMP1 

GET RESPONSE 

84 

007204 

023727 

001176 

000101 


CMP 

$TMP1.#’A 

IS INPUT "A" ? 

85 

007212 

001007 




BNE 

12$ 

NO 

86 

007214 

104401 

066522 



TYPE 

.ALL 

YES, TYPE "ALL" AND GO 

87 

007220 

012737 

000377 

001300 


NOV 

#377.$DEVN 

SET DEVICE MAP FOR ALL DRIVES 

88 

89 

90 

007226 

000137 

006356 



JMP 

XSIZ 

AUTO SIZE. 

007232 

023727 

001176 

000015 

12$: 

CMP 

$TMP1 ,#CR 

CARRIAGE RETURN ? 

91 

007240 

001436 




BEQ 

14$ 

YES 

92 

007242 

104401 

001176 



TYPE 

.$TMP1 

ECHO RESPONSE 

93 

007246 

023727 

001176 

000060 


CMP 

$TMP1 ,#'0 

NUMBER < 0 ? 

94 

007254 

002430 




BLT 

14$ 

YES 

95 

007256 

023727 

001176 

000067 


CMP 

$TMP1.#'7 

NUMBER > 7 ? 

96 

007264 

003427 




BLE 

15$ 

NO 

97 

98 

99 

007266 

000423 




BR 

14$ 

ILLEGAL INPUT 

007270 

104411 



13$: 

RDCHR 



100 

007272 

012637 

001176 



MOV 

(SP)+,$TMP1 

GET RESPONSE 

101 

007276 

023727 

001176 

000015 


CMP 

$TMP1.#CR 

CARRIAGE RETURN ? 

102 

007304 

001432 




BEQ 

16$ 

YES 

103 

00730ft 

104401 

066533 



TYPE 

.COMMA 

TYPE • 

104 

007312 

104401 

001176 



TYPE 

-STMP1 

ECHO RESPONSE 

105 

007316 

023727 

001176 

000060 


CMP 

iTNPi.ro 

NUMBER < 0 ? 

106 

007324 

002404 




BLT 

14$ 

YES 

107 

007326 

023727 

001176 

000067 


CMP 

$TMP1 .#'7 

NUMBER > 7 ? 

108 

007334 

003403 




BLE 

15$ 

NO 

109 

007336 

104401 

067046 


14$: 

TYPE 

.CNSL08 

TYPE CR-LF " 7ILLEGAL INPUT" 

110 

111 

112 

007342 

000711 




BR 

fl$ 

RETRY 

007344 

013701 

001176 


15$: 

MOV 

$TMP1,R1 

R1 = DRIVE NUMBER 

113 

007350 

042701 

177770 



BIC 

rc7.iii 


L 


0 7 


SEQ 0081 


CZRNDAO RN80 FCTNL PT1 KACRO V04.00 28- JAN-82 16:24:51 PA6E 11-2 
STANDALONE INPUT ROUTINES 


1 14 007354 

156137 

070102 

001300 

BISS 

ATNTBL(R1>,SDEVM 

115 007362 

122737 

000377 

001300 

CMPB 

#377,SDEVH 

116 007370 

101337 



BHI 

13$ 

117 007372 

104401 

001217 

16$: 

TYPE 

,$CRLF 

118 007376 

000137 

006356 


JMP 

XSIZ 


;SET DEVICE IN NAP 

.’DONE ? 

;N0 

; CR-LF 

;G0 SIZE DEVICES 


i 


J 


C:RNDAO RH80 FCTNL PT1 MACRO V04.00 28-JAN-f*? 16:24:51 PAGE 12 
STANDALONE INPUT ROUTINES 


E 7 


SEQ 0082 


1 


QUE FROM DEVICE MAP 


2 

007402 



CMNSTART: 


3 

007402 

104401 

067244 


TYPE 

.DRIVES 

4 

007406 

013700 

001300 


MOV 

SDEVM.RO 

5 

007412 

001004 



BNE 

IS 

6 

007414 

104401 

066533 


TYPE 

.COMMA 

7 

007420 

104401 

067273 


TYPE 

.NONE 

8 

007424 

012701 

001470 

IS: 

MOV 

ATSTQUE+2.R1 

9 

007430 

010137 

001466 


MOV 

R1.TSTQUE 

10 

007434 

012702 

000001 


MOV 

#1,R2 

11 

007440 

005003 



CLR 

R3 

12 

007442 

030200 


2$: 

BIT 

R2.R0 

13 

007444 

001413 



BEQ 

3S 

14 

007446 

104401 

066533 


TYPE 

.COMMA 

15 

007452 

010311 



MOV 

R3.(R1> 

16 

007454 

010346 



MOV 

R3,-(SP) 


007456 

104403 



TYPOS 



007460 

001 



.BYTE 

1 


007461 

000 



.BYTE 

0 

17 

007462 

116361 

070102 000001 


M0V8 

ATNTBL(R3) ,1 

18 

007470 

062701 

000002 


ADD 

#2.R1 

19 

007474 

006302 


3$: 

ASL 

R2 

20 

007476 

105702 



TSTB 

R2 

21 

007500 

001402 



BEQ 

4$ 

22 

007502 

005203 



INC 

R3 

23 

007504 

000756 



BR 

2$ 

24 

007506 

005011 


4$: 

CLR 

(R1 ) 

25 

007510 

104401 

001217 


TYPE 

.SCRLF 

27 




.SIZE 

FOR CLOCK 


28 

007514 

004737 

043246 


JSR 

PC.SiZCLK 

29 

007520 

000425 



BR 

6S 

30 

007522 

104401 

007530 


TYPE 

.63$ 


007526 

000413 



BR 

64$ 





;;65$: 

.ASCIZ 

<CRLF>/NO ’L 


007556 



64$: 



31 

C07556 

005737 

000042 


TST 

B#4 2 

32 

007562 

001002 



BNE 

5$ 

33 

007564 

000137 

005426 


JMP 

START 

34 

007570 

000137 

041502 

5$: 

JMP 

SGET42 

35 

007574 



6$: 



30 

37 

007574 

000240 


READY: 

NOP 


38 

007576 

105737 

001300 


TSTB 

SDEVM 

39 

007602 

001007 



BNE 

2$ 

40 

007604 

005737 

000042 


TST 

a*42 

41 

007610 

001002 



BNE 

IS 

42 

007612 

000137 

005426 


JMP 

START 

43 

/ L 

007616 

000137 

041502 

1$: 

JMP 

SGET42 

MM 

45 

007622 

105037 

001116 

2$: 

CLRB 

STSTNM 

46 

007626 

005037 

001106 


CLR 

STIMES 

47 

007632 

004737 

064402 


JSR 

PC.STKINT 

48 

007636 

012746 

000240 


MOV 

#PR5.-(SP) 


007642 

012746 

007650 


MOV 

#64S.-(SP) 


007646 

000002 



RTI 



007650 



64$: 




TYPE ’DRIVE(S) TO BE TESTED' 

RO = DEVICE MAP 
BR IF DRIVES TO TEST 
TYPE \ ' 

TYPE 'NONE' 

R1 = ADDRESS OF FIRST ENTRY IN QUE 
INITIALIZE ENTRY POINTER 
R2 = DEVICE POINTER 
R3 = DEVICE NUMBER 
IS THIS DEVICE IN MAP ? 

NO !• 

TYPE ' 

YES - ENTER DEVICE NUMBER IN QUE 
SAVE R3 FOR TYPEOUT 
GO TYPE-OCTAL ASCII 
TYPE 1 DIGIT(S) 

-SUPPRESS LEADING ZEROS 
ENTER ATTENTION BIT IN QUE 
ADVANCE ENTRY POINTER 
ADVANCE DEVICE POINTER 
DONE ALL DEVICES ? 

YES 

ADVANCE DEVICE NUMBER 
ENTER NEXT DEVICE 
TERMINATE TEST QUE 
TYPE CR-LF 


;SEE IF CLOCK PRESENT 
;YES - CLOCK IS PRESENT 
;;TYPE ASCIZ STRING 
;:GET OVER THE ASCIZ 
1 V CLOCK/ 

ANY MONITOR PRESENT ? 

BR IF YES 

JUMP TO START 

RETURN CONTROL TO MONITOR 


READY TO START TEST 
ANY DRIVES IN NAP ? 

BR IF YES 

ANY MONITOR PRESENT ? 

BR IF YES 

JUMP TO START 

RETURN CONTROL TO MONITOR 

RESET TEST NUMBER 
INITIALIZE NUMBER OF ITERATIONS 
INITIALIZE TTY 
PUT NEW PS ON STACK 
PUT NEW PC ON STACK 
POP NEW PC AND PS 



F 7 


SEQ 0083 


CZRNDAO RM80 FCTNL PT1 MACRO VQ4.00 28-JAN-82 16:24:51 PAGE 12-1 
STANDALONE INPUT ROUTINES 


50 

51 


56 

57 


61 


007650 

117737 

171612 

001234 

MOVB 





.-CLEAR MASSBUS 

007656 

013700 

001276 


MOV 

007662 

012760 

000040 

000010 

MOV 

007670 

113760 

001234 

000010 

MOVB 

007676 

012737 

006400 

001334 

MOV 





.-TYPE DRIVE NUf 

00770A 

104401 

001217 


TYPE 

007710 

104401 

067104 


TYPE 

00771 A 

013746 

001234 


MOV 

007720 

104403 



TYPOS 

007722 

002 



.BYTE 

C07723 

000 



.BYTE 

007724 

005004 



CLR ' 

0C7726 

005304 



DEC 

007730 

001376 



BNE 

007732 

005304 



DEC 

007734 

001376 



BNE 


8TSTQUE.SUNIT ;LOAD DRIVE NUMBER 

CONTROLLER. SELECT DRIVE AND SET LAST TRACK ADI 
S8ASE.R0 ;R0 = UNIBUS ADDRESS 

#CLR,RMCS2(R0> .-CLEAR MASSBUS 
$UNIT,RMCS2(R0> ;SELECT DEVICE UNDER TEST „ 
/PTA8 ! f A4 ! TA1 .LSTftK ;SET LAST TRACK = 13. 


.JCRLF 

-MSGDRV 

$UNIT,-(SP) 


2 

0 

m 

R4 

.-2 

R4 

.-2 


CR-LF 

TYPE ’DRIVE 1 
SAVE SUN1T FOR TYPEOUT 
TYPE DRIVE NUMBER 
GO TYPE— OCTAL ASCII 
TYPE 2 DIGIT(S) 

SUPPRESS LEADING ZEROS 
THESE TWO LOOPS ARE ADDED TO 
WAIT FOR TTY 



CZRNDAO RH80 FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 13 
STANDALONE INPUT ROUTINES 


G 7 


1 

2 


3 

4 

5 

6 

7 

8 
9 


007736 

007736 

007740 

007742 

007746 

007752 

007756 

007764 

007766 

007772 

007776 

010004 


. 010012 
10 010016 
11 010022 
12 010026 

13 010032 

14 010036 

15 010042 

16 010046 

17 010052 

18 010056 

19 010062 

20 010066 
010072 

21 010076 

22 

23 010100 

24 010102 
010106 

25 010112 

26 010114 

27 010120 

28 010122 

29 010126 

30 010132 

31 010136 

32 
53 


010136 

010136 

010140 

010142 

010146 

010152 

010156 

010164 

34 

35 010172 


•TEST 1 


tSTl : 


000004 




SCOPE 

000240 




NOP 

012706 

001100 



MOV 

013700 

001276 



NOV 

013701 

001466 



MOV 

012737 

000001 

001226 


MOV 

005001 




CLR 

013746 

000004 



MOV 

013746 

000006 



MOV 

012737 

010100 

000004 


MOV 

012737 

000300 

000006 


MOV 

110160 

000001 



nova 

010160 

000002 



MOV 

016002 

000002 



MOV 

010160 




MOV 

016002 




MOV 

016046 

000010 



MOV 

010160 

000010 



NOV 

016002 

000010 



MOV 

012660 

000010 



MOV 

010160 

000022 



MOV 

016002 

000022 



MOV 

012637 

|1 



MOV 

012637 




NOV 

000417 




BR 

022626 



1$: 

CMP 

012637 

000006 



MOV 

012637 

000004 



MOV 

104110 




EMT 

005737 

000042 



TST 

001002 




BNE 

000137 

005416 



JMP 

005037 

001300 


2$: 

CLR 

000137 

041502 


3S: 

JMP 


CONTROLLER ACCESS TEST 


#STACK,SP 

SBASE.RO 

TSTQUE.R1 

#1,STESTN 

R1 

ERRVEC, -<SP> 
ERRVEC*2,-(SP) 
#1S, ERRVEC 
#PR6,ERRVEC+2 

R1 .RMCSW (R0> 

RI.RMWC(RO) 

RMWC(R0),R2 

RI.RMBACRO) 

RMBA(R0).R2 

RMCS2(RQ),-(SP> 

R1.RNCS2(R0> 

RMCS2(R0),R2 

(SPJ*. RNCS2(R0> 

RI.RNDBCRO) 

RMDB(R0).R2 

<SP)+,ERRVEC*2 

<SP)+. ERRVEC 

3$ 

(SP)+.(SP)* 
(SP>+, ERRVEC *2 
(SP)*, ERRVEC 
110 

B#42 

2S 

START1 

SDEVN 

SGET42 


SCOPE CALL 

START OF TEST 

INITIALIZE STACK POINTER 

RO = UNIBUS ADDRESS 

(R1) = DEVICE BEING TESTED 

; SET TEST NUMBER IN APT NAIL BOX 


;;PUSH ERRVEC ON STACK 

;;PUSH ERRVEC+2 ON STACK 


;MOVE HI BYTE TO RMCS1 
.-MOVE WORD COUNT REGISTER 

.-MOVE BUS ADDRESS REGISTER 

; ; PUSH RMCS2CR0) ON STACK 
;N0VE CONTROL STATUS REGISTER 

;;POP STACK INTO RNCS2(R0) 
;M0VE DATA BUFFER 

;;P0P STACK INTO ERRVEC+2 
;;POP STACK INTO ERRVEC 
;N0 BUS TIMEOUT OCCURRED 

.•ADJUST STACK 

;;POP STACK INTO ERRVEC+2 
;;POP STACK INTO ERRVEC 

;IS MONITOR PRESENT ? 

;BR IF YES 
; YES-GO GET SBASE 
; FUDGE NO DRIVES IN NAP 
.•RETURN CONTROL TO MONITOR 


>*********»*********************************•*•*****•****•••***• 


;*T£ST 2 LOGICAL ADDRESS PLUGS TEST 


TST2: 


000004 

000240 

012706 

001100 


SCOPE 

NOP 

MOV 

f STACK. SP 

013700 

001276 


MOV 

SBASE.RO 

013701 

001466 


MOV 

TST0UE.R1 

012737 

000001 

001206 

MOV 

#1. STINES 

012737 

000002 

001226 

MOV 

#2.STESTN 

005737 

001330 


TST 

MANUAL 


.•SCOPE CALL 
; START OF TEST 
; INITIALIZE STACK POINTER 
;R0 = UNIBUS ADDRESS 
;(R1) = DEVICE BEING TESTED 
;;D0 1 ITERATION 

; ; SE T TEST NUMBER IN APT MAIL BOX 
;D0 WANT MANUAL INTERVENTION TEST ? 


SEO 0084 
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NACR0 V04.00 28- 
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LOGICAL 

ADDRESS 

PLUGS TEST 





010176 

001555 




SEQ 

7$ 

;N0— SKIP TEST 

010200 

012737 

010324 

001124 


NOV 

#2S. SLPERR 

;SET ERROR LOOP ADDRESS 

010206 

104401 

067360 



TYPE 

.NSUNIT 

.-TYPE UNIT NESSAGE 

010212 

013746 

001234 



NOV 

SUNIT. -(SP) 

;;SAVE SUNIT FOR TYPEOUT 








;;GET DRIVE NUNBER BEING TESTED 

010216 

104403 




TYPOS 


; ; GO TYPE— OCTAL ASCII 

010220 

001 




.8Y T E 

1 

;;TYPE 1 DIGIT (S) 

010221 

000 




.BYTE 

0 

."SUPPRESS LEADING ZEROS 

010222 

104401 

067443 



TYPE 

.NINSTR 

;faPE INSTRUCTIONS NESSAGE 

010226 

005002 




CLR 

R2 

.•START WITH UNIT #0 

010230 

005737 

001234 



TST 

SUNIT 

; I S THIS UNIT #0 ? 

010234 

001004 




BNE 

1$ 

;N0 

010236 

104401 

067655 



TYPE 

.PULL 

.-TYPE ‘PULL LOGICAL ADRS PLUG #0* 

010242 

104401 

001217 



TYPE 

.SCRLF 

; CR-LF 

010246 

104401 

067617 


IS: 

TYPE 

.INSERT 

.•TYPE ’INSERT LOGICAL ADRS PLUG * 

010252 

010246 




NOV 

R2.-ISP) 

;;SAVE R2 FOR TYPEOUT 








.-.-TYPE UNIT TO BE ADDRESSED 

010254 

104403 




TYPOS 


; ; GO TYPE— OCTAL ASCII 

010256 

001 




.BYTE 

1 

;;TYPf 1 DIGIT(S) 

010257 

000 




.BYTE 

0 

..SUPPRESS LEADING ZEROS 

010260 

104401 

067720 



TYPE 

.RET 

.-TYPE RETURN WHEN READY 

010264 

104412 




RDLIN 


.-WAIT FOR <RET> TO CONTINUE 

010266 

104401 

001217 



TYPE 

.SCRLF 

; CR-LF 

010272 

010260 

000010 



NOV 

R2.RNCS2(R0) 

; ADDRESS UNIT NUNBER IN R 2 

010276 

012737 

020000 

001174 


NOV 

ROPE .STNPO 

.-GET EXPECTED STATUS 

010304 

016037 

000042 

001176 


NOV 

RN£R2(R0>.STNP1 

.-GET RECEIVED STATUS 

010312 

042737 

157777 

001176 


BIC 

#*C<0PE>.STNP1 

;IS •lOPE" SET ? 

010320 

001001 




BNE 

2$ 

;8R IF YES 

010322 

104231 




ENT 

231 


010324 

012760 

000040 

000010 

2$: 

NOV 

«CLR.RNCS2(R0) 

.•CLEAR THE NASSBUS 

010332 

010260 

000010 



NOV 

R2.RNCS2CR0) 

.•SELECT DEVICE FOR TEST 

010336 

005037 

001174 



CLR 

STNPO 

.-GET EXPECTED STATUS 

010342 

016037 

000042 

001176 


NOV 

RNER2(R0),STNP1 

.-GET RECEIVED STATUS 

010350 

042737 

157777 

001176 


BiC 

R*C<0PE>,STNP1 

;IS ’DPE* SET ? 

010356 

001401 




BEQ 

3$ 

;BR IF NO 

010360 

104231 




ENT 

231 


010362 

016037 

000010 

001176 

3$: 

NOV 

RNCS2<R0),STNP1 

.’GET RECEIVED UNIT ADDRESS BITS 

010370 

042737 

177770 

001176 


BiC 

R*CUNTNSK,STNP1 

;HASK UNIT ADDRESS BITS 

010376 

010237 

001174 



NOV 

R2.STNP0 

;GET EXPECTED UNIT ADDRESS BITS 

010402 

023702 

001176 



CNP 

STNP1.R2 

.-WAS CORRECT UNIT ADDRESSED ? 

010406 

001402 




BEQ 

4$ 

;8R IF YES 

010410 

104230 




ENT 

230 


010*12 

000421 




BR 

6$ 


010414 

016037 

000010 

001174 

4$: 

NOV 

RNCS2CR0). STNPO 

.GET RNCS2 STATUS 

010422 

016037 

000000 

001176 


NOV 

RNCS1 (RO).STNPI 

.-GET RNCS1 STATUS 

010430 

032737 

010000 

001174 


BJT 

AWED, STNPO 

.WAS DEVICE NON-EXISTENT ? 

010436 

001402 




BEQ 

5S 

;8R IF NO 

010440 

104111 




ENT 

111 


010442 

000405 




BR 

6S 



SEQ 0085 



ICZRNOAO RM80 FCTNL PT1 
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7 

iEQ 0086 

T2 LOGICAL 

ADDRESS 

PLUGS TEST 



85 010444 

032737 

004000 001176 5S: 

BIT 

#DVA,STMP1 

;UAS DEVICE AVAILABLE ? 

86 010452 

001001 


BNE 

6$ 

;BR IF YES 

87 010454 

88 

89 010456 

104112 


EMT 

112 


005202 

6$: 

INC 

R2 

.'ADDRESS NEXT UNIT 

90 010460 

020227 

101670 

000007 

CMP 

R2.#UNTMSK 

.ALL PLUGS ADDRESSED ? 

91 010464 


BLOS 

IS 

;BR IF NO 

92 010466 

104401 

067750 

TYPE 

.DONE 

.'TYPE DONE MESSAGE 

.•TYPE ’INSERT LOGICAL ADRS PLUG #’ 

93 010472 

104401 

067617 

TYPE 

.INSERT 

SUNIT.-(SP) 

j 94 010476 

013746 

001234 

MOV 

.'.'SAVE SUNIT FOR TYPEOUT 


GET ORIGINAL DRIVE ADDRESSED 


010502 

104403 




TYPOS 


.'GO TYPE— OCTAL ASCII 

010504 

001 




.BYTE 

1 

.'TYPE 1 DIGIT(S) 

010505 

000 




.BYTE 

0 

.-SUPPRESS LEADING ZEROS 

95 010506 

104401 

067720 



TYPE 

.RET 

TYPE RETURN WHEN READY 

96 010512 

104412 




RDLIN 


WAIT FOR <RET> TO CONTINUE 

97 010514 

104401 

001217 



TYPE 

.SCRLF 

CR-LF 

98 010520 

005004 




CLR 

R4 

THESE TUO LOOPS ARE ADDED TO 

99 010522 

005304 




DEC 

R4 

WAIT FOR TTY 

100 010524 

001376 




BNE 

.-2 


101 010526 

005304 




DEC 

R4 


102 010530 

001376 




BNE 

.-2 


103 010532 




7$: 




104 








105 




;;****< 

t****»**i 







.'•TEST 

3 

UNIBUS INITIALIZE 

TEST 

010532 




TST3: 




010532 

000004 




SCOPE 


SCOPE CALL 

010534 

000240 




NOP 


START OF TEST 

010536 

012706 

001100 



MOV 

fSTACK.SP 

INITIALIZE STACK POINTER 

010542 

013700 

001276 



MOV 

SBASE.RO 

RO = UNI BUS ADDRESS 

010546 

013701 

001466 



MOV 

TST0UE.R1 

(R1) = DFVICE BEING TESTED 

010552 

012737 

000001 

001206 


MOV 

#1 .STINES 

;D0 1 ITERATION 

010560 

012737 

000003 

001226 


MOV 

#3,STESTN 

.'SET TEST NUMBER IN APT MAIL BOX 

106 








107 010566 

004737 

052466 



JSR 

PC.CNTCLR 

GO ISSUE CONTROLLER CLEAR 

010572 

000404 




BR 

IS 

GO TO IS IF NO ERROR 

010574 

000240 




NOP 


RETURN HERE IF ERROt 

010576 

104000 




EMT 


ERROR NUMBER DEFINED BY SUBROUTINE 

010600 

000137 

011402 



JMf 

15S 

GO TO 15S IF ERROR 

108 010604 




IS: 




109 010604 

01 2702 

000101 



MOV 

#65., R2 

SET OR AND RESET IR 

110 010610 

012737 

000000 

001434 


MOV 

fO.RMDBO 

WRITE ZEROS IN DATA SILO 

111 010616 

112737 

000022 

001545 


M0V8 

*«RMDB,PUTINX 

SETUP REGISTER INDEX 

112 010624 

112737 

000200 

001546 


MOVE 

#200.PUTINX*1 


113 010632 




2S: 




114 010632 

004737 

043016 



JSR 

PC. PUT 

GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

010636 

000404 




BR 

3S 

GO TO 3S IF NO ERROR 

010640 

000240 




NOP 


RETURN HERE IF ERROR 

010642 

104000 




EMT 


ERROR # DEFINED BY PUT SUBROUTINE 

010644 

000137 

011402 



JMP 

15S 

GO TO 15S IF ERROR 

115 010650 

005302 



3S: 

DEC 

R2 

DECREMENT COUNT 

116 010652 

001367 




BNE 

2S 

WRITE SILO AGAIN 

117 010654 

012737 

177777 

001416 


MOV 

#-1 .RMBAO 

RMBA = ALL 1’S 

118 010662 

012737 

177777 

001426 


MOV 

#-1 .RMER10 

RMER1 = ALL 1’S 

119 010670 

012737 

177777 

001454 


MOV 

#-1 .RMER20 

RMER2 * ALL 1 * S 
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T3 unibus initialize test 


SEQ 008 7 


120 010676 

121 010704 

122 010712 

123 

124 010720 

125 010724 

126 010730 

127 010734 

128 010740 

129 010744 

130 010750 

131 010754 

132 010760 
010764 
010766 
010770 
010772 

133 010776 

134 011000 

135 011004 

136 011010 

137 

138 011014 
011020 
011022 
011024 

139 011026 

140 

141 011030 

142 011036 

143 011044 

144 011052 

145 011060 

146 011062 

147 

148 011064 

149 011070 

150 011076 

151 011100 
15 2 

153 011102 

154 01 mo 

155 011112 

156 011114 

157 011120 

158 011124 

159 011132 

160 011134 

161 

162 011136 

163 011142 

164 011150 

165 011156 

166 011160 

167 

168 011162 
169 011170 


012737 

012737 

012737 

012702 

112722 

112722 

112722 

112722 

112722 

112722 

112722 

004737 

000404 

000240 

104000 

000137 

000005 

004737 

111160 

004737 

004737 

000403 

000240 

104000 

000565 

013737 

042737 

012737 

023737 

001401 

104115 

005037 

013737 

001401 

104116 

013737 

005046 

111116 

052716 

012637 

023737 

001401 

104117 

005037 

013737 

042737 

001401 

104120 

013737 

005002 


040001 

001436 


MOV 

#DMD ! DBE N , RMMR 1 0 

003577 

001412 


MOV 

#003577,RMCS10 

021037 

001422 


MOV 

#021037. RMCS20 

001545 



MOV 

#PUTINX,R2 

000004 



movb 

#RMBA.(R2)+ 

000014 



MOVE 

#RMER1,(R2)+ 

000042 



MOVB 

#RMER2, (R2) ♦ 

000024 



MOVB 

#RMMR1 . <R2) ♦ 

MTiTiWSl 



MOVB 

#RNCS1.(R2)+ 

000010 



MOVB 

#RMCS2.(R2)* 

000200 



MOVB 

#200. (R2)+ 

G43016 



JSR 

PC. PUT 




BR 

4ft 




NOP 





EMT 


011402 



JMP 

15J 



4$: 

RESET 


064402 



JSR 

PC.ftTKINT 

000010 



MOVB 

(R1),RMCS2(R0) 

042462 



JSR 

PC.GETSTS 

042546 



JSR 

PC, GET 




BR 

5ft 




NOP 





EMT 





BR 

15J 

001336 

001142 

5$: 

MOV 

RMCSII.ftBDDAT 

100000 

001142 


BIC 

#SC .ftBDDAT 

004200 

001140 


mv 

#DVA!RDY,ftGDDAT 

001140 

001142 


CMP 

SGDDAT.ftBDDAT 




BEQ 

6S 




EMT 

115 

001140 


6$: 

CLR 

ftGDDAT 

001342 

001142 


MOV 

RMBAI .ftBDDAT 




BEQ 

7ft 




EMT 

116 

001346 

001142 

7$: 

MOV 

RMCS2I,ftBDDAT 




CLR 

-(SP) 




MOVB 

(RI).(SP) 

000100 



BIS 

#IR. (SP) 

001140 



MOV 

(SPU. ftGDDAT 

001140 

001142 


CMP 

ftGDDAT. ftBDDAT 




BEQ 

8ft 




EMT 

117 

001140 


8ft: 

CLR 

ftGDDAT 

001352 

001142 


MOV 

RMER1 I .ftBDDAT 

040000 

001142 


BIC 

#UNS. ftBDDAT 




BEQ 

9» 




EMT 

120 

001354 

001142 

9ft: 

NOV 

RMASI. ftBDDAT 




CLR 

R2 


;SET DIAGNOSTIC MODE 


;R2 = ADDRESS OF INDEX TABLE 


GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 4$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 

GO TO 15S IF ERROR 

UNIBUS INITIALIZE 

INITIALIZE CONSOLE 

SELECT DEVICE 

GO SET UP FOR STATUS FETCH 

GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 5$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY GET SUBROUTINE 

SKIP RCMAINDER OF TEST 

VERIFY RMCS1 

IGNORE SPECIAL CONDITION 
EXPECT DVA ft RDY 
COMPARE EXPECTED. RECEIVED 
BRANCH IF EQUAL 


.•VERIFY RMBA IS ZERO 
.•BRANCH IF ZERO 


.VERIFY RHCS2 

.•EXPECT IR ft UNIT NUMBER 


.•COMPARE EXPECTED ft RECEIVED 
.-BRANCH IF EQUAL 


.VERIFY RMER1 

.•IGNORE UNSAFE 
.•BRANCH IF ZERO 


; VERIFY RMAS 
.•CLEAR ALL BUT THIS 
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MACRO V04.00 28- 

■JAN-82 

16:24:51 

K 7 

PA6E 13-4 


SEQ 0088 

T3 UNI BUS 

INITIALIZE TEST 







170 011172 

116102 

000001 



wove 

1 (R1) ,R2 

DRIVES ATTENTION BIT 


171 011176 

000302 




SWAB 

R2 



172 011200 

005102 




COM 

R2 



173 011202 

174 011204 

00024 Q 
040237 

001142 



NOP 

BIC 

R2.S8DDAT 

ioi 



175 011210 

001401 




be a 

BRANCH IF ITS 0 


176 011212 

177 

104121 




EMT 

121 



178 011214 

013737 

001362 

001142 

10$: 

MOV 

RMMR1I.$BDDAT 

VERIFY RMMR 


179 011222 

042737 

000046 

001142 


BIC 

#WC.'LS!LST.$8DDAT 

.IGNORE WORD CLOCK. SCT, TRK 


180 011230 

012737 

000010 

001140 


MOV 

*MUD,$GDDAT 

EXPECT WRITE DATA BIT 


181 011236 

023737 

001140 

001142 


CMP 

$GDDAT.$BDDAT ; 

COMPARE EXPECTED AND RECEIVED 


182 011244 

001401 




BEQ 

lit 

BRANCH IF 0 


183 011246 

184 

104122 




EMT 

122 



185 011250 

005037 

001140 


11$: 

CLR 

$GDDAT 

EXPECT ZEROS 


186 011254 

013737 

001404 

001142 


MOV 

RMEC2I,$BDDAT ; 

VERIFY RMEC2 = 0 


187 011262 

001401 




BEQ 

12$ 



188 011264 

189 

190 011266 

104124 




EMT 

124 



013737 

001376 

001142 

12$: 

MOV 

RMMR2I ,$BDDAT 

VERIFY RMMR2 


191 011274 

042737 

140000 

001142 


BIC 

#RQA!RQB,$BDDAT 
#TST ! 1 777.SGDDAT 



192 011302 

012737 

011777 

001140 


MOV 

.•EXPECT TEST. TAG BIT ON 


193 011310 

023737 

001140 

001142 


CMP 

$GDDAT,$BDDAT 



194 011316 

001401 




BEQ 

13$ 



195 011320 

196 

104125 




EMT 

125 



197 011322 

005037 

001140 


13$: 

CLR 

$GDDAT 

EXPECT ALL ZEROS 


198 011326 

013737 

001400 

001142 


MOV 

RMER2I ,$8DDAT 

VERIFY RMER2 


199 011334 

042737 

040200 

001142 


BIC 

#SKI DVC .$8DDAT 

IGNORE DEVICE ERRORS 


200 011342 

001401 




BEQ 

14$ 

BRANCH IF OTHER BITS 0 


201 011344 

104173 




EMT 

173 



202 011346 

013737 

001350 

001142 

14$: 

MOV 

RMDSI .$8DDAT 

•CHECK DRIVE STATUS REGISTER 


203 011354 

042737 

177177 

001142 


BIC 

#*C<DPR ! DRY* ,$BDDAT 


204 011362 

012737 

000600 

001140 


MOV 

#DPR!DRY,$GDDAT 

EXPECTED STATUS 


205 011370 

023737 

001142 

001140 


CMP 

$8DDAT,$GDDAT 

•COMPARE EXPECTED l RECEIVED STATUS 


206 011376 

001401 




BEQ 

15$ 

DRIVE STATUS IS OK 


207 011400 

208 011402 

209 

104123 



15$: 

EMT 

123 



210 




;;***» 









;*TEST 

4 

CONTROLLER CLEAR 

TEST 


011402 

011402 

000004 



; ; »»*« 

TST4: 

SCOPE 


SCOPE CALL 


011404 

000240 




NOP 


START OF TEST 


011406 

012706 

001100 



MOV 

fSTACK.SP 

INITIALIZE STACK POINTER 


011412 

013700 

001276 



MOV 

S6ASE.R0 

RO = UNIBUS ADDRESS 


011416 

013701 

001466 



MOV 

TSTQUE.R1 

(R1 ) = DEVICE BEING TESTED 


011422 

211 

212 011430 

012737 

000004 

001226 


MOV 

#4,$TESTN 

;SET TEST NUMBER IN APT MAIL BOX 


004737 

052466 



JSR 

PC.CNTCLR 

GO ISSUE CONTROLLER CLEAR 


011434 

000404 




BR 

1$ 

GO TO 1$ IF NO ERROR 


011436 

000240 




NOP 


RETURN HERE IF ERROR 


011440 

104000 




EMT 


ERROR NUMBER DEFINED BY SUBROUTINE 


011442 

000137 

011740 



JMP 

8$ 

GO TO 8$ IF ERROR 


213 011446 




1$: 








SEQ 0089 


.WRITE ZEROS IN DATA SILO 
.•SETUP REGISTER INDEX TABLE 


GO WRITE ^EGISTER(S) WITH PUT SUBROUTINE 

GO TO 3$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR » DEFINED BY PUT SUBROUTINE 

GO TO 8$ IF ERROR 

DECREMENT COUNT 

AND WRITE SILO AGAIN IF NOT DONE 


;R2 = ADDRESS OF INDEX TABLE 


GO WRITE REGISTER (S) WITH PUT SUBROUTINE 

GO TO 4S IF NO ERROR 

RETURN HERE IF ERROR 

ERROR f DEFINED BY PUT SUBROUTINE 


GO ISSUE CONTROLLER CLEAR 

GO TO 5$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR NUMBER DEFINED 8Y SUBROUTINE 

GO TO 8$ IF ERROR 

SETUP TO READ ALL REGISTERS 

GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 6S IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY GET SUBROUTINE 

GO TO 8$ IF ERROR 

GO VERIFY CONTROLLER CLEAR OPERATION 

GO TO 7$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY CLRSTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 8$ IF ERROR 

CHANGE FUNCTION CODE FOR ERROR CHECK 

GO CHECK FOR SECONDARY ERRORS 
GO TO 8S IF NO ERROR 



ilZRNDAO RM80 FCTNL PT1 

MACRO V04.00 28-JAN-82 

16:24:51 

N 7 

PA6E 13-6 

SEQ 0090 

T4 CONTROLLER CLEAR TEST 






011732 

000240 




NOP 


.-RETURN HERE IF ERROR 

011734 

104000 




ENT 


; ERROR # DEFINED BY SECERR SUBROUTINE 

011736 

004736 




JSR 

PC.i(SP)* 

;G0 BACK FOR NORE ERROR CHECKS 

250 011740 




8$: 




251 








252 




;;**»* 








;*TEST 

5 

ERROR CLEAR TEST 


011740 




;;**** 

TST5: 




011740 

000004 




SCOPE 


.•SCOPE CALL 

011742 

000240 




NOP 


.•START OF TEST 

011744 

012706 

001100 



NOV 

#STACK,SP 

; INITIALIZE STACK POINTER 

011750 

013700 

001276 



NOV 

SBASE.RO 

;R0 = UNIBUS ADDRESS 

011754 

013701 

001466 



NOV 

TSTQUE.R1 

;(R1) = DEVICE BEING TESTED 

011760 

012737 

000005 

001226 


NOV 

#5,STESTN 

; ; SET TEST NUNBER IN APT NAIL BOX 

253 








254 011766 

004737 

052466 



JSR 

PC.CNTCLR 

;G0 ISSUE CONTROLLER CLEAR 

011772 

000404 




BR 

1$ 

;G0 TO 1$ IF NO ERROR 

011774 

000240 




NOP 


.'RETURN HERE IF ERROR 

011776 

104000 




ENT 


.'ERROR NUNBER DEFINED BY SUBROUTINE 

012000 

000137 

012146 



JNP 

5$ 

;G0 TO 5$ IF ERROR 

255 012004 




1$: 




256 012004 

112737 

000000 

001545 


NOVB 

#RMCS1 .PUT I NX 

.•SETUP PUT INDEX TABLE 

012012 

112737 

000200 

001546 


NOVB 

#200, PUT I NX* 1 

; SET TERNINATOR BYTE 

012020 

012737 

040000 

001412 


NOV 

#TRE,RNCS10 

.'SET RNCS1 OUTPUT BUFFER = TRE 

012026 

004737 

043016 



JSR 

PC. PUT 

;G0 WRITE RNCS1 VIA PUT SUBROUTINE 

012032 

000404 




BR 

2$ 

;G0 TO 2$ IF NO ERROR 

012034 

000240 




NOP 


.'RETURN HERE IF ERROR 

012036 

104000 




ENT 


.ERROR DEFINED 8Y PUT SUBROUTINE 

012040 

000137 

012146 



JNP 

5$ 

;G0 TO 5$ IF ERROR 

257 012044 




2$: 




258 012044 

112737 

000000 

001516 


NOVB 

#RNCS1,GETINX 


259 012052 

112737 

000010 

001517 


mvB 

#RNCS2.GETINX+1 


260 012060 

112737 

000200 

001520 


NOVB 

#200.GETINX*2 


261 







i 

262 012066 

004737 

042546 



JSR 

PC, GET 

;G0 READ REGISTER(S) WITH GET SUBROUTINE ? 

012072 

000403 




BR 

3$ 

;G0 TO 3$ IF NO ERROR 

012074 

000240 




NOP 


; RE TURN HERE IF ERROR 

012076 

104000 




ENT 


; ERROR # DEFINED BY GET SUBROUTINE 

263 012100 

000422 




BR 

5$ 

.'SKIP REST OF TEST 

264 012102 

013737 

001336 

001142 

3$: 

NOV 

RNCS1 J.SBDDAT 

.'CHECK TRE 8 NCPE 

265 012110 

005037 

001140 



CLR 

SGDDAT 

.•EXPECT O’S 

266 012114 

042737 

117777 

001142 


B1C 

#*C<TRE !NCPE>,$BDDAT 

267 012122 

001 401 




BEQ 

4$ 

; BRANCH IF TRE 8 NCPE = 0 

268 012124 

104137 




ENT 

137 


269 








270 012126 

013737 

001346 

001142 

4$: 

NOV 

RNCS2I.SBDDAT ; 

CHECK RNCS2 

271 012134 

042737 

104377 

001142 


BJC 

#*C<WCE !UPE !NED:PGE !NXF !NDPE>.I8DDAT 

272 012142 

001401 




BEQ 

5$ 


273 012144 

104140 




ENT 

140 


274 








275 012146 




5$: 




276 








277 




;;»*»* 








;*TEST 

6 

DRIVE STATUS TEST 

012146 




TST6: 
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H 7 


SEQ 0091 



012146 

000004 




SCOPE 


SCOPE CALL 


012150 

000240 




NOP 


START OF TEST 


012152 

012706 

001100 



MOV 

#STACK,SP 

INITIALIZE STACK POINTER 


012156 

013700 

001276 



MOV 

SBASE.RO 

TSTQIJE.R1 

RO = UNIBUS ADDRESS 


012162 

013701 

001466 



MOV 

(Rl) = DEVICE BEING TESTED 

278 

279 

012166 

012737 

000006 

001226 


MOV 

*6,STESTN 

;SE) TEST NUMBER IN APT MAIL BOX 

012174 

004737 

052466 



JSR 

PC.CNTCLR 

GO ISSUE CONTROLLER CLEAR 


012200 

000404 




BR 

IS 

GO TO IS IF NO ERROR 


012202 

000240 




NOP 


RETURN HERE IF ERROR 


012204 

104000 




EHT 


ERROR NUMBER DEFINED BY SUBROUTINE 


012206 

000137 

012462 



JMP 

8S 

GO TO 8S IF ERROR 

280 

281 

282 

283 

012212 

012212 

004737 

042462 


IS: 

JSR 

PC.GETSTS 


012216 

004737 

042546 



JSR 

PC. GET 

;G0 READ REGISTER (S) WITH GET SUBROUTINE 


012222 

000403 




BR 

2S 

;G0 TO 2S IF NO ERROR 


012224 

000240 




NOP 


^RETURN HERE IF ERROR 


012226 

104000 




EHT 


; ERROR » DEFINED BY GET SUBROUTINE 

284 

012230 

000514 




BR 

8$ 

;SKIP REST OF TEST 

285 

012232 

032737 

010000 

001350 

2$: 

BIT 

#MOL, RMDSI 

; MEDIUM ON LINE?? 

286 

012240 

001016 




BNE 

3S 

;YES!! 

28 7 

012242 

013737 

001350 

001140 


MOV 

RMDSI.SGDDAT 

#ATA!ERR!PIP!LBT 

; EXPECTED STATUS 

288 

012250 

042737 

162000 

001140 


B1C 

.SGDDAT 

289 

012256 

052737 

010000 

001140 


BIS 

#MOL, SGDDAT 


290 

012264 

013737 

001350 

001142 


MOV 

RMDSI SBDDAT 

.‘RECEIVED STATUS 

291 

012272 

104151 




EMT 

151 

;MOL STATUS INCORRECT 

292 

293 

294 

012274 

000440 




BR 

5S 

012276 

032737 

000200 

001400 

3$: 

BIT 

#DVC.RMER2I 

;IS THERE A DEVICE CHECK?? 

295 

012304 

001422 




BEQ 

4$ 

;8R IF NO 

296 

012306 

013737 

001400 

001142 


NOV 

RMER21.SBDDAT 

.‘RECEIVED STATUS 

297 

012314 

005037 

001140 



CLR 

S6DDAT 

.‘EXPECTED STATUS 

298 

299 

300 

012320 

104152 




EMT 

152 

.•DRIVE FAULT 

012322 

012330 

032737 

040000 

001352 


BIT 

#UNS.RMER1I 

;IS UNS SET?? 

301 

001022 




BNE 

5$ 

; YES ! ! 

302 

012332 

013737 

001352 

001142 


MOV 

RMER1 I. SBDDAT 

.‘RECEIVED STATUS 

303 

012340 

012737 

040000 

001140 


NOV 

fUNS.SGDDAT 

.‘EXPECTED STATUS 

;'t>VC" IS SET BUT ‘UNS ,# IS NOT 

304 

012346 

104153 




EMT 

153 

305 

306 

307 

012350 

000412 




BR 

5S 


012352 

032737 

040000 

001352 

4$: 

BIT 

fUNS.RMERII 

;IS UNS SET?? 

308 

012360 

001410 




BEQ 

6$ 

;N0!! 

309 

012362 

013737 

001352 

001142 


MOV 

RMER1 I. SBDDAT 

.‘RECEIVED STATUS 

310 

012370 

005037 

001140 



CLR 

SGDDAT 

.‘EXPECTED STATUS 

.•"DVC" IS NOT SET. BUT ’UNS" IS 

311 

012374 

104154 




EMT 

154 

312 

012376 

000137 

041256 


5$: 

JMP 

SEOSP 

.‘SKIP REST OF TEST 

313 









314 

012402 

032737 

004000 

001350 

6$: 

BIT 

#WRL, RMDSI 

;1S WRITE PROTECT ON?? 

315 

012410 

001412 




BEQ 

7S 

;N0! ! 

316 

012412 

0.3737 

001350 

001140 


NOV 

RMDSI.SGDDAT 

.■EXPECTED STATUS 

31 7 

012420 

042737 

166076 

001140 


BIC 

#*C<MOL ! PGM ! DPR ! DRY ! VV ! 0M> .SGDDAT 

318 

012426 

013737 

001350 

001142 


NOV 

RMDSI. SBDDAT 

.‘RECEIVED STATUS 

319 

320 

321 

012434 

104175 




EMT 

175 

.•SELECTED DEVICE IN WRITE PROTECT 

012436 

032737 

040000 

001400 

7$: 

BIT 

#SKI.RMER2I 

;IS SKI SET?? 
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,EQ 0092 


322 012444 

323 012446 

324 012454 

325 012460 

326 012462 

327 

328 


012462 

012462 

012464 

012466 

012472 

012476 

012502 

329 

330 012510 
012514 
012516 
012520 
012522 

331 012526 

332 012526 
012534 
012542 
012550 
012554 
012556 
012560 

333 012562 

334 Cl 2564 

335 012570 

336 

337 012574 
012600 
012602 
012604 

338 012606 

339 012610 

340 012610 
012614 
012616 
012620 
012622 

341 012624 

342 012626 

343 012626 
012632 
012634 
012636 
012640 

344 012642 


001406 

013737 001400 001142 
005037 001140 
104205 


BED 

8$ 

;N0!! 

MOV 

RMER2I.SBDDAT 

.•RECEIVED STATUS 

CLR 

SGDOAT 

.‘EXPECTED STATUS 

EMT 

205 

.•PERSISTENT SEEK INCOMPLETE ERROR 


000004 

000240 

012706 

013700 

013701 

012737 

004737 

000404 

000240 

104000 

000137 

112737 

112^37 

012737 

004737 

000403 

000240 

104000 

000427 

004737 

004737 

004737 

000403 

000240 

104000 

000415 

004737 

000404 

000240 

104000 

004736 

000406 

004737 

000403 

000240 

104000 

004736 


;*TEST 7 

; ; t***»*« 

TST7: 


PRIMARY/SECONDARY ERROR TEST 


001100 

001276 

001466 

000007 001226 
052466 


012642 

000000 001545 
000200 001546 
000023 001412 
043016 


042462 

043370 

042546 


043564 


044416 


SCOPE .‘SCOPE CALL 

NOP .-START OF TEST 

MOV #STACK.SP .-INITIALIZE STACK POSTER 

MOV S8ASE.R0 ;R0 = UNIBUS ADDRESS 

MOV TSTQUE.R1 ;<R1) * DEVICE BEING TESTED 

MOV #7,$TESTN ;;SET TEST NUMBER IN APT MAIL BOX 

JSR PC.CNTCLR ;G0 ISSUE CONTROLLER CLEAR 

BR IS ;G0 TO IS IF NO ERROR 

NOP .-RETURN HERE IF ERROR 

EMT .-ERROR NUMBER DEFINED BY SUBROO 'INt 

JMP 5S ;G0 TO 5$ IF ERROR 

MOVB #RMCS1 .PUTINX .-SETUP PUT INDEX TABLE 

MOVB #200,PUTINX*1 .-SET TERMINATOR BYTE 

MOV #PAKACK!G0.RMCS10 .-SET RMCS1 OUTPUT BUFFER = PAKACKIGO 

JSR PC. PUT ;G0 WRITE RMCS1 VIA PUT SUBROUTINE 

BR 2S .-GO TO 2S IF NO ERROR 

NOP .-RETURN HERE IF ERROR 

EMT .-ERROR DEFINED BY PUT SUBROUTINE 

BR 5S .-SKIP REST OF TEST IF ERROR 

JSR PC.GETSTS .-SETUP FOR STATUS FETCH 

JSR PC.TIMOUT .WAIT FOR COMPLETION OF NOP 

JSR PC. GET .-GO READ REGISTER(S) WITH GET SUBROUTINE 

BR 3$ ,-GO TO 3$ IF NO ERROR 

NOP .-RETURN HERE IF ERROR 

EMT .-ERROR # DEFINED BY GET SUBROUTINE 

BR 5S .-SKIP REST OF TEST IF ERROR 

JSR PC.PRIERR ;G0 CHECK FOR PRIMARY ERRORS 

BR 4$ ;G0 TO 4S IF NO ERROR 

NOP .-RETURN HERE IF ERROR 

EMT .-ERROR # DEFINED BY PRIERR SUBROUTINE 

JSR PC.a(SP>+ .‘GO BACK FOR MORE ERROR CHECKS 

BR 5$ .-SKIP REST OF TEST IF ERROR 

JSR PC.SECERR ;G0 CHECK FOR SECONDARY ERRORS 

BR 5$ .’GO TO 5$ IF NO ERROR 

NOP .-RETURN HERE IF ERROR 

EMT .‘ERROR # DEFINED BY SECERR SUBROUTINE 

JSR PC.a(SP>+ ;G0 BACK FOR MORE ERROR CHECKS 


.“TEST 10 


• # 


DIAGNOSTIC NODE TEST 
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012642 

012642 

000004 



TST10: 

SCOPE 


.-SCOPE CALL 

012644 

000240 




NOP 


.'START OF TEST 

012646 

012706 

001100 



MOV 

f STACK, SP 

.'INITIALIZE STACK POINTER 

012652 

013700 

001276 



MOV 

S8ASE.R0 

;R0 = UNIBUS ADDRESS 

012656 

013701 

001466 



MOV 

TSTQUE.R1 

;<R1> = DEVICE BEING TESTED 

012662 
34 7 

348 012670 

012737 

000010 

001226 


MOV 

HQ.STESTN 

;;SE T TEST NUMBER IN APT MAIL BOX 

004737 

052466 



JSR 

PC,CNTCLR 

;G0 ISSUE CONTROLLER CLEAR 

012674 

000404 



BR 

IS 

;G0 TO 1$ IF NO ERROR 

012676 

000240 




NOP 


.•RETURN HERE IF ERROR 

012700 

104000 




EMT 


.'ERROR NUMBER DEFINED BY SUBROUTINE 

012702 

000137 

013714 



JMP 

21$ 

;G0 TO 21$ IF ERROR 

34Q 012706 
350 012706 

112737 

000024 

001545 

1$: 

MOVB 

0RMMR1 .PUTINX 

.•SETUP PUT INDEX TABLE 

012714 

112737 

000200 

001546 


MOVB 

#200.PUTINX*1 

; SET TERMINATOR BYTE 

^2722 

012737 

000001 

001436 


MOV 

#DMD.RMMR10 

.'SET RMMR1 OUTPUT BUFFER = DMD 

012730 

004737 

043016 



JSR 

PC. PUT 

;G0 WRITE RMMR1 VIA PUT SUBROUTINE 

012734 

000404 



BR 

2$ 

;G0 TO 2$ IF NO ERROR 

012736 

000240 




NOP 


.'RETURN HERE IF ERROR 

012740 

104000 




EMT 


.‘ERROR DEFINED BY PUT SUBROUTINE 

012742 

000137 

013714 



JMP 

21$ 

;G0 TO 21$ IF ERROR 

351 012746 

352 

353 012752 

004737 

042462 


2$: 

JSR 

PC.GETSTS 

.•SETUP FOR STATUS FETCH 

004737 

042546 



JSR 

PC, GET 

;G0 READ REGISTER(S) WITH GET SUBROUTINE 

012756 

000404 




BR 

3$ 

;G0 TO 3$ IF NO ERROR 

012760 

000240 




NOP 


.'RETURN HERE IF ERROR 

012762 

104000 




EMT 


.•ERROR » DEFINED BY GET SUBROUTINE 

012764 

000137 

013714 



JMP 

21$ 

;G0 TO 21$ IF ERROR 

354 012770 

032737 

000001 

001362 

3$: 

BIT 

#DMD,RMMR1I 

;IS DIAGNOSTIC MODE SET?? 

355 012776 

001011 




BNE 

4$ 

.'YES!! 

356 013000 

012737 

000001 

001140 


MOV 

#DMD.$GDDAT 
RMMR1I ,$BDDAT 

.'EXPECTED STATUS 

357 013006 

013737 

001362 

001142 


MOV 

.'RECEIVED STATUS 

358 013014 

104176 




EMT 

176 


359 013016 

000137 

013714 



JMP 

21$ 

.'SKIP REST OF TEST IF DMD = 0 

360 013022 

032737 

010000 

001350 

4$: 

BIT 

fMOL.RMDSI 

;IS 'HOL" = 0 ?? 

361 013030 

00141 1 




BEQ 

5$ 

.'YES!! 

362 013032 

013737 

001350 

001142 


MOV 

RMD5I ,$BDDAT 

; SETUP BAD DATA FOR TYPEOUT 

363 013040 

042737 

167777 

001142 


BIC 

# A CMOL,$BDDAT 


364 013046 

005037 

001140 



CLR 

S6DDAT 

.'SETUP GOOD DATA FOR TYPEOUT 

365 013052 

104170 




EMT 

170 


366 013054 

032737 

020000 

001350 

5$: 

BIT 

fPJP.RMOSI 

;IS PIP SET?? 

367 013062 

001012 




BNE 

6$ 

;YES!! 

368 013064 

013737 

001350 

001142 


MOV 

RMDSI.S8DDAT 

# A CPIP.$8DDAT 

.'SETUP BAD DATA FOR TYPEOUT 

369 013072 

042737 

157777 

001142 


BIC 


370 013100 

012737 

020000 

001140 


MOV 

#PIP,$GDDAT 

.'EXPECTED PIP SET 

371 013106 

104200 




EMT 

200 


372 013110 

032737 

004000 

001350 

6$: 

31 T 

fWRL.RMDSI 

;IS WRITE LOCK OFF?? 

373 013116 

001411 




BEQ 

7$ 

;YES!! 

374 013120 

013737 

001350 

001142 


MOV 

RMDSI ,$BDDAT 

.'SETUP BAD DATA FOR TYPEOUT 

375 013126 

042737 

173777 

001142 


BIC 

# A CWRL.$BDDAT 


376 013134 

005037 

001140 



CLR 

SGDDAT 

.'EXPECTED WRL = 0 

377 013140 

104201 




EMT 

201 


378 013142 

032737 

040000 

001400 

7$: 

BIT 

#SKI.RMER2I 

;IS SKI = 0 

379 013150 

001411 




BEQ 

8$ 

;YES!! 

380 013152 

013737 

001400 

001142 


MOV 

RMER2I,SBDDAT 

.'SETUP BAD DATA FOR TYPEOUT 

381 013160 

042737 

137777 

001142 


BIC 

# A CSKI,$BDDAT 




D 8 


SEO 0094 
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382 013166 

0C5037 

001140 



CLR 

SGD^AT 

383 013172 

104202 




EMT 

202 

384 013174 

032737 

000200 

001400 

8$: 

BIT 

#DVC.RMER2I 

385 013202 

0014,1 




8EQ 

9$ 

386 013204 

013737 

001400 

001142 


MOV 

RMER2I ,$BDDAT 

387 013212 

042737 

177577 

001142 


BIC 

#*CDVC,$BDDAT 

388 013220 

005037 

001140 



CLR 

SGDDAT 

389 013224 

390 013226 

104203 



9$: 

EMT 

203 

#RMMR1 .PUTINX 

391 013226 

112737 

000024 

001545 


HOVB 

013234 

112737 

000200 

001546 


MOVB 

#200.PUTINX*1 

#DMD:MUR!MOC!F 

013242 

012737 

001711 

001436 


MOV 

013250 

004737 

043016 



JSR 

PC, PUT 

10$ 

013254 

000404 




BR 

013256 

000240 




NOP 


013260 

104000 




EMT 

21$ 

013262 

000137 

013714 



JMP 

392 013266 

393 013266 

004737 

042546 


10$: 

JSR 

PC.GET 

11$ 

013272 

000404 




BR 

013274 

000240 




NOP 


013276 

104000 




EMT 


013300 

000137 

013714 



JMP 

21$ 

394 013304 

032737 

000001 

001362 

11$: 

BIT 

#DMD,RMMR1I 

395 013312 

001011 




BNE 

12$ 

396 013314 

012737 

000001 

001140 


MOV 

#DMD.$GDDAT 

RMMR1I.$BDDAT 

397 013322 

013737 

001362 

001142 


MOV 

398 013330 

104176 




EMT 

176 

399 013332 

000137 

013714 



JMP 

21$ 

400 013336 

032737 

010000 

001350 

12$: 

BIT 

#MOL. RMDSI 

401 013344 

001012 




BNE 

13$ 

402 013346 

013737 

001350 

001142 


MOV 

RMDSI ,$BDDAT 

403 013354 

042737 

167777 

001142 


BIC 

f*CM0L,$8DDAT 

404 013362 

012737 

010000 

001140 


MOV 

#M0L.$GDDAT 

405 013370 

104170 




EMT 

170 

406 013372 

032737 

020000 

001350 

13$: 

BIT 

#PIP, RMDSI 

407 013400 

001411 




BEO 

14$ 

408 013402 

013737 

001350 

001142 


MOV 

RMDSI, $8DDAT 

409 013410 

042737 

157777 

001142 


BIC 

#*CPIP,$8DDAT 

410 013416 

005037 

001140 



CLR 

$GDDAT 

411 013422 

104200 




EMT 

200 

412 013424 

032737 

004000 

001350 

14$: 

BIT 

#WRL, RMDSI 

413 013432 

001012 




BNE 

15$ 

414 013434 

013737 

001350 

173777 

001142 


MOV 

RMDSI, $BDDAT 

415 013442 

042737 

001142 


BIC 

#*CWRL,$BDDAT 

416 013450 

012737 

004000 

001140 


MOV 

#WRL,$GDDAT 

417 013456 

104201 




EMT 

201 

418 013460 

032737 

040000 

001400 

15$: 

BIT 

*SKI,RMER2I 

419 013466 

001012 




BNE 

16$ 

420 013470 

013737 

001400 

001142 


MOV 

RMER2I,$8DDAT 

421 013476 

042737 

137777 

001142 


BIC 

#*CSKI,$BDDAT 

422 013504 

012737 

040000 

001140 


MOV 

#SKI,$GDDAT 

423 013512 

104202 




EMT 

202 

424 013514 

032737 

000200 

001400 

16$: 

BIT 

*DVC,RMER2I 

425 013522 

001012 




BNE 

17$ 

426 013524 

013737 

001400 

001142 


MOV 

RMER2I,$BDDAT 

427 013532 

042737 

177577 

001142 


BIC 

rCDVC.$BDDAT 


,'SKI SHOULD BE 0 

; I S DEVICE CHECK = 0?? 

•YES' ' 

•SETUP BAD DATA FOR TYPEOUT 
;DVC SHOULD BE 0 


;SET RMMR1 OUTPUT BUFFER = 


.•SETUP PUT INDEX TABLE 
;SET TERMINATOR BYTE 
•R.'MDF !MWP,RMMR10 

;G0 WRITE RMMR1 VIA PUT SUBROUTINE 
;G0 TO 10$ IF NO ERROR 
.-RETURN HERE IF ERROR 
.'ERROR DEFINED BY PUT SUBROUTINE 
;G0 TO 21$ IF ERROR 

;G0 READ REGISTER(S) WITH GET SUBROUTINE 

;G0 TO 11$ IF NO ERROR 

.'RETURN HERE IF ERROR 

.'ERROR 0 DEFINED BY GET SUBROUTINE 

;G0 TO 21$ IF ERROR 

;IS DIAGNOSTIC MODE SET?? 

‘YES 1 1 

'EXPECTED STATUS 
.'RECEIVED STATUS 

.'SKIP REST OF TEST IF DMD = 0 
;IS MOL = 1?? 

‘YES 1 1 

•SETUP BAD DATA FOR TYPEOUT 
.'EXPECTED MOL = 1 
;IS PIP = 0 ? 

•yes 1 * 

•SETUP BAD DATA FOR TYPEOUT 

.'EXPECTED PIP STATUS 

;IS URL SET?? 

•YES' 1 

•SETUP BAD DATA FOR TYPEOUT 
.-EXPECTED GOOD STATUS 
;IS SKI SET?? 

• yes* * 

•BAD* DATA FOR TYPEOUT 

.'EXPECTED SKI ON 

;IS DVC SET ?? 

•YES' ' 

•BAD DATA FOR TYPEOUT 


DMD ! MUR ! H 
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E 8 


SEQ 0095 


447 

448 


013540 

012737 

000200 

001140 


MOV 

013546 

013550 

104203 

032737 

000100 

001350 

17$: 

EMT 

BIT 

013556 

001411 




BEQ 

013560 

013737 

001350 

001142 


MOV 

013566 

042737 

177677 

001142 


B1C 

013574 

005037 

001140 



CLR 

013600 

1042C4 




EMT 

013602 




18$: 


013602 

112737 

000000 

001545 


MOVB 

013610 

112737 

000200 

001546 


mm 

013616 

012737 

000011 

001412 


MOV 

013624 

004737 

043016 



JSR 

013630 

000404 




BR 

013632 

000240 




NOP 

013634 

104000 




EMT 

013636 

000137 

013714 



JMP 

013642 




19$: 


013642 

004737 

042546 



JSR 

013646 

000404 




BR 

013650 

000240 




NOP 

013652 

104000 




EMT 

013654 

000137 

013714 



JMP 

013660 

032737 

002000 

001400 

20$: 

BIT 

013666 

001012 




BNE 

013670 

013737 

001400 

001142 


MOV 

013676 

012737 

002000 

001140 


MOV 

013704 

042737 

002000 

001142 


BIC 

013712 

104262 




EMT 

013714 




21$: 



449 


WC.SGDDAT 

203 

fVV.RMDSI 

18S 

RMDSI .SBDDAT 
fCVV.SBDDAT 
SGDDAT 

204 


.•EXPECTED DVC ON 

;MUR SHOULD HAVE RESET VOLUME VALID 
.BRANCH IF IT DID 
;BAD DATA FOR TYPEOUT 

.•GOOD DATA FOR TYPEOUT 


0RMCS1.PUTINX 
#200.PUTINX+1 
#DRVCLR!G0.RMCS10 
PC, PUT 
i9i 


21 $ 


PC. GET 

20i 


21 $ 


[. SBDDAT 

hi 


SETUP PUT INDEX TABLE 
SET TERMINATOR BYTE 

;SET RMCS1 OUTPUT BUFFER = DRVCLR!GO 
GO WRIT§ RMCS1 VIA PUT SUBROUTINE 
GO TO 19$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR DEFINED BY PUT SUBROUTINE 
GO TO 21$ IF ERROR 

GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 20$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR f DEFINED BY GET SUBROUTINE 

GO TO 21$ IF ERROR 

IS LBC SET ?? 

YES 1 1 

BAD 'DATA FOR TYPEOUT 
GOOD DATA FOR TYPEOUT 


♦TEST II 


PACK ACKNOWLEDGE TEST 


013714 

013714 

000004 



TST11 : 

SCOPE 

013716 

000240 




NOP 

013720 

012706 

001100 



MOV 

013724 

013700 

001276 



MOV 

013730 

013701 

001466 



MOV 

013734 

012737 

000011 

001226 


MOV 

013742 

004737 

052466 



JSR 

013746 

000404 




BR 

013750 

000240 




NOP 

013752 

104000 




EMT 

013754 

000137 

014214 



JMP 

013760 

013760 

112737 

000024 

001545 

1$: 

MOVB 

013766 

112737 

000200 

001546 


MOVB 

013774 

012737 

000001 

001436 


MOV 

G14002 

004737 

043016 



JSR 

014006 

000404 




BR 

014010 

000240 




NOP 

014012 

104000 




EMT 

014014 

014020 

000137 

014214 


2$: 

JMP 


fSTACK.SP 

SBASE.RO 

TSTQUE.R1 

fll.STESTN 

PC.CNTCLR 

1 $ 


8 $ 

fRMMRI .PUTINX 
#200,PUTINX*1 
#DMD,RNNR10 
PC. PUT 
2 $ 


8 $ 


SCOPE CALL 

START OF TEST 

INITIALIZE STACK POINTER 

RO = UNIBUS ADDRESS 

(R1) = DEVICE BEING TESTED 

;SET TEST NUMBER IN APT MAIL BOX 

GO ISSUE CONTROLLER CLEAR 
GO TO 1$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR NUMBER DEFINED BY SUBROUTINE 
GO TO 8$ IF ERROR 

SETUP PUT INDEX TABLE 

SET TERMINATOR BYTE 

SET RMMR1 OUTPUT BUFFER = DMD 

GO WRITE RMMR1 VIA PUT SUBROUTINE 

GO TO 2$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR DEFINED BY PUT SUBROUTINE 

GO TO 8$ IF ERROR 
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454 014020 

112737 

000024 

001545 


Move 

*RMMR1,PUT1NX 

.'SETUP PUT INDEX TABLE 

014026 

112737 

000200 

001546 


movb 

#200,PUTINX*1 

.SET TERMINATOR BYTE 

014034 

012737 

000000 

001436 


MOV 

*0,RMMR10 

;SET RMMR1 OUTPUT BUFFER = 0 

014042 

004737 

043016 



JSR 

PC, PUT 

;G0 WRITE RMMR1 VIA PUT SUBROUTINE 

014046 

000404 




BR 

3$ 

;G0 TO 3S IF NO ERROR 

014050 

000240 




NOP 


.•RETURN HERE IF ERROR 

014052 

104000 




EMT 


.•ERROR DEFINED BY PUT SUBROUTINE 

014054 

000137 

014214 



JMP 

8$ 

;G0 TO 8$ IF ERROR 

455 014060 

456 014060 

112737 

000000 

001545 

3$: 

MOVB 

0RMCS1 , PUT I NX 

.-SETUP PUT INDEX TABLE 

014066 

112737 

000200 

001546 


M0V8 

#200,PUTINX*1 

.'SET TERMINATOR BYTE 

014074 

012737 

000023 

001412 


MOV 

#PAKACK!G0,RMCS10 ;SET RMCS1 OUTPUT BUFFER = PAKACK ! GO 

014102 

004737 

043016 



JSR 

PC, PUT 

;G0 WRITE RMCS1 VIA PUT SUBROUTINE 

014106 

000404 




BR 

4$ 

;G0 TO 4$ IF NO ERROR 

014110 

000240 




NO? 


.-RETURN HERE IF ERROR 

014112 

104000 




EMT 


.'ERROR DEFINED BY PUT SUBROUTINE 

014114 

000137 

014214 



JMP 

8$ 

;G0 TO 8$ IF ERROR 

457 014120 

004737 

042462 


41: 

JSR 

PC,GETSTS 


458 014124 

459 

004737 

043370 



JSR 

PC,TJMOUT 

.-WAIT FOR COMPLETION 

460 014130 

004737 

042546 



JSR 

PC, GET 

;G0 READ REGISTER (S) WITH GET SUBROUTINE 

014134 

000403 




BR 

5$ 

;G0 TO 5$ IF NO ERROR 

014136 

000240 




NOP 


.-RETURN HERE IF ERROR 

014140 

104000 




EMT 


; ERROR # DEFINED BY GET SUBROUTINE 

461 014142 

462 014144 

000424 



5$: 

BR 

8$ 

.‘SKIP REMAINDER OF TEST 

463 014144 

004737 

043564 



JSR 

PC,PRIERR 

;G0 CHECK FOR PRIMARY ERRORS 

014150 

000404 




BR 

6$ 

;G0 TO 6S IF NO ERROR 

014152 

000240 




NOP 


.RETURN HERE IF ERROR 

014154 

104000 




EMT 


.•ERROR f DEFINED BY PRIERR SUBROUTINE 

014156 

004736 




JSR 

PC,a<SP>* 

;G0 BACK FOR MORE ERROR CHECKS 

464 014160 

465 014162 

000415 

004737 



6$: 

BR 

8$ 

.•SKIP TO NEXT TEST 

466 014162 

053464 



JSR 

PC,ACKSTS 

;G0 VERIFY PACK ACKNOWLEDGE 

014166 

000404 




BR 

7$ 

;G0 TO 7$ IF NO ERROR 1 

014170 

000240 




NOP 


.•RETURN HERE IF ERROR 

014172 

104000 




EMT 


.’ERROR f DEFINED BY ACKSTS SUBROUTINE 

014174 

004736 




JSR 

PC,a<SP>* 

;G0 BACK FOR MORE ERROR CHECKS 

467 014176 

468 

000406 




BR 

8$ 

.'SKIP TO NEXT TEST 

469 014200 

470 014200 

004737 

044416 


7$: 

JSR 

PC,SECERR 

;G0 CHECK FOR SECONDARY ERRORS 

014204 

000403 




BR 

8$ 

;G0 TO 8$ IF NO ERROR 

014206 

000240 




NOP 


.•RETURN HERE IF ERROR 

014210 

104000 




EMT 


.•ERROR » DEFINED BY SECFRR SUBROUTINE 

014212 

004736 




JSR 

PC,a<SP>* 

;G0 BACK FOR MORE ERROR CHECKS 

471 014214 

472 




8$: 




473 




•• *************************************************************** 





;*TEST 

12 

RECALIBRATE TEST 





•;*************************************************************** I 

014214 

014214 

000004 



TST12: 

SCOPE 


.•SCOPE CALL 

014216 

000240 

012706 




NOP 


.START OF TEST 

014220 

001100 



MOV 

#STACK,SP 

.’INITIALIZE STACK POINTER 

014224 

013700 

001276 



MOV 

S8ASE,R0 

;R0 = UNIBUS ADDRESS 

014230 

013701 

001466 



NOV 

TSTQUE,R1 

;(R1) = DEVICE BEING TESTED 

J 



CZRNDAO 

T12 


474 

475 


476 

477 


478 

479 

480 

481 




486 

487 


488 

489 

490 


G 8 
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014234 

012737 

000012 001226 

MOV 

#12,STESTN 

014242 

004737 

041532 

JSR 

PC. TSTPRP 
056020 

014246 

050020 

.WORD 


014250 

000404 




BR 

is 

014252 

000240 




NOP 

< 

014254 

104000 




EMT 

4 

014256 

000137 

014424 



JMP 

6S 

014262 




IS: 



014262 

112737 

000000 

001545 


MOVB 

fRMCSI .PUTINX 

014270 

112737 

000200 

001546 


M0V8 

#200,PUTINX*1 

014276 

012737 

000007 

001412 


MOV 

ARE CAL 1G0.RMCS10 

014304 

004737 

043016 



JSR 

PC. PUT 

014310 

000404 




BR 

2S 

014312 

000240 




NOP 


014314 

104000 




EMT 


014316 

000137 

014424 



JMP 

6S 

014322 

004737 

042462 


2S: 

JSR 

PC.GETSTS 

014326 

004737 

043370 



JSR 

PC.TIMOUT 

014332 

004737 

042546 



JSR 

PC. GET 

014336 

000404 




BR 

3S 

014340 

000240 




NOP 


014342 

104000 




EMT 


014344 

000137 

014424 



JMP 

6S 

014350 




3S: 



014350 

004737 

043564 



JSR 

PC, PRIERR 

014354 

000405 




BR 

4S 

014356 

000240 




NOP 


014360 

104000 




EMT 


014362 

004736 




JSR 

PC.i(SP)* 

014364 

000137 

014424 



JMP 

6S 

014370 




4S: 



014370 

004737 

054260 



JSR 

PC. RCLSTS 

014374 

000405 




BR 

5S 

014376 

000240 




NOP 


014400 

104000 




EMT 


014402 

004736 




JSR 

pc,a<sp>* 

014404 

000137 

014424 



JMP 

6$ 

014410 




5S: 



014410 

004737 

044416 



JSR 

PC. SECERR 

014414 

000403 




BR 

6S 

014416 

000240 




NOP 


Cl 4420 

104000 




EMT 


01442? 

ni'.4?4 

004736 



AS; 

JSR 

pc,a<$.°>* 


; SE T TEST NUMBER IN APT MAIL BOX 

PREPARE OEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 

CLEAR CONTROLLER 8 SELECT DEVICE 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK. ACKNOWLEDGE 

GO TO IS IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY TSTPRP SUBROUTINE 

GO TO 6S IF ERROR 

SETUP PUT INDEX TABLE 
SET TERMINATOR BYTE 

;SET RMCS1 OUTPUT BUFFER = RECALJGO 
GO WRITE RMCS1 VIA PUT SUBROUTINE 
GO TO 2$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR DEFINED BY PUT SUBROUTINE 
GO TO 6$ IF ERROR 
GO SETUP FOR STATUS FETCH 
WAIT FOR COMPLETION 

GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 3$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY GET SUBROUTINE 

GO TO 6$ IF ERROR 

GO CHECK FOR PRIMARY ERRORS 

GO TO 4$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PRIERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 6$ IF ERROR 

GO VERIFY RECALIBRATE OPERATION 

GO TO 5$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY RCLSTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 6S IF ERROR 

GO CHECK FOR SECONDARY ERRORS 

GO TO 6$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR » DEFINED BY SECERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 




;;****‘ 

.-•TEST 

13 

ABORT RECALIBRATE TEST 

0000 

WM 

000004 

000240 

012706 001100 

;;****' 

TST13: 

SCOPE 

NOP 

MOV 

.SCOPE CALL 
.•START OF TEST 

fSTACK.SP .-INITIALIZE STACK POINTER 


SEO 0097 



M 8 


T13 


491 


RM80 FCTNL PT 1 

MACRO V0< 

i.OO 28-JAN-82 

16:24:51 

ABORT RECALIBRATE TEST 



014434 

013700 

001276 


MOV 

014440 

013701 

001466 


MOV 

014444 

012737 

000001 

001206 

MOV 

014452 

012737 

000013 

001226 

MOV 

014460 

004737 

041532 


JSR 

014464 

054130 



.WORD 


SEQ 0098 


S8ASE.R0 
TSTQUE.R1 
#1 .STINES 
flJ.STESTN 

PC.TSTPRP 

054130 


014466 

000404 




BR 

IS 


014470 

000240 




NOP 



014472 

104000 




EMT 



014474 

000137 

014732 



JMP 

9S 


493 014500 




IS: 




494 014500 

112737 

000014 

001545 


HUVB 

fRMERI .PUTINX 


014506 

112737 

000200 

001546 


H0V8 

#200.PUTINXH 


014514 

012737 

040000 

001426 


MOV 

AUNS.RMER10 


014522 

004737 

043016 



JSR 

PC. PUT 


014526 

000404 




BR 

2S 


014530 

000240 




NOP 



014532 

104000 




EMT 



014534 

000137 

014732 



JMP 

9$ 


495 014540 




2S: 




496 014540 

112737 

000000 

001545 


MOVE 

fRMCSI .PUTINX 


014546 

112737 

000200 

001546 


N0V8 

#200.PUTINX*1 


014554 

012737 

000007 

001412 


NOV 

fRECAL iGO.RMCSIO 

014562 

004737 

043016 



JSR 

PC. PUT 


014566 

000404 




BR 

3S 


014570 

000240 




NOP 



014572 

104000 




EMT 



014574 

000137 

014732 



JMP 

9S 


497 014600 

004737 

042462 


3S: 

JSR 

PC.GETSTS 


498 

499 014604 

004737 

042546 



JSR 

PC. GET 


014610 

000404 




BR 

4S 


014612 

000240 




NOP 



014614 

104000 




EMT 



014616 

000137 

014732 



JMP 

9S 


500 014622 

032737 

020000 

001350 

4S: 

BIT 

fPIP.RMDSI 


501 014630 

001401 




BEO 

5S 


502 014632 

104214 




EMT 

214 


503 014634 

004737 

043370 


5S: 

JSR 

PC.TIMOUT 


504 

505 014640 

004737 

042546 



JSR 

PC, GET 


014644 

000404 




BR 

6S 


014646 

000240 




NOP 



014650 

104000 




EMT 



014652 

000137 

014732 



JMP 

9S 


506 014656 




6S: 




507 014656 

004737 

043564 



JSR 

PC, PRIERR 


014662 

000405 




BR 

7S 


014664 

000240 




NOP 



014666 

104000 




EMT 




;R0 = UNIBUS ADDRESS 
;(R1) = DEVICE BEING TESTED 
;;D0 1 ITERATION 

; ; SET TEST NUMBER IN APT MAIL BOX 

; PREPARE DEVICE FOR TEST 
;TASK DESCRIPTOR AS FOLLOWS: 

; CLEAR CONTROLLER 6 SELECT DEVICE 
.VERIFY CONTROLLER CLEAR OPERATION 
.-PACK ACKNOWLEDGE IF VOLUME NOT VALID 
; VERIFY PACK ACKNOWLEDGE 
.-RECALIBRATE IF "SKI" OR "PIP" IS SET 
.-VERIFY RECALIBRATION 


IOR # DEFINED BY TSTPRP SUBROUTINE 
TO 9$ IF ERROR 


ERROR 


: SET RMCS1 OUTPUT BUFFER = RE CALICO 


GO READ REGISTERS) WITH GET S16R0UTINE 

GO TO AS IF NO ERROR 

RETURN HERE IF ERROR 

ERROR » DEFINED BY GET SUBROUTINE 

GO TO 9$ IF ERROR 

DID THE DRIVE RECALIBRATE?? 

;N0! I 

.-WAIT FOR COMPLETION 

GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 6$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY GET SUBROUTINE 

GO TO 9$ IF ERROR 

GO CHECK FOR PRIMARY ERRORS 

GO TO 7S IF NO ERROR 

RETURN HERE IF ERROR 

ERROR « DEFINED BY PRIERR SUBROUTINE 



I 8 



SEO 0099 


;G0 BACK FOR MORE ERROR CHECKS 
;G0 TO 9$ IF ERROR 

;G0 CHECK FOR CHANGES IN DRIVE STATUS 

;G0 TO 8S IF NO ERROR 

.'RETURN HERE IF ERROR 

.‘ERROR * DEFINED BY STCDRVSTS SUBROUTINE 

;G0 BACK FOR MORE ERROR CHECKS 

;G0 TO 9$ IF ERROR 

;G0 CHECK FOR SECONDARY ERRORS 

;G0 TO 9$ IF NO ERROR 

.•RETURN HERE IF ERROR 

.-ERROR # DEFINED BY SECERR SUBROUTINE 

;G0 BACK FOR WORE ERROR CHECKS 


TEST 


SCOPE CALL 
START OF TEST 
INITIALIZE STACK POINTER 
RO = UNI BUS ADDRESS 
(A1) = DEVICE BEING TESTED 
;D0 1 ITERATION 

;SET TEST NUMBER IN APT NAIL BOX 

PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 

CLEAR CONTROLLER ( SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATF IF ‘■SKr’ OR "PIP” IS SET 

VERIFY RECALIBRATION 

GO TO 1$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY TSTPRP SUBROUTINE 

GO TO 8$ IF ERROR 

SETUP PUT INDEX TABLE 

SET TERMINATOR BYTE 

SET RMMR1 OUTPUT BUFFER = DND 

GO WRITE RMMR1 VIA PUT SUBROUTINE 

GO TO 2% IF NO ERROR 

RETURN HERE IF ERROR 

ERROR DEFINED BY PUT SUBROUTINE 

GO TO 8$ IF ERROR 

SETUP PUT INDEX TABLE 

SET TERMINATOR BYTE 

SET RMMR1 OUTPUT BUFFER = 0 

GO WRITE RMMR1 VIA PUT SUBROUTINE 

GO TO 3$ IF NO ERROR 

RETURN HERE IF ERROR 



J 8 


SCO 0100 
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015100 

104000 




EMT 

8$ 

015102 

000137 

015242 


3$: 

JMP 

521 015106 

52 2 015106 

112737 

000000 

001545 

M0V9 

#RMCS1 .PUTINX 


015114 

112737 

000200 

00 1 546 


M0V8 

#200.PUTINX*1 

015122 

012737 

000007 

001412 


MOV 

#RECAL IG0.RMCS10 

015130 

004737 

043016 



JSR 

PC. PUT 

015134 

000404 




BR 

4$ 

015136 

000240 




NOP 


015140 

104000 




EMT 

8S 

015142 

000137 

015242 



JMP 

523 015146 

004737 

042462 


4$: 

JSR 

PC.GETSTS 

524 015152 

525 

526 015156 

004737 

043370 



JSR 

PC.TIMOUT 

004737 

042546 



JSR 

PC. GET 

015162 

000404 




BR 

5S 

015164 

000240 




NOP 


015166 

104000 




EMT 

8$ 

015170 

000137 

015242 


5$: 

JMP 

527 015174 

528 015174 

004737 

043564 


JSR 

PC, PRIERR 



015200 

015202 

015204 

015206 

015210 

529 015214 

530 015222 

531 015224 

532 015226 

533 015226 
015232 
015234 
015236 
015240 

534 015242 

535 

536 


000405 

000240 

104000 

004736 

000137 

032737 

001001 

104215 

004737 

000403 

000240 

104000 

004736 


015242 

010000 001400 


044416 


6 $: 

7$: 


8S: 


m 

HOP 

EMT 

JSR 

JMP 

BIT 

BNE 

EMT 

JSR 

BR 

NOP 

EMT 

JSR 


PC,8(SP)* 

8 $ 

#IVC.RMER2I 

7$ 

215 

PC.SECERR 

8 $ 


pc.aisp)* 


.•ERROR DEFINED BY PUT SUBROUTINE 
;G0 TO 8$ IF ERROR 

.•SETUP PUT INDEX TABLE 
;SET TERMINATOR BYTE 

•SET RMCS1 OUTPUT BUFFER = RE CAL ! GO 
GO WRITE RMCS1 VIA PUT SUBROUTINE 
GO TO 4$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR DEFINED BY PUT SUBROUTINE 
GO TO 8$ IF ERROR 
SETUP FOR STATUS FETCH 
WAIT FOR RECAL TO COMPLETE 

GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 5$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY GET SUBROUTINE 

GO TO 8$ IF ERROR 

GO CHECK FOR PRIMARY ERRORS 

GO TO 6$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR 0 DEFINED BY PRIERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 8$ IF ERROR 

IVC SHOULD BE SET 

IT IS - GO CHECK SECONDARY ERRORS 


GO CHECK FOR SECONDARY ERRORS 

GO TO 8$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR 0 DEFINED BY SECERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 




.-•TEST 15 


IAE RECALIBRATE TEST 


537 


015242 

015242 

000004 


TST15: 

SCOPE 

015244 

000240 



NOP 

015246 

012706 

001100 


MOV 

015252 

013700 

001276 


MOV 

015256 

013701 

001466 


MOV 

015262 

012737 

000001 

001206 

MOV 

015270 

012737 

000015 

001226 

MOV 

015276 

004737 

041532 


JSR 

015302 

054130 



.WORD 


fSTACK.SP 

SBASE.RO 

TSTQUE.R1 

fl.STIMES 

flS.STESTN 

PC.TSTPRP 

05*130 


SCOPE CALL 
START OF TEST 
INITIALIZE STACK POINTER 
RO = UNIBUS ADDRESS 
(R1) * DEVICE BEING TESTED 
.DO 1 ITERATION 

.SET TEST MJNBER IN APT MAIL BOX 

PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 

CLEAR CONTROLLER l SELECT DEVICE 
VERIFY CONTROLLER CLEAR OPERATION 
PACK ACKNOWLEDGE IF VOLUME NOT VALID 
VERIFY PACK ACKNOWLEDGE 
RECALIBRATE IF "SKr* OR 'PIP IS SET 
VERIFY RECALIBRATION 
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K 


8 


SEO 0101 


015304 

000404 




BR 

IS 

GO TO IS IF NO ERROR 

015306 

000240 




NOP 


return here if error 

015310 

104000 




ENT 


ERROR # DEFINED BY TSTPRP SUBROUTINE 

015312 

000* 37 

015504 



JMP 

6$ 

GO TO 6S IF ERROR 

539 015316 




1$: 




540 015316 

012737 

177777 

001446 


NOV 

#-1 ,RNDCO ; 

RNDC WILL BE ALL ONES 

541 015324 

012737 

177777 

001420 


NOV 

#-1 .RNDAO 

RNDA WILL BE ALL ONES 

542 015332 

012737 

000007 

001412 


NOV 

fRECAL IG0.RNCS10 


543 015340 

012702 

001545 



NOV 

#PUTINX,R2 

R2 POINTS TO PUT INDEX TABLE 

544 015344 

112722 

000034 



NOVB 

#RNDC,(R2)* 

SETUP PUT INDEX TABLE 

545 015350 

112722 

000006 



N0V8 

#RNDA. (R2) ♦ 


546 015354 

112722 

000000 



mivB 

#RNCS 1 , (R2) ♦ 


547 015360 

112722 

000200 



•*OVB 

#200, (R2)* 


548 015364 

004737 

043016 



JSR 

PC, PUT 

GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

015370 

000404 




BR 

2$ 

GO TO 2S IF NO ERROR 

015372 

000240 




NOP 


RETURN HERE IF ERROR 

015374 

104000 




ENT 


ERROR # DEFINED BY PUT SUBROUTINE 

015376 

000137 

015504 



JMP 

6$ 

GO TO 6S IF ERROR 

549 015402 

004737 

042462 


2$: 

JSR 

PC.GE7STS 

SETUP FOR STATUS FETCH 

550 015406 

551 

004737 

043370 



JSR 

PC,TINOUT 

WAIT FOR GO TO RESET 

552 015412 

004737 

042546 



JSR 

PC, GET 

GO READ REGISTER(S) WITH GET SUBROUTINE 

015416 

000404 




BR 

3S 

GO TO 3S IF NO ERROR 

015420 

000240 




NOP 


RETURN HERE IF ERROR 

015422 

104000 




ENT 


ERROR # DEFINED BY GET SUBROUTINE 

015424 

000137 

015504 



JMP 

6$ 

GO TO 6S IF ERROR 

553 015430 




3$: 




554 015430 

004737 

043564 



JSR 

PC,PRIERR 

GO CHECK FOR PRINARY ERRORS 

015434 

000405 




BR 

4$ 

GO TO 4S IF NO ERROR 

015436 

000240 




NOP 


RETURN HERE IF ERROR 

015440 

104000 




ENT 


ERROR # DEFINED BY PRIERR SUBROUTINE 

015442 

004736 




JSR 

pc,a<sp)* 

GO BACK FOR NORE ERROR CHECKS 

015444 

000137 

015504 



JNP 

6$ 

GO TO 6S IF ERROR 

555 015450 




4$: 




556 015450 

004737 

054260 



JSR 

PC,RCLSTS 

GO VERIFY RECALIBRATE OPERATION 

015454 

000405 




BR 

5$ 

GO TO 5S IF NO ERROR 

015456 

000240 




NOP 


RETURN HERE IF ERROR 

015460 

104000 




ENT 


ERROR # DEFINED BY RCLSTS SUBROUTINE 

015462 

004736 




JSR 

pc,a<sp>* 

GO BACK FOR MORE ERROR CHECKS 

015464 

000137 

015504 



JNP 

6$ 

GO TO 6S IF ERROR 

557 015470 




5$: 




558 015470 

004737 

044416 



JSR 

PC,SECERR 

GO CHECK FOR SECONDARY ERRORS 

015474 

000403 




BR 

6$ 

GO TO 6S IF NO ERROR 

015476 

000240 




NOP 


RETURN HERE IF ERROR 

015500 

104000 




ENT 


ERROR # DEFINED BY SECERR SUBROUTINE 

015502 

004736 




JSR 

pc,a<sp>* 

GO BACK FOR MORE ERROR CHECKS 

559 015504 




6$: 




560 








561 




;;***“ 








;*TEST 

16 

RECALIBRATE AT OFFSET 

015504 




•;****< 

tST16: 




015504 

000004 




SCOPE 


SCOPE CALL 

015506 

000240 




NOP 


START OF TEST 

015510 

012706 

001100 



NOV 

#STACK,SP 

INITIALIZE STACK POINTER 

015514 

013700 

001276 



NOV 

S8ASE.R0 

RO = UNI BUS ADDRESS 

015520 

013701 

001466 



NOV 

TST0UE.R1 

(R1) - DEVICE BEING TESTED 



L 8 
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SEQ 0102 


015524 012737 000001 001206 

015532 012737 000016 001226 

562 

563 015540 004737 041532 
015544 050020 


015546 

015550 

015552 

015554 

564 015560 

565 015560 
015566 
015574 
015602 
015606 
015610 
015612 
015614 

566 015620 

567 015620 
015626 
015634 
015642 
015646 
015650 
015652 
015654 

568 015660 

569 

570 

015660 

571 

572 

015664 

573 

574 015670 
015674 
015676 
015700 
015702 

575 015706 

576 015706 
015712 
015714 
015716 
015720 
015722 

577 015726 

578 015726 
015732 
015734 
015736 
015740 
015742 


000404 

000240 

104000 

000137 

112737 

112737 

012737 

004737 

000404 

000240 

104000 

000137 

112737 

112737 

012737 

004737 

000404 

000240 

104000 

000137 


015762 

000000 

000200 

000015 

043016 


015762 

000000 

000200 

000007 

043016 


015762 


001545 

001546 

001412 


IS: 


004737 042462 


004737 

004737 

000404 

000240 

104000 

000137 

004737 

000405 

000240 

104000 

004736 

000137 

004737 

000405 

000240 

104000 

004736 

000137 


001545 

001546 

001412 


2 $: 


3$: 


MOV 

MOV 

JSR 

.WORD 


BR 

NOP 

EMT 

JMP 

Move 

MOVB 

MOV 

JSR 

BR 

NOP 

EMT 

JMP 

MOVB 

MOVB 

MOV 

JSR 

BR 

NOP 

EMT 

JMP 


#1 .STJMES 
#16,$TESTN 

PC.TSTPRP 

056020 


IS 

7S 


#RMCS1 ,PUTINX 
#200,PUTINX+1 
fOFFSET !GO,RMCS10 
PC, PUT 

2S 


7S 

#RMCS1 .PUTINX 
#200,PUTINX*1 
#RECAL!G0,RMCS10 
PC, PUT 

3S 


7S 


;D0 1 ITERATION 

;SET TEST NUM8ER IN APT HAIL BOX 

PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 

CLEAR CONTROLLER S SELECT DEVICE 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

GO TO IS IF NO ERROR 

RETURN HERE IF ERROR 

ERROR 0 DEFINED BY TSTPRP SUBROUTINE 

GO TO 7S IF ERROR 


SETUP PUT INDEX TABLE 
SET TERMINATOR BYTE 

:SET RMCS1 OUTPUT BUFFER = OFF SET! GO 
GO WRITE RMCS1 VIA PUT SUBROUTINE 
GO TO 2S IF NO ERROR 
RETURN HERE IF ERROR 
ERROR DEFINED BY PUT SUBROUTINE 
GO TO 7S IF ERROR 

SETUP PUT INDEX TABLE 
SET TERMINATOR BYTE 

;SET RMCS1 OUTPUT BUFFER = RE CAL! GO 
GO WRITE RMCS1 VIA PUT SUBROUTINE 
GO TO 3S IF NO ERROR 
RETURN HERE IF ERROR 
ERROR DEFINED BY PUT SUBROUTINE 
GO TO 7S IF ERROR 


; SETUP GET INDEX TABLE TO READ ALL REGISTERS 

JSR PC,GETSTS ;G0 TO GETSTS SUBROUTINE 


043370 


JSR 

042546 


JSR 

BR 

NOP 

EMT 

015762 

4S; 

JMP 

043564 


JSR 

BR 

NOP 

EMT 

JSR 

015762 

5S: 

JMP 

054260 


JSR 

BR 

NOP 

EMT 

JSR 

015762 


JMP 


;WAJT FOR COMMAND TO COMPLETE 
PC,TIMOUT 

PC, GET 
4S 


7S 

PC ,PR I ERR 
5S 


pc,b(sp)+ 

7S 

PC,RCLSTS 

6S 


pc,acsp>+ 

7S 


GO TO T1M0UT SUBROUTINE 

GO READ GISTER(S) WITH GET SUBROUTINE 

GO TO 4S m NO ERROR 

RETURN HERE IF ERROR 

ERROR 0 DEFINED BY GET SUBROUTINE 

GO TO 7S IF ERROR 

GO CHECK FOR PRIMARY ERRORS 

GO TO 5S IF NO ERROR 

RETURN HERE IF ERROR 

ERROR 0 DEFINED BY PRIERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 7S IF ERROR 

GO VERIFY RECALIBRATE OPERATION 

GO TO 6S IF NO ERROR 

RETURN HERE IF ERROR 

ERROR 0 DEFINED BY RCLSTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 7S IF ERROR 
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SEQ 0103 


M 


579 015746 

580 015746 

004737 

044416 


6$: 

JSR 

PC.SECERR 

GO CHECK FOR SECONDARY ERRORS 

015752 

000403 




BR 

7S 

GO TO 7$ IF NO ERROR 

015754 

000240 




NOP 


RETURN HERE IF ERROR 

015756 

104000 




EMT 


ERROR 9 DEFINED BY SECERR SUBROUTINE 

015760 

004736 




JSR 

PC.8(SP>* 

GO BACK FOR MORE ERROR CHECKS 

581 015762 

582 




7$: 
















;*TEST 

17 

DRIVE CLEAR TEST 


015762 

015762 

000004 



# # • M 

TST17: 

SCOPE 

N ^ V W W W V ^ ^ ^ ^ V ^ ^ ^ V V K 

SCOPE CALL 

015764 

000240 




NOP 


START OF TEST 

015766 

012706 

001100 



MOV 

ASTACK.SP 

INITIALIZE STACK POINTER 

015772 

013700 

001276 



MOV 

SBASE.RO 

RO = UNIBUS ADDRESS 

015776 

013701 

001466 



MOV 

TSTQUE.R1 

(R1> = DEVICE BEING TESTED 

016002 

584 

585 016010 

012737 

000017 

001226 


MOV 

#17,$TESTN 

;SET TEST NUMBER IN APT MAIL BOX 

004737 

041532 



JSR 

PC.TSTPRP 

PREPARE DEVICE FOR TEST 

016014 

054130 




.WORD 

054130 

TASK DESCRIPTOR AS FOLLOWS: 

CLEAR CONTROLLER ft SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 








VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF "SKI** OR 'VIP" IS SET 








VERIFY RECALIBRATION 

016016 

000404 




BR 

1$ 

GO TO 1$ IF NO ERROR 

016020 

000240 




NOP 


RETURN HERE IF ERROR 

016022 

104000 




EMT 


ERROR # DEFINED BY TSTPRP SUBROUTINE 

016024 

000137 

016232 



JMP 

6$ 

GO TO 6$ IF ERROR 

586 016030 

587 016030 

012737 

000000 

001420 

1$: 

MOV 

fO.RMDAO 


588 016036 

012737 

00001 1 

001412 


SOV 

#DR VCLR ! GO . RMC S 1 0 

589 016044 

012737 

177777 

001426 


MOV 

#-1 .RMER10 


590 016052 

012737 

177777 

001454 


MOV 

#-1 .RMER20 


591 016060 

042737 

004000 

001454 


BIC 

#LSC,RMER20 

DELETE FOR PASS 2 ETCH 

592 016066 

012702 

001545 



MOV 

#PUTINX,R2 

R2 POINTS TO INDEX TABLE 

593 016072 

112722 

000006 



HOVB 

#RMDA.<R2)* 

RMDA CLEARS LBT 

594 016076 

112722 

000042 



MOVB 

#RMER2,(R2H 


595 016102 

112722 

000014 



MOVB 

#RMER1 , (R2> ♦ 


596 016106 

112722 

000000 



MOVB 

#RMCS1.<R2>* 


597 016112 

112722 

000200 



MOVB 

#200, (R2)-*- 


598 016116 

004737 

043016 



JSR 

PC. PUT 

GO WRITE REGISTER (S) WITH PUT SUBROUTINE 

016122 

000403 




BR 

2$ 

GO TO 2$ IF NO ERROR 

016124 

000240 




NOP 


RETURN HERE IF ERROR 

016126 

104000 




EMT 


ERROR # DEFINED BY PUT SUBROUTINE 

599 016130 

000440 




BR 

6$ 

ESCAPE IF ERROR 

600 016132 

004737 

042462 


2S: 

JSR 

PC.GETSTS 

SETUP FOR STATUS FETCH 

601 016136 

004737 

043370 



JSR 

PC.TIMOUT 

WAIT FOR DRIVE CLEAR TO COMPLETE 

602 

603 016142 

004737 

042546 



JSR 

PC, GET 

GO READ REGISTER(S) WITH GET SUBROUTINE 

016146 

000403 




BR 

3$ 

GO TO 3$ IF NO ERROR 

016150 

000240 




NOP 


RETURN HERE IF ERROR 

016152 

104000 




EMT 


ERROR » DEFINED BY GET SUBROUTINE 

604 016154 

605 016156 

000426 



3$: 

BR 

6$ 

SKIP REMAINDER OF TEST 



N 8 
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606 016156 
016162 
016164 
016166 
016170 
016172 

607 016176 

608 016176 
016202 
01 6204 
016206 
016210 
016212 

609 016216 


016232 

016232 

016234 

016236 

016242 

016246 

016252 

614 

615 016260 
016264 


004737 

000405 

000240 

104000 

004736 

000137 

004737 

000405 

000240 

104000 

004736 

000137 


043564 


016232 

056022 


016232 

044416 


000004 

000240 

012706 

013700 

013701 

012737 

004737 

054130 


001100 

001276 

001466 

000020 

041532 


TST20: 


001226 


SCOPE 

NOP 

MOV 

MOV 

MOV 

MOV 

JSR 

.WORD 


PC.PRIERR 

4$ 


PC,3<SP>* 

6 $ 

PC.DRVSTS 

5$ 


pc.a<sp>* 

6 $ 

PC.SECERR 


016222 

000403 

BR 

6$ 

016224 

000240 

NOP 


016226 

104000 

EMT 

PC.a<SP>* 

016230 

004736 

JSR 

016232 


6$: 




;*TEST 20 

NOP TEST 


fSTACK.SP 

SBASE.RO 

TSTQUE.R1 

#20,$TESTN 

PC.TSTPRP 

054130 


016266 000404 8R 

016270 000240 NOP 

016272 104000 EMT 

016274 000137 016462 JMP 

616 016300 , IS: 

617 016300 112737 000000 001545 MOVB 

016306 112737 000200 001546 MOVE 

016314 012737 000001 001412 NOV 

016322 004737 043016 J SR 

016326 000404 BR 

016330 000240 NOP 

016332 104000 EMT 

016334 000137 016462 JMP 

618 016340 004737 042462 2$: JSR 

619 

620 016344 004737 042546 JSR 

016350 000404 BR 


fRMCSI.PUTINX 
#200.PUTINX+1 
#N0P!G0,RMCS10 
PC, PUT 

2 $ 


7$ 

PC,GETSTS 


PC, GET 
3$ 


SEQ 0104 


GO CHECK FOR PRIMARY ERRORS 

GO TO 4$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR » DEFINED BY PRIERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 6* IF ERROR 

GO VERIFY DRIVE CLEAR 

GO TO 5S IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY DRVSTS SUBROUTINE 

GO BACK FOR F-.1E ERROR CHECKS 

GO TO 6S IF ERROR 

GO CHECK FOR SECONDARY ERRORS 

GO TO 6S IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY SECERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 


.•SCOPE CALL 

; START OF TEST 

.•INITIALIZE STACK POINTER 

;R0 = UNIBUS ADDRESS 

;(R1> = DEVICE BEING TESTED 

; ; SET TEST NUMBER IN APT NAIL BOX 

.•PREPARE DEVICE FOR TEST 
.-TASK DESCRIPTOR AS FOLLOWS: 

.•CLEAR CONTROLLER t SELECT DEVICE 

.VERIFY CONTROLLER CLEAR OPERATION 

.-PACK ACKNOWLEDGE IF VOLUME NOT VALID 

.•VERIFY PACK ACKNOWLEDGE 

.•RECALIBRATE IF •‘SKI" OR , T>IP" IS SET 

.'VERIFY RECALIBRATION 

;G0 TO 1$ IF NO ERROR 

.•RETURN HERE IF ERROR 

.-ERROR # DEFINED BY TSTPRP SUBROUTINE 

;G0 TO 7$ IF ERROR 

; SETUP PUT INDEX TABLE 

.-SET TERMINATOR BYTE 

.-SET RMCS1 OUTPUT BUFFER = NOP! GO 

;G0 WRITE RMCS1 VIA PUT SUBROUTINE 

;G0 TO 2$ IF NO ERROR 

.•RETURN HERE IF ERROR 

.•ERROR DEFINED BY PUT SUBROUTINE 

;G0 TO 7$ IF ERROR 

.•SETUP FOR STATUS FETCH 

;G0 READ REGISTER (S) WITH GET SUBROUTINE 
;G0 TO 3$ IF NO ERROR 
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SEO 0105 

016352 

000240 



NOP 


RETURN HERE IF ERROR 


016354 

104000 



EMT 


ERROR # DEFINED BY GET SUBROUTINE 


016356 

000137 

016462 


JMP 

7$ 

GO TO 7$ IF ERROR 

1 

621 016362 

622 016362 

004737 

043564 

3$: 

JSR 

PC.PRIERR 

GO CHECK FOR PRIMARY ERRORS 


016366 

000405 



BR 

4$ 

GO TO 4$ IF NO ERROR 


016370 

000240 



NOP 


RETURN HERE IF ERROR 


016372 

104000 



EMT 


ERROR # DEFINED BY PRIERR SUBROUTINE 


016374 

004736 



JSR 

PC,3(SP)+ 

GO BACK FOR MORE ERROR CHECKS 


016376 

000137 

016462 


JMP 

7S 

GO TO 7$ IF ERROR 


623 016402 

624 016402 

004737 

050562 

4S: 

JSR 

PC.CMPERRSTS 

CHECK ANY ERRORS NOT MASKED 


016406 

115760 



.WORD 

NDTMSK 

MASK FOR RMER1 


016410 

000010 



.WORD 

DPE 

MASK FOR RMER2 


016412 

00C405 



BR 

5$ 

GO TO 5J IF NO ERROR 


016414 

000240 



NOP 


RETURN HERE IF ERROR 


016416 

104000 



EMT 


ERROR # DEFINED BY CMPERRSTS SUBROUTINE 


016420 

004736 



JSR 

pc.bcsph 

GO BACK FOR MORE ERROR CHECKS 


016422 

000137 

016462 


JMP 

7$ 

GO TO 7$ IF ERROR 


625 016426 

626 016426 

004737 

060210 

5S: 

JSR 

PC.STCDRVSTS 

GO CHECK FOR CHANGES IN DRIVE STATUS 


016432 

000405 



BR 

6$ 

GO TO 6S IF NO ERROR 


016434 

000240 



NOP 


RETURN HERE IF ERROR 


016436 

104000 



EMT 


ERROR * DEFINED BY STCDRVS1S SUBROUTINE 


016440 

004736 



JSR 

pc.acsp)* 

GO BACK FOR MORE ERROR CHECKS 


016442 

000137 

016462 


JMP 

7$ 

GO TO 7$ IF ERROR 


627 016446 

628 016446 

004737 

044416 

6$: 

JSR 

PC.SECERR 

GO CHECK FOR SECONDARY ERRORS 


016452 

000403 



BR 

7$ 

GO TO 7$ IF NO ERROR 


016454 

000240 



NOP 


RETURN HERE IF ERROR 


016456 

104000 



EMT 


ERROR # DEFINED BY SECERR SUBROUTINE 


016460 

004736 



JSR 

PC,3(SP)+ 

GO BACK FOR MORE ERROR CHECKS 


629 016462 

630 



7$: 





631 



; **************************************************************** 




;*TEST 

21 

OFFSET TEST 






• • ***************** ******************* *************************** 


016462 

016462 

000004 


TST21 : 

SCOPE 


SCOPE CALL 


016464 

000240 



NOP 


START OF TEST 


016466 

012706 

001100 


MOV 

fS TACK. SP 

INITIALIZE STACK POINTER 


016472 

013700 

001276 


MOV 

S8ASE.R0 

RO = UNIBUS ADDRESS 


016476 

013701 

001466 


MOV 

TSTQUE.R1 

(R1 ) = DEVICE BEING TESTED 


016502 

632 

633 016510 

012737 

000021 

001226 

MOV 

#21 .STESTN 

;SET TEST NUMBER IN APT MAIL BOX 


004737 

041532 


JSR 

PC.TSTPRP 

PREPARE DEVICE FOR TEST 


016514 

054130 



.WORD 

054130 

TASK DESCRIPTOR AS FOLLOWS: 

CLEAR CONTROLLER & SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF ••SKI*' OR •^IP" IS SET 

VERIFY RECALIBRATION 


016516 

000404 



BR 

1$ 

GO TO 1$ IF NO ERROR 


016520 

000240 



NOP 


RETURN HERE IF ERROR 


016522 

104000 



EMT 


ERROR » DEFINED BY TSTPRP SUBROUTINE 


016524 

L ■ - - 

000137 

017006 


JMP 

9$ 

GO TO 9$ IF ERROR 




; 9 
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634 016530 

635 016530 
016536 
C16544 
016552 
016556 
016560 
016562 
016564 

636 016570 

637 016574 

638 

639 016600 
016604 
016606 
016610 
016612 

640 016616 

641 016616 
016622 
016624 
016626 
016630 
016632 

642 016636 

643 016644 

644 016646 

645 016654 

646 016662 

647 016670 

648 016672 

649 016700 

650 016702 

651 016710 

652 016716 

653 016724 

654 016726 

655 016726 
016732 
016734 
016736 
016740 
016742 
016744 
016746 

656 016752 

657 016752 
016756 
016760 
016762 
016764 
016766 

658 016772 

659 016772 
016776 
017000 
017002 


112737 

112737 

012737 

004737 

000404 

000240 

104000 

000137 

004737 

004737 

004737 

000404 

000240 

104000 

000137 

004737 

000405 

000240 

104000 

004736 

000137 

032737 

001012 

013737 

042737 

012737 

104156 

032737 

001012 

013737 

042737 

012737 

104172 

004737 

115760 

000010 

000405 

000240 

104000 

004736 

000137 

004737 

000405 

000240 

104000 

004736 

000137 

004737 

000403 

000240 

104000 


000000 001545 
000200 001546 
000015 001412 
043016 


017006 

042462 

043370 


042546 


017006 

043504 


017006 

000001 

001350 

177776 

000001 


001350 

077777 

100000 


050562 


001350 

001142 

001142 

001140 


100000 001350 


001142 

001142 

001140 


017006 

060210 


017006 

044416 


JSR 

.WORD 

.WORD 

BR 

NOP 

EMT 

JSR 

JMP 


#RMCS1 .PUT INX 
*200,PUTINX+1 
^OFFSET JG0.RMCS1 
PC. PUT 

2 $ 


9$ 

PC.GETSTS 

PC.TIMOfT 


PC. GET 
3$ 


PC.PRIERR 

4$ 


PC.iCSP)* 

9$ 

fOM.RMDSI 

5$ 

RMDSI.SBDDAT 

#*COM,$BDDAT 

fOM.SGDDAT 

156 

#ATA,RMDSI 

6 $ 

RMDSi .SBDDAT 
#*CATA,$BDDAT 
fATA.SGOOAT 
172 

PC.CMPERRSTS 

NDTMSK 

DPE 

7$ 


PC.i(SP)* 

9$ 

PC.STCDRVSTS 

8 $ 


pc,a(sp>+ 

9$ 

PC.SECERR 

9$ 


SEQ 0106 


SETUP PUT INDEX TABLE 
SET TERMINATOR BYTE 

l ;SET RMCS1 OUTPUT BUFFER = OFFSET.'GO 

GO writ! RMCS1 VIA PUT SUBROUTINE 

GO TO 2$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR DEFINED BY PUT SUBROUTINE 

GO TO 9$ IF ERROR 

SETUP FOR STATUS FETCH 

WAIT FOR GO TO RESET 

GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 3$ IF NO ERROR 

RETURN HERE TF ERROR 

ERROR » DEFINED BY GET SUBROUTINE 

GO TO 9$ IF ERROR 

GO CHECK FOR PRIMARY ERRORS 

GO TO 4$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PRIERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 9$ IF ERROR 

OFFSET MODE ON?? 

YES' • 

BAD "DATA FOR TYPEOUT 

GOOD DATA FOR TYPEOUT 

WAS ATTENTION SET ?? 

YES' 1 

BAD 'DATA FOR TYPEOUT 
GOOD DATA FOR TYPEOUT 


CHECK ANY ERRORS NOT MASKED 

MASK FOR RMER1 

MASK FOR RMER2 

GO TO 7$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR » DEFINED BY CMPERRSTS SUBROUTINE 

GO BACK TOR MORE ERROR CHECKS 

GO TO 9$ IF ERROR 

GO CHECK FOR CHANGES IN DRIVE STATUS 

GO TO 8$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY STCDRVSTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 9$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 

GO TO 9$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR » DEFINED BY SECERR SUBROUTINE 



0 9 



SEQ 0107 


;G0 BACK FOR MORE ERROR CHECKS 


SCOPE CALI. 

START OF TEST 

INITIALIZE STACK POINTER 

RO = UNIBUS AODRESS 

(R1) = DEVICE BEING TESTED 

;SET TEST NUMBER IN APT MAIL BOX 

PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 

CLEAR CONTROLLER t SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF "SKI" OR *T>IP" IS SET 

VERIFY RECALIBRATION 

GO TO IS IF NO ERROR 

RETURN HERE IF ERROR 

ERROR 0 DEFINED BY TSTPRP SUBROUTINE 

GO TO 12$ IF ERROR 

SETUP PUT INDEX TABLE 
SET TERMINATOR BYTE 

I :SET RMCS1 OUTPUT BUFFER = OFFSETiGO 

GO WRITE RMCS1 VIA PUT SUBROUTINE 

GO TO 2$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR DEFINED BY PUT SUBROUTINE 

GO TO 12$ IF ERROR 

SETUP TO READ ALL REGISTERS 

GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 3$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR 0 DEFINED BY GET SUBROUTINE 

GO TO 12$ IF ERROR 

IS ATTENTION SET?? 

YES' 1 

GOOD* DATA FOR TYPEOUT 
BAD DATA FOR TYPEOUT 


CHECK ANY ERRORS NOT MASKED 

MASK FOR RMER1 

MASK FOR RMER2 

GO TO 5$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR 0 DEFINED BY CHPERRSTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 12$ IF ERROR 


E 9 



SEO 0108 


SETUP PUT INDEX TABLE 

SET TERMINATOR BYTE 

SET RMCS1 OUTPUT BUFFER = NOP.'GO 

GO WRITE RMCS1 VIA PUT SUBROUTINE 

GO TO 6S IF NO ERROR 

RETURN HERE IF ERROR 

ERROR DEFINED BY PUT SUBROUTINE 

GO TO 12$ IF ERROR 

GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 7$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY GET SUBROUTINE 

GO TO 12$ IF ERROR 

GO CHECK FOR PRIMARY ERRORS 

GO TO 8$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PRIERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 12$ IF ERROR 

IS ATTENTION RESET?? 

YES 

BAD DATA FOR TYPEOUT 
GOOD DATA FOR TYPEOUT 


; CHECK ANY ERRORS NOT MASKED 

.MASK FOR RMER1 

.MASK FOR RMER2 

;60 TO 10$ IF NO ERROR 

.•RETURN HERE IF ERROR 

.•ERROR # DEFINED BY CMPERRSTS SUBROUTINE 

;G0 BACK FOR MORE ERROR CHECKS 

;G0 TO 12$ IF ERROR 

;G0 CHECK FOR CHANGES IN DRIVE STATUS 

;G0 TO 11$ IF NO ERROR 

.•RETURN HERE IF ERROR 

.•ERROR # DEFINED BY STCDRVSTS SUBROUTINE 

.GO BACK FOR MORE ERROR CHECKS 

;G0 TO 12$ IF ERROR 

;G0 CHECK FOR SECONDARY ERRORS 

;G0 TO 12$ IF NO ERROR 

;RETURN HERE IF ERROR 

.’ERROR » DEFINED BY SECERR SUBROUTINE 

;G0 BACK FOR MORE ERROR CHECKS 


SCOPE CALL 



SEQ 0109 


START OF TEST 

INITIALIZE STACK POINTER 

RO = UNI BUS ADDRESS 

(R1) = DEVICE BEING TESTED 

;SET TEST NUMBER IN APT MAIL BOX 

PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 

CLEAR CONTROLLER t SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF "SKr* OR ’VIP” IS SET 

VERIFY RECALIBRATION 

GO TO IS IF NO ERROR 

RETURN HERE IF ERROR 

ERROR » DEFINED BY TSTPRP SUBROUTINE 

GO TO 9$ IF ERROR 

SETUP PUT INDEX TABLE 
SET TERMINATOR BYTE 

;SET RMCS1 OUTPUT BUFFER = OFFSET! GO 
GO WRITE RMCS1 VIA PUT SUBROUTINE 
GO TO 2$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR DEFINED BY PUT SUBROUTINE 
GO TO 9S IF ERROR 
SETUP TO READ ALL REGISTERS 

GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 3$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR « DEFINED BY GET SUBROUTINE 

GO TO 9$ IF ERROR 

IS ATTENTION SET?? 

YES' ' 

BAD DATA FOR TYPEOUT 

GOOD DATA FOR TYPEOUT 

R2 = ATTENTION BIT 
CLEAR SIGN EXTENSION 

PUT RftAS BIT IN OUTPUT BUF 
WRITE REGISTER INDEX IN TABLE 
WRITE TERMINATOR 

GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 5$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 

GO TO 9$ IF ERROR 

GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 61 IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY GET SUBROUTINE 

GO TO 9$ IF ERROR 


L 


G 9 


SEO 0110 
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PC.PRIERR 

71 


PC,a<SP>* 

9$ 

fATA.RHDSI 

8$ 

RMDSI.SBDDAT 

**CATA,$BDDAT 

SGDDAT 

247 

PC.CMPERRSTS 

0 

0 

9$ 


721 017700 




6S: 


722 017700 

004737 

043564 



JSR 

017704 

000405 




BR 

017706 

000240 




NOP 

017710 

104000 




EMT 

017712 

004736 




JSR 

017714 

000137 

017772 



JMP 

723 017720 

032737 

100000 

001350 

7S: 

BIT 

724 017726 

001411 




BEQ 

725 017730 

013737 

001350 

001142 


MOV 

726 017736 

042737 

077777 

001142 


BIC 

727 017744 

005037 

001140 



CLR 

728 017750 

104247 




EMT 

729 017752 




8$: 


730 017752 

004737 

050562 



JSR 


017756 

017760 

017762 

017764 

017766 

017770 

731 017772 

732 

733 


000000 

000000 

000403 

000240 

104000 

004736 


9S: 


.WORD 

.WORD 

BR 

HOP 

EMT 

JSR 


pc.acsp)* 


GO CHECK TOR PRIMARY ERPORS 

GO TO 7$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PRIERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 9$ IF ERROR 

IS ATTENTION RESET?? 

YES!! 

BAD DATA FOR TYPEOUT 
GOOD DATA FOR TYPEOUT 


; CHECK ANY ERRORS NOT MASKED 

;MASK FOR RMER1 

;MASK FOR RMER2 

;G0 TO 9$ IF NO ERROR 

.'RETURN HERE IF ERROR 

; ERROR 0 DEFINED BY CMPERRSTS SUBROUTINE 

;G0 BACK FOR MORE ERROR CHECKS 


• *************************************************************** 


;*TEST 24 


ERROR/ATA TEST 


*************************************************************** 


734 


017772 

017772 

000004 

TST24: 

SCOPE 

017774 

000240 


NOP 

017776 

012706 

001100 

MOV 

02000? 

013700 

001276 

MOV 

020006 

013701 

001466 

MOV 

020012 

012737 

000024 001226 

MOV 

020020 

004737 

041532 

JSR 

020024 

054130 


.WORD 


JTSTACK.SP 

SBASE.RO 

TST0UE.R1 

#24.STESTN 


PC.TSTPRP 

054130 


739 


020026 

000404 




BR 

IS ; 

020030 

000240 




NOP 


020032 

104000 




EMT 


020034 

000137 

020364 



JMP 

10S ; 

020040 




IS: 



020040 

112737 

000000 

001545 


MOVB 

fRMCSI .PUTINX ; 

020046 

112737 

000200 

001546 


HOVB 

#200.PUTINX*1 

020054 

012737 

000015 

001412 


MOV 

#0FFSET!G0,RMCS10 

020062 

004737 

043016 



JSR 

PC. PUT 

020066 

000404 




BR 

2S ; 

020070 

000240 




NOP 


020072 

104000 




EMT 


020074 

000137 

020364 



JMP 

10S ; 

020100 

004737 

042462 


2S: 

JSR 

PC.GETSTS 


SCOPE CALL 

START OF TEST 

INITIALIZE STACK POINTER 

RO = UNIBUS ADDRESS 

(R1) = DEVICE BEING TESTED 

.'SET TEST NUMBER IN APT HAIL BOX 

PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 

CLEAR CONTROLLER t SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF •’SKI" OR ■’PIP" IS SET 

VERIFY RECALIBRATION 

GO TO IS IF NO ERROR 

RETURN HERE IF ERROR 

ERROR 0 DEFINED BY TSTPRP SUBROUTINE 

GO TO 10S IF ERROR 

SETUP PUT INDEX TABLE 
SET TERMINATOR BYTE 

;SET RMCS1 OUTPUT BUFFER = OFFSET! GO 
GO WRITE RMCS1 VIA PUT SUBROUTINE 
GO TO 2S IF NO ERROR 
RETURN HERE IF ERROR 
ERROR DEFINED BY PUT SUBROUTINE 
GO TO 10S IF ERROR 
SETUP TO READ ALL REGISTERS 
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740 020104 
020110 
020112 
020114 
020116 

741 020122 

742 02C130 

743 020132 

744 020140 

745 020146 

7<*6 020154 

747 020156 

748 020156 
020164 
020172 
020200 
020204 
020206 
020210 
020212 

749 020216 

750 020216 
020224 
020232 
020240 
020244 
020246 
020250 
020252 

751 020256 

752 020256 
020262 
020264 
020266 
020270 

753 020274 

754 020302 

755 020304 

756 020312 

757 020320 

758 020326 

759 020330 

760 020330 
020334 
020336 
020340 
020342 
020544 

761 020350 

762 020350 
020354 
020356 
020360 
020362 

763 020364 

764 

765 


004737 

000404 

000240 

104000 

000137 

032737 

042737 

012737 

104172 

112737 

112737 

012737 

004737 

000404 

000240 

104000 

000137 

112737 

112737 

012737 

004737 

000404 

000240 

104000 

000137 

004737 

000404 

000240 

104000 

000137 

032737 

001012 

012737 

013737 

042737 

104250 

004737 

000405 

000240 

104000 

004736 

000137 

004737 

000403 

000240 

104000 

004736 


042546 


020364 

100000 

001350 

077777 

100000 


000014 

000200 

040000 

043016 


020364 

000000 

000200 

000001 

043016 


020364 

042546 


020564 

100000 

100000 

001350 

077777 


060210 


020364 

044416 


001350 

001142 

001142 

001140 


001545 

001546 

001426 


001545 

001546 

001412 


001350 

001140 

001142 

001142 


PC. GET 

3$ 


10 $ 

fATA.RMDSI 

4$ 

RHDSI.$BDDAT 

A*CATA,$8DDAT 

fATA.SGDDAT 

172 

fRMERI .PUTINX 
#200.PUTINX*1 
#UNS.R«ER10 
PC. PUT 

5$ 


fRMCSI, PUTINX 
#200<PUTINX*1 
#N0P!G0,RMCS10 
PC. PUT 

6 $ 


PC. GET 

7$ 


10 $ 

fATA.RMDSI 

8 $ 

fATA.JGOOAT 
RMDSI .$800 AT 
# A CATA,$BDDAT 
250 

PC.STCORVSTS 

9$ 


PC.i(SP)* 

ioi 

PC.SECERR 

ioi 


pc.acsp)* 


SEQ 0111 


GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 3$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY GET SUBROUTINE 

GO TO 10$ IF ERROR 

IS ATA SET?? 

YES.'! 

BAD DATA FOR TYPEOUT 
GOOD DATA FOR TYPEOUT 


SETUP PUT INDEX TABLE 

SET TERMINATOR BYTE 

SET RMER1 OUTPUT BUFFER * UNS 

GO WRITE RMER1 VIA PUT SUBROUTINE 

GO TO 5$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR DEFINED BY PUT SUBROUTINE 

GO TO 10$ IF ERROR 

SETUP PUT INDEX TABLE 

SET TERMINATOR BYTE 

SET RMCS1 OUTPUT BUFFER = NOP! GO 

GO WRITE RMCS1 VIA PUT SUBROUTINE 

GO TO 6$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR DEFINED BY PUT SUBROUTINE 

GO TO 10$ IF ERROR 

GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 7$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY GET SUBROUTINE 

GO TO 10$ IF ERROR 

IS ATA STILL SET?? 

YES' ' 

GOOD 'DATA FOR TYPEOUT 
BAD DATA FOR TYPEOUT 


;G0 CHECK FOR CHANGES IN DRIVE STATUS 

;G0 TO 9$ IF NO ERROR 

; RE TURN HERE IF ERROR 

.•ERROR # DEFINED BY STCDRVSTS SUBROUTINE 

;G0 BACK FOR MORE ERROR CHECKS 

;G0 TO 10$ IF ERROR 

;G0 CHECK FOR SECONDARY ERRORS 

;G0 TO 10$ IF NO ERROR 

; RE TURN HERE IF ERROR 

.ERROR # DEFINED BY SECERR SUBROUTINE 

;G0 BACK FOR MORE ERROR CHECKS 
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; ‘TEST 25 


020364 

020364 

020366 

000004 

000240 

TST25: 

SCOPE 

NOP 

020370 

012706 

001 100 

MOV 

020374 

013700 

001276 

MOV 

020400 

013701 

001466 

MOV 

020404 

766 

767 020412 
020416 

012737 

000025 001226 

MOV 

004737 

054130 

041532 

JSR 

.WORD 


020420 

000404 




BR 

020422 

000240 




NOP 

02G424 

104000 




EMT 

020426 

000137 

021054 



JMP 

768 020432 




IS: 


769 020432 

113702 

001272 



Hove 

770 020436 

042702 

177400 



B1C 

771 C20442 

011204 




MOV 

772 020444 

016205 

000002 



MOV 

773 020450 

012712 

020714 



MOV 

774 020454 

012762 

000300 

000002 


MOV 

775 020462 

113703 

001273 



movb 

776 020466 

042703 

177400 



BIC 

777 020472 

000303 




SWAB 

778 020474 

005303 




DEC 

779 020476 

100001 




BPL 

780 020500 

005003 




CLR 

781 020502 

042703 

177437 


2S: 

BIC 

782 020506 

000240 




NOP 

783 020510 

012746 

000300 



MOV 

784 020514 

012746 

020652 



MOV 

785 020520 

010346 




MOV 

786 02052? 

012746 

02 0644 



MOV 

787 020526 

012737 

177777 

001430 


MOV 

788 020534 

112737 

000016 

001545 


MOVB 

789 020542 

112737 

000200 

001545 


MOVB 

790 






791 020550 

004737 

043016 



JSR 

020554 

000404 




BR 

020556 

000240 




NOP 

020560 

104000 




EMT 

020562 

000137 

021054 



JMP 

792 020566 




3$: 


793 020566 

112737 

000000 

001545 


MOVB 

020574 

112737 

000200 

001546 


MOVB 

020602 

012737 

000115 

001412 


MOV 

020610 

004737 

043016 



JSR 

020614 

000404 




BR 

020616 

000240 




NOP 


PROGRAM INTERRUPT TEST 


f STACK, SP 
S8ASE.RO 
TST0UE.R1 
#25,STESTN 

PC.TSTPRP 

054130 


IS 


16S 

SVECT1.R2 

#*C<377>,R2 

(R2> f R4 

2(R2),R5 

#9S.(R2) 

#PR6.2(R2> 

SVECTU1.R3 

#*C<377>.R3 

R3 

R3 

2S 

R3 

# a CPR7,R3 

#PR6.-(SP> 

#6S.-(SP) 

R3.-(SP) 

#5$.-(SP> 

f-1 ,RMASO 

IRMAS. PUT I NX 

I200.PUT1NX 

PC. PUT 

3S 


16S 


.’SCOPE CALL 

.•START OF TEST 

.•INITIALIZE STACK POINTER 

;R0 = UNIBUS ADDRESS 

;(R1) = DEVICE BEING TESTED 

;;SET TEST NUMBER IN APT MAIL BOX 

.•PREPARE DEVICE FOR TEST 
;TASK DESCRIPTOR AS FOLLOWS: 

; CLEAR CONTROLLER t SELECT DEVICE 

.’VERIFY CONTROLLER CLEAR OPERATION 

.■PACK ACKNOWLEDGE IF VOLUME NOT VALID 

.•VERIFY PACK ACKNOWLEDGE 

.’RECALIBRATE IF "SKI" OR ,, PIP** IS SET 

.•VERIFY RECALIBRATION 

;G0 TO IS IF NO ERROR 

.’RETURN HERE IF ERROR 

.•ERROR # DEFINED BY TSTPRP SUBROUTINE 

;GO TO 16S IF ERROR 

;R2 = INTERRUPT ADDRESS 
.‘CLEAR SIGN EXTENSION 
.SAVE HANDLER ADDRESS 
; SAVE HANDLER PRIORITY 
.-‘WRITE HANDLER ADDRESS AND 
.PRIORITY FOR THIS TEST 
;R3 = INTERRUPT LEVEL 
.'CLEAR SIGN EXTENSION 

.DECREMENT INTERRUPT LEVEL 


; ; PUSH #PR6 ON STACK 
; ; PUSH #6$ ON STACK 
.-.PUSH R3 ON STACK 
.-.PUSH #5S ON STACK 
.WRITE ONES IN RMAS TO 
.’CLEAR ALL ATTENTIONS 


;GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

;60 TO 3S IF NO ERROR 

.RETURN HERE IF ERROR 

.’ERROR # DEFINED BY PUT SUBROUTINE 

;GO TO 16S IF ERROR 


#RMC$1 .PUTINX .’SETUP PUT INDEX TABLE 
#200.PUTINX*1 .’SET TERMINATOR BYTE 

fOFFSETIGO! IE.RMCSIO ;$ET RMCS1 OUTPUT BUFFER = OFFSET !GO! IE 
PC. PUT ;GO WRIT§ RMCS1 VIA PUT SUBROUTINE 

4$ ;GO TO 4S IF NO ERROR 

; RE TURN HERE IF ERROR 


SEO 0112 


J 


9 


CZRNDAO RM30 FtTNl PT1 MACRO V04.00 28-JAN-82 76:24:51 PAGE 13-29 
T25 PROGPAM INTERRUPT TEST 



020620 

104000 



EMT 

16$ 


020622 

000137 

021054 

4$: 

JMP 

794 

020626 




PC.TIMOUT 

795 

020626 

020632 

004737 

043370 


jsr 

796 

004737 

042462 


JSR 

PC.GETSTS 
#265. R3 

797 

020636 

012703 

000205 


MOV 

798 

020642 

000002 


5$: 

RTI 

R3 

799 

020644 

005303 


DEC 

800 

801 

802 

020646 

100376 



BPL 

5$ 




.•TIMEOUT BEFORE 

INTERRUPT 

803 





RTI 


804 

020650 

000002 


6$: 


805 

806 

020652 

020652 

004737 

042546 

JSR 

PC, GET 


020656 

000404 



BR 

7$ 


020660 

000240 



NOP 



020662 

104000 



EMT 

16$ 


020664 

000137 

021054 

7$: 

JMP 

807 

808 

020670 

020670 

004737 

043564 

JSR 

PC .PRIERR 


020674 

000405 



BR 

8$ 


020676 

000240 



NOP 



020700 

104000 



EMT 

PC.i(SP)* 

16i 


020702 

004736 



JSR 


020704 

000137 

021054 

8$: 

JMP 

809 

020710 

020710 

104251 


EMT 

251 


810 

811 

812 

020712 

000423 



BR 

12$ 

020714 

022626 


9$: 

CMP 

(SP)MSP>* 

813 

020716 

012716 

020724 


MOV 

#10$. (SP) 

814 

020722 

000002 


10$: 

RTI 


815 

816 

020724 

020724 

004737 

042546 

JSR 

PC, GET 

iii 


020730 

000404 



BR 


020732 

000240 



NOP 



020734 

104000 



EMT 

16$ 


020736 

000137 

021054 

11$: 

JMP 

817 

818 

020742 

020742 

004737 

043564 

JSR 

PC.PRIERR 

12* 


020746 

000405 



BR 


020750 

000240 



NOP 



020752 

020754 

104000 

004736 



EMT 

JSR 

PC.BISP)* 

16* 


020756 

000137 

021054 

12$: 

JMP 

819 
8 20 

020762 

020762 

004737 

050562 

JSR 

PC, CMPERRSTS 


020766 

115760 



.WORD 

NDTNSK 


020770 

000010 



.WORD 

DPE 


020772 

000405 



BR 

13$ 


020774 

000240 



NOP 



020776 

021000 

104000 

004736 



EMT 

JSR 

PC-8(SP>* 

16* 


021002 

000137 

021054 

13$: 

JMP 

821 

021006 




PC.STCDRVSTS 

822 

021006 

004737 

060210 


JSR 


; ERROR DEFINED BY PUT SUBROUTINE 
;GO TO 16$ IF ERROR 

.WAIT FOR COMPLETION 
.•SETUP TO READ ALL REGISTERS 
;R3 = GROSS TIMEOUT 
.-DROP CP PRIORITY 
.•TIMEOUT THE INTERRUPT 


RAISE CP PRIORITY 

GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 7$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY GET SUBROUTINE 

GO TO 16S IF ERROR 

GO CHECK FOR PRIMARY ERRORS 

GO TO 8$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PRIERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 16$ IF ERROR 


ADJUST STACK 
CHANGE RETURN ADDRESS 
RAISE CP PRIORITY 

GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 11$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY GET SUBROUTINE 

GO TO 16$ IF ERROR 

GO CHECK FOR PRIMARY ERRORS 

GO TO 12$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PRIERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 16$ IF ERROR 

CHECK ANY ERRORS NOT MASKED 

MASK FOR RMER1 

MASK FOR RMER2 

GO TO 13$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY CMPERRSTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 16$ IF ERROR 

GO CHECK FOR CHANGES IN DRIVE STATUS 


SEQ 0113 
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021012 

000405 




Bfi 

14$ 

;60 TO 14$ If NO ERROR 


021014 

000240 




NOP 


.‘RETURN HERE IF ERROR 


021016 

104000 




ENT 


.-ERROR # DEFINED BY STCDRVSTS SUBROUTINE 


021020 

004736 




JSR 

pc.aisPH 

;GO BACK FOR NORE ERROR CHECKS 


021022 

000137 

021054 



JNP 

16$ 

;GO TO 16$ IF ERROR 

823 

021026 




14$: 




8 24 

021026 

004737 

044416 



JSR 

PC.SECERR 

;GO CHECK FOR SECONDARY ERRORS 


021032 

000405 




BR 

15$ 

;G0 TO 15$ IF NO ERROR 


021034 

000240 




NOP 


.RETURN HERE IF ERROR 


021036 

104000 




ENT 


.’ERROR # DEFINED BY SECERR SUBROUTINE 


021040 

004736 




JSR 

PC.i(SP)* 

;G0 BACK FOR NORE ERROR CHECKS 


021042 

000137 

021054 



JNP 

16i 

;GO TO 16$ IF ERROR 

825 

021046 




15$: 




826 

021046 

010412 




NOV 

R4.(R2> 


827 

021050 

010562 

000002 



NOV 

R5.2(R2> 


828 

OTQ 

021054 




16$: 




ocy 

830 





;;**** 









;*TEST 

26 

INHIBIT INTERRUPT TEST 


021054 




• * _ 
TST26: 





021054 

000004 




SCOPE 


.•SCOPE CALL 


021056 

000240 




NOP 


.‘START OF TEST 


021060 

012706 

001100 



NOV 

fSTACK.SP 

.‘INITIALIZE STACK POINTER 


021064 

013700 

001276 



NOV 

S6ASE.R0 

;R0 - UNIBUS ADDRESS 


021070 

013701 

001466 



NOV 

TST0UE.R1 

;(R1) * DEVICE BEING TESTED 


021074 

012737 

000026 

001226 


NOV 

#26,$TESTN 

;;SET TEST NUMBER IN APT HAIL BOX 

851 

832 

021102 

004737 

041532 



JSR 

PC.TSTPRP 

.PREPARE DEVICE FOR TEST 


021106 

054130 




.WORD 

05^130 

.‘TASK DESCRIPTOR AS FOLLOWS: 









.•CLEAR CONTROLLER S SELECT DEVICE 









; VERIFY CONTROLLER CLEAR OPERATION 









.-PACK ACKNOWLEDGE IF VOLUHE NOT VALID 









; VERIFY PACK ACKNOWLEDGE 









.‘RECALIBRATE IF ••SKI'* OR 'PIP'* IS SET 









.-VERIFY RECALIBRATION 


021110 

000404 




BR 

IS 

;G0 TO IS IT NO ERROR 


021112 

000240 




NOP 


.•RETURN HERE IF ERROR 


021114 

104000 




ENT 


.•ERROR # DEFINED BY TSTPRP SUBROUTINE 


021116 

000137 

021422 



JNP 

13$ 

;G0 TO 13$ IF ERROR 

833 

021122 




1$: 




834 

021122 

113702 

001272 



N0V8 

SVECT1.R2 

;R2 = INTERRUPT ADDRESS 

835 

021126 

042702 

177400 



BIC 

#*C<377>,R2 

.CLEAR SIGN EXTENSION 

836 

021132 

011204 




NOV 

(R2).R4 

.•SAVE HANDLER ADDRESS 

837 

021134 

016205 

000002 



NOV 

2IR2J.R5 

.•SAVE HANDLER PRIORITY 

838 

021140 

012712 

021362 



NOV 

#8$.(R2) 

.•WRITE HANDLER ADDRESS AND 

839 

021144 

012762 

000300 

000002 


NOV 

#PR6,2(R2) 

.‘PRIORITY FOR THIS TEST 

840 

021152 

113703 

001273 



N0V8 

$VECfm.R3 

;R3 = INTERRUPT LEVEL 

841 

021156 

042703 

177400 



BIC 

#*C<377>,R3 

.CLEAR SIGN EXTENSION 

842 

021162 

012746 

000300 



NOV 

#PR6,-(SP) 

.-.-PUSH #PR6 ON STACK 

843 

021166 

012746 

021414 



NOV 

#12$, -(SP) 

;;PUSH #12$ ON STACK 

844 

021172 

010346 




NOV 

R3,-(SP) 

; .‘PUSH R3 ON STACK 

845 

021174 

005316 




DEC 

(SP) 


846 

021176 

100001 




BPL 

2$ 


847 

021200 

005016 




CLR 

(SP) 


848 

021202 

042716 

177437 


2$: 

BIC 

#*CPR7,(SP) 


849 

021206 

012746 

021350 



NOV 

#6$.-(SP) 

;;PUSH #6$ ON STACK 


SEQ OIK 



I 
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850 021212 

010346 



851 021214 

012746 

021276 


852 021220 

004737 

042462 


853 




854 021224 

112737 

000000 

001545 

021232 

112737 

000200 

001546 

021240 

012737 

000115 

001412 

021246 

004737 

043016 


021252 

000404 



021254 

000240 



021256 

104000 



021260 

000137 

021422 


855 021264 




856 021264 

004737 

043370 


857 021270 

012703 

000205 


858 021274 

000002 



859 




860 021276 

005303 



861 021 30C 

100376 



862 




863 021302 

112737 

000000 

001545 

021310 

112737 

000200 

001546 

021316 

012737 

000000 

001412 

021324 

004737 

043016 


021330 

000404 



021332 

000249 



021334 

104000 



021336 

000137 

021422 


864 021342 

012703 

000205 


865 021346 

000002 



ooo 

867 021350 

012712 

021364 


868 021354 

005303 



869 021356 

100376 



870 021360 

000002 



871 




872 021362 

022626 



873 021364 

022626 



874 021366 

012716 

021374 


875 021372 

000002 



876 021374 




877 021374 

004737 

042546 


021400 

000404 



021402 

000240 



021404 

104000 



021406 

000137 

021422 


878 021412 




021412 

104252 



879 




880 021414 

010412 



881 021416 

010562 

000002 


882 021422 




883 




884 





021422 



MOV 

R3.-(SP> 

.PUSH R3 ON STACK 


MOV 

#4i.-(SP> 

.PUSH #4$ 0*. STACK 


JSR 

PC.GETSTS 

SETUP TO READ ALL REGISTERS 


MOVB 

#RMCS1 .PUTINX ; 

SETU*> PUT INDEX TABLE 


MOVB 

#200.PUT1NX*1 

SET TERMINATOR BYTE 


MOV 

♦OFFSET !G0! IE .RMCS10 ;SET RMCS1 OUTPUT BUFFER = OFFSET 


JSR 

PC, PUT 

GO WRITE RMCS1 VIA PUT SUBROUTINE 


BR 

3$ 

GO TO 3$ IF NO ERROR 


NOP 

• 

9 

RETURN HERE IF ERROR 


EMT 

# 

ERROR DEFINED BY PUT SUBROUTINE 


JMP 

13$ 

GO TO 13$ IF ERROR 

3$: 





JSR 

PC.TIMOUT 

WAIT FOR GO - 0 


MOV 

#205, R3 

R3 = GROSS TIMER 


RTI 



4$: 

DEC 

R3 ; 

DELAY 


BPL 

4$ 



MOVB 

#RMCS1, PUTINX 

SETUP PUT INDEX TABLE 


MOVB 

#200.PUTINX*1 

SET TERMINATOR BYTE 


MOV 

#N0P,RMCS10 

SET RMCS1 OUTPUT BUFFER = NOP 


JSR 

PC, PUT 

GO WRITE RMCS1 VIA PUT SUBROUTINE 


BR 

5$ 

GO TO 5$ IF NO ERROR 


NOP 


RETURN HERE IF ERROR 


EMT 


ERROR DEFINED BY PUT SUBROUTINE 


JMP 

13$ 

GO TO 13$ IF ERROR 

5$: 

MOV 

#205. R3 



RTI 



6$: 

MOV 

#9$, (R2) 


7$: 

DEC 

R3 



BPL 

7$ 



RTI 


•NO ERROR 

8$: 

CMP 

(SP) MSP)* 

; ADJUST STACK 

9$: 

CMP 

<SP>MSP>* 

ADJUST STACK 


MOV 

#10$, (SP) 



RTI 



10$: 





JSR 

PC.GET 

GO READ REGISTER(S) WITH GET SUBROUTINE 


BR 

iii 

GO TO 11$ IF NO ERROR 


NOP 


RETURN HERE IF ERROR 


EMT 


ERROR # DEFINED BY GET SUBROUTINE 


JMP 

13$ 

GO TO 13$ IF ERROR 

11$: 





EMT 

252 


12$: 

MOV 

R4,(R2) 



MOV 

R5,2(R2) 



13 $: 


• * ttttvttttttt Avvt vttttvtvvwttwtttvtvVivv 

••TEST 27 RETURN TO CENTERLINE TEST 

isrSf: 1 ******* 0 **** 1 ****** 



M 9 
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021422 000004 
021424 000240 
021426 012706 001100 
021432 013700 001276 
021436 013701 001466 
021442 012737 000027 001226 

835 

886 021450 004737 041532 
021454 054130 


SCOPE 

NOP 

MOV 

MOV 

MOV 

MOV 

JSR 

.WORD 


♦STACK, SP 
SBASE.RO 
TSTQUE.R1 
♦27.STESTN 

PC. TSTPRP 
05^130 


021456 

021460 

021462 

021464 

887 021470 

888 021470 
021476 
021504 
021512 
021516 
021520 
021522 
021524 

889 021530 

890 021534 

891 

892 021540 
021544 
021546 
021550 
021552 

893 021556 

894 021556 
021562 
021564 
021566 
021570 
021572 

895 021576 

896 021604 

897 021606 

898 021612 

899 021620 

900 021626 

901 021630 

902 021636 

903 021640 

904 021646 

905 021654 

906 021662 

907 021664 

908 021664 


000404 

000240 

104000 

000137 

112737 

112737 

012737 

004737 

000404 

000240 

104000 

000137 

004737 

004737 

004737 

000404 

000240 

104000 

000137 

004737 

000405 

000240 

104000 

004736 

000137 

032737 

001411 

005037 

013737 

042737 

104157 

032737 

001012 

013737 

042737 

012737 

104171 


021744 

000000 

000200 

000017 

043016 


021744 

042462 

043370 

042546 


021744 

043564 


021744 

000001 

001140 

001350 

177776 


001350 

077777 

100000 


001545 

001546 

001412 


001350 4$: 


001142 

001142 


100000 001350 5$: 


001142 

001142 

001140 


♦RMCS1 .PUTINX 
#200,PUTINX*1 
♦RTCJG0.RMCS10 
PC, PUT 

2 $ 


9$ 

PC,GETSTS 

PC.TIMOUT 


004737 050562 


PC, GET 

3$ 


PC,PRIERR 

4$ 


PC.BCSP)* 

9$ 

♦QM.RMDSI 

5$ 

SGDDAT 

RMDSJ.SBDDAT 

#*COM,$BDDAT 

157 

♦ATA.RMDSI 

6$ 

RMDSJ.SBDDAT 
#*CATA,S8DDAT 
♦A TA, SGDDAT 
171 

PC.CMPERRSTS 


SEQ 0116 


SCOPE CALL 

START OF TEST 

INITIALIZE STACK POINTER 

RO = UNIBUS ADDRESS 

(R1) = DEVICE BEING TESTED 

.SET TEST NUMBER IN APT MAIL BOX 

PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 

CLEAR CONTROLLER S SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF "SKr 1 OR "PIP” IS SET 

VERIFY RECALIBRATION 

GO TO 1$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY TSTPRP SUBROUTINE 

GO TO 9$ IF ERROR 

SETUP PUT INDEX TABLE 

SET TERMINATOR BYTE 

SET RMCS1 OUTPUT BUFFER = RTC.'GO 

GO WRITE RMCS1 VIA PUT SUBROUTINE 

GO TO 2S IF NO ERROR 

RETURN HERE IF ERROR 

ERROR DEFINED BY PUT SUBROUTINE 

GO TO 9$ IF ERROR 

SETUP FOR STATUS FETCH 

WAIT FOR RECAL TO COMPLETE 

GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 3$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY GET SUBROUTINE 

GO TO 9$ IF ERROR 

GO CHECK FOR PRIMARY ERRORS 

GO TO 4$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PRIERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 9$ IF ERROR 

OFFSET MODE OFF?? 

YES' 1 

GOOD ‘DATA FOR TYPEOUT 
BAD DATA FOR TYPEOUT 


;WAS ATTENTION SET ?? 

•yes 1 ' 

•BAD DATA FOR TYPEOUT 
.'GOOD DATA FOR TYPEOUT 


.•CHECK ANY ERRORS NOT MASKED 


i 




N 9 


CZRNDAO 
T 27 


909 

910 


911 

912 


913 

914 

915 



918 

919 

920 

921 

922 

923 

924 

925 

926 

927 

928 

929 
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RETURN 

TO CENTERLINE TEST 




021670 

115760 



.WORD 

NDTMSK 

021672 

000010 



.WORD 

DPE 

021674 

000405 



BR 

7$ 

021676 

000240 



NOP 


021700 

104000 



EMT 


021702 

004736 



JSR 

PC ,i(SP) + 

021704 

000137 

021744 


JMP 

9$ 

021710 



7$: 



021710 

004737 

060210 


JSR 

PC, STCDRVSTS 

021714 

000405 



BR 

8$ 

021716 

000240 



NOP 


021720 

104000 



EMT 


021722 

004736 



JSR 

pc.a<sp)+ 

021724 

000137 

021744 


JMP 

9$ 

021730 



8$: 



021730 

004737 

044416 


JSP 

PC. SECERR 

021734 

000403 



BR 

9$ 

021736 

000240 



NOP 


021740 

104000 



EMT 


021742 

004736 



JSR 

pc,a<sp)+ 

021744 



9$: 




MASK FOR RMER1 

MASK FOR RMER2 

GO TO 7$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR 0 DEFINED BY CMPERRSTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 9$ IF ERROR 

GO CHECK FOR CHANGES IN DRIVE STATUS 

GO TO 8$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR ft DEFINED BY STCDRVSTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 9$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 

GO TO 9$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR 0 DEFINED BY SECERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 


>*************************************************************** 


;*TEST 30 


READ IN PRESET TEST 


021744 

021744 

021746 

000004 

000240 

TST30: 

SCOPE 

NOP 

021750 

012706 

001100 

MOV 

021754 

013700 

001276 

MOV 

021760 

013701 

001466 

MOV 

021764 

012737 

000030 001226 

MOV 

021772 

021776 

004737 

054130 

041532 

JSR 

.WORD 


022000 

022002 

022004 

022006 

022012 

022012 

022016 

022022 

022026 

022032 

022036 

022042 

022050 

022056 

022064 

022072 


000404 

000240 

104000 

000137 

012702 

112722 

112722 

112722 

112722 

112722 

012737 

012737 

012737 

012737 

004737 


022326 

001545 

000006 

000034 

000032 

000000 

000200 

177777 001420 
177777 00 J 446 
017200 001444 
000021 001412 
043016 


IS: 


BR 

NOP 

EMT 

JMP 

MOV 

Move 

Move 

Hove 

Move 

Move 

MOV 

MOV 

NOV 

MOV 

JSR 


#STACK, SP 
SBASE.RO 
TSTQUE.R1 
#30,$TESTN 

PC.TSTPRP 

05*130 


IS 

10$ 


SCOPE CALL 

START OF TEST 

INITIALIZE STACK POINTER 

RO = UNIBUS ADDRESS 

(R1) = DEVICE being tested 

;SET TEST NUMBER IN APT MAIL BOX 

PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 

CLEAR CONTROLLER ft SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF "SKr* OR ’W IS SET 

VERIFY RECALIBRATION 

GO TO IS IF NO ERROR 

RETURN HERE IF ERROR 

ERROR 0 DEFINED BY TSTPRP SUBROUTINE 

GO TO 10S IF ERROR 

R2 POINTS TO INDEX TABLE 


#PUTINX.R2 
#RMDA.(R2>+ 

#RMDC,(R2>+ 

#RM0F.(R2)+ 

#RMCSi , (R2)+ 

#200,(62)+ 

#-1,RMDA0 
#-1 .RMDCO 

#FMfl6!ECI!HCl!SSEI!0FD.RM0F0 

Pc!pUT°' RHCS ° ;G0 WRITE REGISTER(S) WITH PUT SUBROUTINE 


SEQ 0117 


) 


1 


L 
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SEQ 0118 

I T30 READ IN PRESET 

TEST 







022076 

000404 




BR 

2$ 

GO TO 2$ IF NO ERROR 


022100 

000240 




NOP 

i 

RETURN HERE IF ERROR 


022102 

104000 




EMT 

10$ 

ERROR # DEFINED BY PUT SUBROUTINE 


022104 

000137 

022326 



JMP 

GO TO 10S IF ERROR 


930 022110 

004737 

042462 


2$: 

JSR 

PC.GETSTS 

SETUP FOR STATUS FETCH 


931 022114 

932 

933 022120 

004737 

043370 



JSR 

PC.TIMOUT 

WAIT FOR RIP TO COMPLETE 


004737 

042546 



JSR 

PC. GET 

GO READ REGISTER(S) WITH GET SUBROUTINE 


022124 

000404 




BR 

3$ 

GO TO 3S IF NO ERROR 


022126 

000240 




NOP 


RETURN HERE IF ERROR 


022130 

104000 




EMT 


ERROR # DEFINED BY GET SUBROUTINE 


022132 

000137 

022326 



JMP 

10$ 

GO TO 10S IF ERROR 


934 022136 

935 022136 

004737 

043564 


3$: 

JSR 

PC.PRIERR 

GO CHECK FOR PRIMARY ERRORS 


022142 

000405 




BR 

4$ 

GO TO 4S IF NO ERROR 


022144 

000240 




NOP 


RETURN HERE IF ERROR 


| 022146 

104000 




EMT 


ERROR # DEFINED BY PRIERk SUBROUTINE 


022150 

004736 




JSR 

PC.iCSPH 

ioi 

GO BACK FOR MORE ERROR CHECKS 


022152 

000137 

022326 



JMP 

GO TO 10S IF ERROR 


936 022156 

013737 

001370 

001142 

4$: 

MOV 

RM0E1 .SBDDAT 

IS RMOF RESET?? 


937 022164 

042737 

160577 

001142 


B1C 

#*C<FMT16!ECI !HCI !SSEI !OFD>,$BDDAT 


938 022172 

001403 




BED 

5$ 

YES!! 


939 022174 

005037 

001140 



CLR 

SGDDAT 

GOOD DATA FOR TYPEOUT 


940 022200 

104160 




EMT 

160 



941 022202 

005737 

001344 


5$: 

TST 

RMDAI 

IS RMDA RESET?? 


942 022206 

001406 




tifcQ 

6$ 

YES!! 


943 022210 

013737 

001344 

001142 


MOV 

RMDAI. SBDDAT 

BAD DATA FOR TYPEOUT 


944 022216 

005037 

001140 



CLR 

SGDDAT 

GOOD DATA FOR TYPEOUT 


945 022222 

104161 




EMT 

161 



946 022224 

005737 

001372 


6$: 

TST 

RMDCI 

IS RMDC RESET?? 


947 022230 

001406 




BEQ 

7$ 

YES!! 


948 022232 

013737 

001372 

001142 


MOV 

RMDCI. SBDDAT 

BAD DATA FOR TYPEOUT 


949 022240 

005037 

001140 



CLR 

SGDDAT 

GOOD DATA FOR TYPEOUT 

I 

950 022244 

951 022246 

104162 



7$: 

EMT 

162 



952 022246 

004737 

050562 



JSR 

PC.CMPERRSTS 

CHECK ANY ERRORS NOT MASKED 


022252 

115760 




.WORD 

NDTMSK 

MASK FOR RMER1 


022254 

000010 




.WORD 

DPE 

MASK FOR RMER2 


022256 

000405 




BR 

8$ 

GO TO 8S IF NO ERROR 


022260 

000240 




NOP 


RETURN HERE IF ERROR 


022262 

104000 




EMT 


ERROR » DEFINED BY CMPERRSTS SUBROUTINE 


022264 

004736 




JSR 

PC.a(SP)* 

GO BACK FOR MORE ERROR CHECKS 


022266 

000137 

022326 



JMP 

ioi 

GO TO 10S IF ERROR 


953 022272 

954 022272 

004737 

060210 


8$: 

JSR 

PC.STCDRVSTS 

GO CHECK FOR CHANGES IN DRIVE STATUS 


022276 

000405 




BR 

9$ 

GO TO 9$ IF NO ERROR 


022300 

000240 




NOP 


RETURN HERE IF ERROR 


022302 

104000 




EMT 


ERROR f DEFINED BY STCDRVSTS SUBROUTINE 


022304 

004736 




JSR 

pc.a<sp>* 

GO BACK FOR MORE ERROR CHECKS 


022306 

000137 

022326 



JMP 

ioi 

GO TO 10$ IF ERROR 


955 0223K 

956 022312 

004737 

044416 


9$: 

JSR 

PC.SECERR 

GO CHECK FOR SECONDARY ERRORS 


022316 

000403 




BR 

ioi 

GO TO 10$ IF NO ERROR 


022320 

000240 




NOP 


RETURN HERE IF ERROR 


022322 

104000 




EMT 


ERROR # DEFINED BY SECERR SUBROUTINE 


022324 

004736 




JSR 

pc.acsp)* 

GO BACK FOR MORE ERROR CHECKS 


957 022326 




10$: 



• 




C 10 



SEQ 0119 


TEST 


SCOPE CALL 

START OF TEST 

INITIALIZE STACK POINTER 

RO = UNIBUS ADDRESS 

(R1) = DEVICE BEING NESTED 

;SET TEST NUMBER IN APT NAIL BOX 

PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 

CLEAR CONTROLLER t SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF “SKI” OR “PIP” IS SET 

VERIFY RECALIBRATION 

GO TO 1$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR f DEFINED BY TSTPRP SUBROUTINE 

GO TO S$ IF ERROR 

SETUP PUT INDEX TABLE 
SET TERMINATOR BYTE 

;SET RMCS1 OUTPUT BUFFER = OFFSETJGO 
GO WRITE RMCS1 VIA PUT SUBROUTINE 
GO TO 2$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR DEFINED BY PUT SUBROUTINE 
GO TO 8$ IF ERROR 
SETUP FOR STATUS 

GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 3$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY GET SUBROUTINE 

GO TO 8$ IF ERROR 

GO CHECK FOR PRIMARY ERRORS 

GO TO 4$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PRIERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 8$ IF ERROR 

OFFSET ON?? 

YES 

BAD DATA FOR TYPEOUT 

GOOD DATA FOR TYPEOUT 

SKIP REST OF TEST 

SETUP PUT INDEX TABLE 
SET TERMINATOR BYTE 


D 10 


SEO 0120 
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022550 

012737 

000000 

001446 


MOV 

fO.RMDCO 

SET RMDC OUTPUT BUFFER = 0 

022556 

004737 

043016 



JSR 

PC. PUT ; 

GO WRITE RMDC VIA PUT SUBROUTINE 

022562 

000404 




BR 

6$ 

GO TO 6S IF NO ERROR 

022564 

000240 




NOP 


RETURN HERE IF ERROR 

022566 

104000 




EMT 


ERROR DEFINED BY PUT SUBROUTINE 

022570 

000137 

022644 



JMP 

8$ 

GO TO 8S IF ERROR 

978 022574 

979 022574 

004737 

042546 


6$: 

JSR 

PC. GET 

GO READ REGISTER(S) WITH GET SUBROUTINE 

022600 

000404 




SR 

7$ 

GO TO 7S IF NO ERROR 

022602 

000240 




NOP 


RETURN HERE IF ERROR 

022604 

104000 




EMT 


ERROR # DEFINED BY GET SUBROUTINE 

022606 

000137 

022644 



JMP 

8$ 

GO TO 8$ IF ERROR 

980 022612 

032737 

000001 

001350 

7$: 

BIT 

IQM.RMDSI 

DID OFFSET MODE RESET?? 

981 022620 

001411 




BEO 

8$ 


982 022622 

013737 

001350 

001142 


MOV 

RMDSI.SBDDAT 

BAD DATA FOR TYPEOUT 

983 022630 

042737 

177776 

001142 


BIC 

fCOM.SBDDAT 

SGDDAT 


984 022636 

005037 

001140 



CLR 

GOOD DATA FOR TYPEOUT 

985 022642 

986 022644 

987 

104253 



8$: 

EMT 

253 


988 




;;****« 








;*TEST 

32 

ILLEGAL FUNCTION TEST 

022644 

022644 

000004 



» » 

TST32: 

SCOPE 


SCOPE CALL 

022646 

000240 




NOP 


START OF TEST 

022650 

012706 

001100 



MOV 

f STACK. SP 

INITIALIZE STACK POINTER 

022654 

013700 

001276 



MOV 

SBASE.RO 

RO * UNIBUS ADDRESS 

022660 

013701 

001466 



MOV 

TST0UE.R1 

(R1) = DEVICE BEING TESTED 

022664 

989 

990 022672 

012737 

000032 

001226 


MOV 

#32,$TESTN 

;SET TEST NUMBER IN APT MAIL BOX 

004737 

041532 



JSR 

PC.TSTPRP 

PREPARE DEVICE FOR TEST 

022676 

040000 




.UORD 

040000 

TASK DESCRIPTOR AS FOLLOWS: 

CLEAR CONTROLLER & SELECT DEVICE 

022700 

000404 




BR 

IS 

GO TO IS IF WO ERROR 

022702 

000240 




NOP 


RETURN HERc IF ERROR 

022704 

104000 




EMT 


ERROR # DEFINED BY TSTPRP SUBROUTINE 

022706 

000137 

023430 



JMP 

13S 

GO TO 13S IF ERROR 

991 022712 

992 022712 

004737 

042462 


1$: 

JSR 

PC.GETSTS 

SETUP FOR STATUS 

993 022716 

994 022722 

01270? 

000000 


2$: 

MOV 

/FN0P.R2 


995 022722 

004737 

052466 



JSR 

PC.CNTCLR 

GO ISSUE CONTROLLER CLEAR 

022726 

000404 




BR 

3S 

GO TO 3S IF NO ERROR 

022730 

000240 




NOP 


RETURN HERE IF ERROR 

022732 

104000 




EMT 


ERROR NUMBER DEFINED BY SUBROUTINE 

GO TO 13S IF ERROR 

022734 

000137 

023430 



JMP 

13S 

996 022740 

997 




3$: 




998 




;SET DIAGNOSTIC MODE AND DIAGNOSTIC UNIT READY. DIAGNOSTIC ON 

999 




.•CYLINDER 



1000 022740 

112737 

000024 

001545 


MOV0 

#RMMR1 .PUTINX 

SETUP PUT INDEX TABLE 

022746 

112737 

000200 

001546 


Move 

#200.PUTINX*1 

SET TERMINATOR BYTE 

022754 

012737 

000001 

001436 


MOV 

4DMD.RMMR10 

SET RMMR1 OUTPUT BUFFER = DMD 

022762 

004737 

043016 



JSR 

PC. PUT 

GO WRITE RMMR1 VIA PUT SUBROUTINE 

022766 

000404 




BR 

4S 

GO TO 4S IF NO ERROR 

022770 

000240 




NOP 


RETURN HERE IF ERROR 
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13S 


£ 10 


SEO 0121 


022772 

104000 




EMT 

022774 

000137 

023430 



JM P 

1001 023000 




4$: 


1002 023000 

112737 

000024 

001545 


MOVB 

023006 

112737 

000200 

001546 


MOVB 

023014 

012737 

001401 

001436 


MOV 

023022 

004737 

043016 



JSR 

023026 

000404 




BR 

023030 

000240 




NOP 

023032 

104000 




EMT 

023034 

000137 

023430 



JMP 

1003 023040 




5$: 


1004 






1005 




.SET 

VOLUME \ 

1C06 023040 

112737 

000000 

001545 


MOVB 

023046 

112737 

000200 

001546 


MOVB 

023054 

012737 

000023 

001412 


MOV 

023062 

004737 

043016 



JSR 

023066 

000404 




BR 

023070 

000240 




NOP 

023072 

104000 




EMT 

023074 

000137 

023430 



JMP 

1007 C73100 




6$: 


1008 023100 

012737 

000001 

001412 


MOV 

1009 023106 

050237 

001412 



BIS 

1010 023112 

012737 

104372 

001416 


MOV 

1011 023120 

012737 

177777 

001414 


MOV 

1012 023126 

005037 

001420 



CLR 

1013 023132 

005037 

001446 



CLR 

1014 023136 

012737 

010000 

001444 


MOV 

1015 023144 

012703 

001545 



MOV 

1016 023150 

112723 

000004 



MOVB 

1017 023154 

112723 

000002 



MOVB 

1018 023160 

112723 

000032 



MOVB 

1019 023164 

112723 

000006 



MOVB 

1020 023170 

112723 

000034 



MOVB 

1021 023174 

112723 

000000 



MOVB 

1022 023200 

112713 

000200 



MOVB 

1023 023204 

004737 

043016 



JSR 

023210 

000404 




SR 

023212 

000240 




NOP 

023214 

104000 




EMT 

023216 

000137 

023430 



JMP 

1024 023222 

004737 

043370 


7$: 

JSR 

1025 






1026 023226 

004737 

042546 



JSR 

023232 

000404 




BR 

023234 

000240 




NOP 

023236 

104000 




EMT 

023240 

000137 

023430 



JMP 

1027 023244 




8$: 


1028 023244 

004737 

043564 



JSR 

023250 

000405 




BR 

023252 

000240 




NOP 

023254 

104000 




EMT 

023256 

004736 




JSR 

023260 

000137 

023430 



JMP 


; ERROR DEFINED BY PUT SUBROUTINE 
;G0 TO 13$ IF ERF.OR 


fRMHRI.PUTINX .'SETUP PUT INDEX TABLE 
#200,PUTINX+1 ;SET TERMINATOR BYTE 

#DMD ! MUR ! MOC , RMMR 1 0 ;SET RMMR1 OUTPUT BUFFER = DMD!MUR!MOC 


PC. PUT 

5$ 


13 $ 


IV I Vk ■ ™ W l VV I r VI VV » kn — 

GO WRITE RMMR1 VIA PUT SUBROUTINE 
GO TO 5$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR DEFINED BY PUT SUBROUTINE 
GO TO 13$ IF ERROR 


.SET VOLUME VALID BEFORE ISSUING FUNCTION CODE BEING TESTED 

#RMCS1 .PUTINX .-SETUP PUT INDEX TABLE 

#200.PUT1NX*1 .'SET TERMINATOR BYTE 

#PAKACK!G0,RMCS10 .'SET RMCS1 OUTPUT BUFFER = PAKACK ! GO 


PC. PUT 
6 $ 


13 $ 

#G0.RMCS10 

R2.RMCS10 

fBUFONE.RMBAO 

f-I.RMWCO 

RMDAO 

RMDCO 

#FMT16.RMOFO 
#PUTINX,R3 
#RMBA. <R3) ♦ 
#RMWC.(R3>* 
#RMOF,(R3>* 
#RMDA. (R3> ♦ 
#RMDC.(R3>* 
#RMCS1.(R3>* 
#200. (R3) 

PC. PUT 
7$ 


13$ 

PC.TIMOUT 

PC. GET 

8 $ 


13$ 

PC.PRIERR 

9$ 


I V 0 Vk » nnvv l W » r w » VV I kn — 

;G0 WRITE RMCS1 VIA PUT SUBROUTINE 
; GO TO 6$ IF NO ERROR 
.•RETURN HERE IF ERROR 
; ERROR DEFINED BY PUT SUBROUTINE 
;GO TO 13$ IF ERROR 


WRITE FUNCTION CODE IN BUFFER 
DUMMY BUS ADDRESS 
DUMMY WORD COUNT 
CLEAR DISK ADDRESS 
CLEAR CYLINDER ADDRESS 
16 BIT FORMAT 

WRITE REGISTER INDEX TABLE 


PC.BCSPH 

13i 


GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 7$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 

GO TO 13$ IF ERROR 

WAIT FOR GO TO RESET 

GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 8$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY GET SUBROUTINE 

GO TO 13$ IF ERROR 

GO CHECK FOR PRIMARY ERRORS 

GO TO 9$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PRIERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 13$ IF ERROR 
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F 10 


SEO 0122 


1029 

023264 

016237 

070002 

001140 

9S: 

NOV 

FNCDTB(R2) .SGDDAT ;GET ENTRY FROM FUNCTION CODE 

1030 

023272 

042737 

177776 

001140 


BIC 

#*CILF, SGDDAT 


1031 

023300 

013737 

001352 

001142 


NOV 

RMER1I .SBDDAT 

.-BAD DATA FOR TYPEOUT 

1032 

023306 

042737 

177776 

001142 


BIC 

#*CiLF, SBDDAT 


1033 

023314 

023737 

001140 

001142 


CNP 

SGDDAT. SBDDAT 

.‘IS ILF STATUS CORRECT? 

1034 

023322 

001402 




BEO 

10S 

; YES! ! 

1035 

023324 

104254 




ENT 

254 


1036 

023326 

000440 




BR 

13S 


1037 

023330 

016237 

070002 

001140 

10$: 

NOV 

FNCDTB(R2>. SGDDAT 

1038 

023336 

032737 

040000 

001350 


BIT 

AEPR.RNDSI 

.‘WAS AN ERROR DETECTED?? 

1039 

023344 

001403 




BEO 

IIS 

;N0! ! 

1040 

023346 

052737 

100000 

001140 


BIS 

#ATA, SGDDAT 

; YES - ATA SHOULD BE ON 

1041 

023354 

042737 

077777 

001140 

IIS: 

BIC 

#*CATA X SGDDAT 


1042 

023362 

013737 

001350 

001142 


NOV 

RNDSI. SBDDAT 

;GET DRIVE'S ATTENTION 

1043 

023370 

042737 

077777 

001142 


BIC 

#*CATA. SBDDAT 


1044 

023376 

023737 

001140 

001142 


CNP 

SGDDAT. SBDDAT 

; jS ATA STATUS OK?? 

1045 

023404 

001402 




BEO 

12S 

.-YES'! 

1046 

023406 

104255 




ENT 

255 


1047 

023410 

000407 




BR 

13S 


1048 

023412 

062702 

000002 


12S: 

ADD 

#2.R2 

;G0 TO NEXT FUNCTION CODE 

1049 

023416 

022702 

000076 



CNP 

#ILf 76.R2 

.•DONE?? 

1050 

023422 

103402 




BLO 

13$ 

; YES !! 

1051 

023424 

000137 

022722 



JNP 

2S 

.•TEST NEXT FUNCTION 

1052 

023430 




13S: 




1053 









1054 





••***********•**********<- 3 *************************************** 






.-•TEST 
• • ***** 

33 

INVALID CONNAND 

TEST 


023430 

023430 

023432 

023434 

023440 

023444 

023450 

1055 

1056 023456 
023462 

023464 

023466 

023470 

023472 

1057 023476 

1058 023476 

1059 023502 

1060 023506 

1061 023506 
023512 
023514 
023516 
023520 

1062 023524 

1063 

1064 

1065 

1066 023524 


000004 
000240 
012706 
013700 
013701 
Cl 2737 

004737 

040000 

000404 

000240 

104000 

000137 

004737 

012702 

004737 
00 404 
000240 
104000 
000137 


TST33: 


001100 

001276 

001466 

000033 

041532 


024154 

042462 

000000 

052466 


024154 


001226 


IS: 

2S: 

3$: 


SCOPE 

NOP 

NOV 

NOV 

NOV 

NOV 

JSR 

.WORD 

BR 

NOP 

ENT 

JNP 

JSR 

NOV 

JSR 

BR 

NOP 

ENT 

JNP 


MS TACK.SP 
SBASE.RO 
TST0UE.R1 
A33.STESTN 

PC.TSTPRP 

046000 

IS 


13S 

PC.GETSTS 
MH 0P.R2 

PC.CNTCLR 

3S 


13S 


.SCOPE CALL 

.•START Of TEST 

.INITIALIZE STACK POINTER 

;R0 - UNIBUS ADDRESS 

;(R1) = DEVICE BEING TESTED 

;;SET TEST NUMBER IN APT NAIL BOX 

; PREPARE DEVICE FOR TEST 
.TASK DESCRIPTOR AS FOLLOWS: 

.•CLEAR CONTROLLER t SELECT DEVICE 

;G0 TO IS IF NO ERROR 

.‘RETURN HERE IF ERROR 

.•ERROR f DEFINED BY TSTPRP SUBROUTINE 

;G0 TO 13S IF ERROR 

.•SETUP FOR STATUS 


;G0 ISSUE CONTROLLER CLEAR 

;G0 TO 3S IF NO ERROR 

.•RETURN HERE IF ERROR 

.•ERROR NUNBER DEFINED BY SUBROUTINE 

;G0 TO 13S IF ERROR 


112737 000024 001545 


.-SET DIAGNOSTIC NODE AND DIAGNOSTIC UNIT READY. DIAGNOSTIC ON 
.CYLINDER 

NOVB #RNNR1 .PUT I NX .‘SETUP PUT INDEX TABLE 
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y * Cl 


SEQ 0123 


#200.PUTINX+1 
#DMD,RMMR10 
PC, PUT 
4 $ 


SET TERMINATOR BYTE 

SET RMMR1 OUTPUT BUFFER = DMO 

GO WRITE RMMR1 VIA PUT SUBROUTINE 

GO TO 4$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR DEFINED BY PUT SUBROUTINE 

GO TO 13$ IF ERROR 


fRMMRI .PUTINX .-SETUP PUT INDEX TABLE 
#200.PUTINX*1 .-SET TERMINATOR BYTE 

#DMD!MUR!M0C.RMMR10 ;SET RMMR1 OUTPUT BUFFER = DMD.'MUR!MOC 


PC, PUT 

5 $ 


• w * vk » wn v w* w wv MV wv> » bn — 

GO WRITE RMMR1 VIA PUT SUBROUTINE 
GO TO 5$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR DEFINED BY PUT SUBROUTINE 
GO TO 13$ IF ERROR 


IS LEFT RESET FOR THE TEST 


#G0,RMCS10 

R2.RMCS10 

fBUFONE.RMBAO 

#-1 ,RMWC0 

RMDAO 

RMOCO 

#FMT16,RM0F0 
#PUTINX,R3 
#RMBA,(R3)* 
#RMUC,(R3)+ 
#RMOF,(R3H 
#RMDA, (R3) ♦ 
#RMDC, <R3) ♦ 
#RMCS1,(R3)* 
#200, (R3) 

PC, PUT 
7$ 


13$ 

PC,TI«0UT 


PC, GET 

8 $ 


PC.PRIERR 

9$ 


P^BCSPH 


WRITE FUNCTION CODE IN BUFFER 
DUMMY BUS ADDRESS 
DUMMY WORD COUNT 
CLEAR DISK ADDRESS 
CLEAR CYLINDER ADDRESS 
16 BIT FORMAT 

WRITE REGISTER INDEX TABLE 


FNCDTB(R2),$GDDAf 


GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 7$ I» c NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 

GO TO 13$ IF ERROR 

WAIT FOR GO TO RESET 

GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 8$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY GET SUBROUTINE 

GO TO 13$ IF ERROR 

GO CHECK FOR PRIMARY ERRORS 

GO TO 9$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PRIERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 13$ IF ERROR 

.-GET ENTRY FROM FUNCTION CODE TABLE 


H 10 


SEQ 0124 
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1097 

1098 

1099 

1100 
1101 
1102 

1103 

1104 

1105 

1106 

1107 

1108 

1109 

1110 
1111 
1112 

1113 

1114 

1115 

1116 

1117 

1118 

1119 

1120 
1121 


024016 

024024 

024032 

024040 

024046 

024050 

024052 

024054 

024062 

024070 

024072 

024100 

024106 

024114 

024122 

024130 

024132 

024134 

024136 

024142 

024146 

024150 

024154 


024154 

024154 

024156 

024160 

024164 

024170 

024174 

1122 

1123 024202 
024206 

024210 

024212 

024214 

024216 

1.24 024222 

1125 024222 

1126 024226 

1127 024232 

1128 024232 
024236 
024240 
024242 
024244 

1129 024250 

1130 

1131 

1132 

1133 024250 
024256 


042737 

013737 

042737 

023737 

001402 

104216 

000440 

016237 

032737 

001403 

052737 

042737 

013737 

042737 

023737 

001402 

104255 

000407 

062702 

022702 

103402 

000137 


000004 

000240 

012706 

013700 

013701 

012737 

004737 

040000 

000404 

000240 

104000 

000137 

004737 

012702 

004737 

000404 

000240 

104000 

000137 


112737 

112737 


167777 

001140 


BiC 

fClVC.SGDDAT 


001400 

00114? 


MOV 

RMER2I.S8DDAT 

.'BAD DATA FOR TYPEOUT 

167777 

001142 


BIC 

#*CJVC.SBDDAT 


001140 

001142 


CMP 

SGDDAT.SBDDAT 

;IS IVC STATUS CORRECT? 




BED 

10S 

;YES!! 




EMT 

216 





BR 

13S 


070002 

001140 

10S: 

MOV 

FNCDTB(R2).SGDDAT 

040000 

001350 


BIT 

fERR.RMDSI 

;WAS AN ERROR DETECTED?’ 




BEQ 

IIS 

.'NO! ! 

100000 

001140 


BIS 

JATA.SSDDAT 

;YE$ - ATA SHOULD BE ON 

077777 

001140 

IIS: 

BIC 

#*CATA.SGDDAT 


001350 

001142 


MOV 

RMDSI .S8DDAT 

.'GET DRIVE'S ATTENTION 

077777 

001142 


BIC 

#*CATA.S8DDAT 


001140 

001142 


CMP 

SGDDAT.SBDDAT 

;1S ATA STATUS OK?? 




BEQ 

12S 

.'YES!! 




EMT 

255 





BR 

13S 


000002 


12S: 

ADD 

A2.R2 

;G0 TO NEXT FUNCTION CODE 

000076 



CMP 

AJLF76.R2 

.'DONE?? 




BLO 

13S 

;YES ! ! 

023506 



JMP 

2S 

.'TEST NEXT FUNCTION 



13S: 






• • ***** 

•'•TEST 
■ • ****. 

******* 

34 

INVALID ADDRESS 

ERROR TEST 


TST34: 


001100 

SCOPE 

NOP 

MOV 

001276 

MOV 

001466 

MOV 

000034 001226 

MOV 

041532 

JSR 


.WORD 




BR 

NOP 

EMT 

024744 

IS: 

JMP 

042462 


JSR 

000000 

2S: 

MOV 

052466 


JSR 

BR 

NOP 

EMT 

024744 

3S: 

JMP 


fSTACK.SP 

S8ASE.R0 

TSTQUE.R1 

#34,STESTN 

PC.TSTPRP 

040000 

IS 


13S 

PC.GETSTS 

#N0P.R2 

PC.CNTCLR 

3S 


SCOPE CALL 

START OF TEST 

INITIALIZE STACK POINTER 

RO = UNIBUS ADDRESS 

(R1) = DEVICE BEING TESTED 

;SET TEST NUMBER IN APT NAIL 


BOX 


13S 


PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 

CLEAR CONTROLLER I SELECT DEVICE 

60 TO IS IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY TSTPRP SUBROUTINE 

GO TO 13S IF ERROR 

SETUP FOR STATUS 


;G0 ISSUE CONTROLLER CLEAR 

;G0 TO 3S IF NO ERROR 

.•RETURN HERE IF ERROR 

.•ERROR NUMBER DEFINED BY SUBROUTINE 

;G0 TO 13S IF ERROR 


000024 001545 
000200 001546 


,'SET DIAGNOSTIC MODE AND DIAGNOSTIC UNIT READY. DIAGNOSTIC ON 
• CYLINDER 

' MOVE fRMMRI .PUTINX .'SETUP PUT INDEX TABLE 

MOVB A200.PUTINX+1 .'SET TERMINATOR BYTE 
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SEQ 0125 


024264 

024272 

024276 

024300 

024302 

024304 

1134 024310 

1135 024310 
024316 
024324 
024332 
024336 
024340 
024342 
024344 

1136 024350 

1137 

1138 

1139 024350 
024356 
024364 
024372 
024376 
024400 
024402 
024404 

1140 024410 

1141 024410 

1142 024416 

1143 024422 

1144 024430 

1145 024436 

1146 024444 

1147 024452 

1148 024460 

1149 024464 

1150 024470 

1151 024474 

1152 024500 

1153 024504 

1154 024510 

1155 024514 

1156 024520 
024524 
024526 
024530 
024532 

1157 024536 

1158 

1159 024542 
024546 
024550 
024552 
024554 

1160 024560 

1161 024563 
024564 


012737 

004737 

000404 

000240 

104000 

000137 

112737 

112737 

012737 

004737 

000404 

000240 

104000 

000137 


112737 

112737 

012737 

004737 

000404 

000240 

104000 

000137 

012737 

050237 

012737 

012737 

012737 

012737 

012737 

012703 

112723 

112723 

112723 

112723 

112723 

112723 

112713 

004737 

000404 

£300240 

104000 

000137 

004737 

004737 

000404 

000240 

104000 

000137 

004737 

000405 


000001 

043016 


024744 

000024 

000200 

00K01 

043016 


024744 


000000 

000200 

000023 

043016 


024744 

000001 

001412 

104372 

177777 

177777 

177777 

010000 

001545 

000004 

000002 

000032 

000006 

000034 

0(0000 

000200 

043016 


024744 

043370 

042546 


024744 

043564 


001436 


001545 

001546 

001436 


001545 

001546 

001412 


NOV #DMD,RMMR10 .SET RNNR1 OUTPUT BUFFER = DND 

JSR PC. PUT ;G0 WRITE RNNR1 VIA PUT SUBROUTINE 

BR 4$ ;G0 TO 4$ IF NO ERROR 

NOP .RETURN HERE IF ERROR 

ENT .-ERROR DEFINED BY PUT SUBROUTINE 

JNP 13S ;G0 TO 13$ IF ERROR 

4$: 

NO 3 #RNNR1 .PUTINX .'SETUP PUT INDEX TABLE 

N0V8 #200,PUTINX*1 -SET TERNINATOR BYTE 

NOV #DMD!MUR!N0C,RMNR10 ;SET RNNR1 OUTPUT BUFFER = DND!NUR!NOC 
JSR PC .PUT ;G0 WRITE RNNR1 VIA PUT SUBROUTINE 

BR 5$ ;G0 TO 5$ IF NO ERROR 

NOP .'RETURN HERE IF ERROR 

ENT .-ERROR DEFINED BY PUT SUBROUTINE 

JNP 13$ ;G0 TO 13$ IF ERROR 

5$: 

.SET VOLUME VALID BEFORE ISSUING FUNCTION CODE BEING TESTED 


001412 

001416 

001414 

001420 

001446 

001444 


MOVB 

#RMCS1 .PUTINX ; 

NOVO 

#200, PUT I NX* 1 ; 

NOV 

#PAKACK!G0,RMCS10 

JSR 

PC. PUT 

BR 

6$ 

NOP 


ENT 


JNP 

13 $ :• 

MOV 

fGO.RMCSIO 

BIS 

R2.RMCS10 

MOV 

#BUFONE.RMBAO 

MOV 

#-1 .RMWCO 

MOV 

#-1 .RMDAO 

MOV 

#-1 .RMDCO 

MOV 

#FMT16,RM0F0 

NOV 

#PU TINX.R3 

MOVB 

#RMBA,(R3)+ 

MOVB 

#RMWC,(R3> + 

MOVB 

#RN0F,<R3>* 

MOVB 

#RMDA,(R3)+ 

M0V8 

#RNDC,(R3>* 

MOVB 

#RNCS1.<R3>* 

MOVB 

#200, ($3) 

JSR 

PC, PUT 

BR 

7$ 

NOP 


EMT 


JMP 

13$ ; 

JSR 

PC.TIMOUT 

JSR 

PC.6ET 

BR 

8$ ; 

NOP 


EMT 


JMP 

13$ ; 

JSR 

PC.PRIERR 

BR 

9$ 


l ;SET RNCS1 OUTPUT BUFFER = PAKACK ! GO 

GO WRITE RNCS1 VIA PUT SUBROUTINE 

GO TO 6$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR DEFINED BY PUT SUBROUTINE 

GO TO 13$ IF ERROR 


WRITE FUNCTION CODE IN BUFFER 
DUMMY BUS ADDRESS 
DUMMY WORD COUNT 
USE INVALID DISK ADDRESS 
USE INVALID CYLINDER ADDRESS 
16 BIT FORMAT 

WRITE REGISTER INDEX TABLE 



J 10 


SEQ 0126 


PA6E 13-42 


PC.i(SP)* ;i 

13i : 

FNfDTB(R2).*GDDAt 
#*CIAE,SGDDAT 

rmerii.sbddat ; i 

**CIAE,S8DDAT 
*GDDAT,*BDDAT ; 
10* 

217 

13* 

FNCDTBCR2) ,*GDDAT 


.•RETURN HERE IF ERROR 
.ERROR * DEFINED BY PR I ERR SUBROUTINE 
;G0 BACK FOR MORE ERROR CHECKS 
;G0 TO 13* IF ERROR 

T ;GET ENTRY FROM FUNCTION CODE TABLE 

;BAD DATA FOR TYPEOUT 


;IS IAE STATUS CORRECT? 
; YES.' ! 


fERR.RHDSI 

11* 

0ATA.SGDDAT 
#*CATA.*GDDAT 
RMDSI.*BDDAT 
#*CATA,*BDDAT 
*GDDAT, J9DDAT 
12* 

255 

13* 

#2,R2 

#ILF76,R2 

13* 

2* 


;WAS AN ERROR DETECTED?? 
;N0! ! 

; VES - ATA SHOULD BE ON 

;GET DRIVE’S ATTENTION 

;IS ATA STATUS OK?? 

; YES! ! 


GO TO NEXT FUNCTION CODE 
DONE?? 

YES 1 1 

TESTNEXT FUNCTION 


WRITE LOCK ERROR TEST 


fSTACK.SP 

S8ASE.R0 

TSTQUE.R1 

#35.*TESTN 

PC.TSTPRP 

046000 

1* 


13* 

PC.GETSTS 

MN0P.R2 

PC.CNTCLR 


13* 


SCOPE CALL 

START OF TEST 

INITIALIZE STACK POINTER 

RO = UNIBUS ADDRESS 

(R1) = DEVICE BEING TESTED 

;SET TEST NUMBER IN APT NAIL BOX 

PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 

CLEAR CONTROLLER t SELECT DEVICE 

GO TO 1* IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY TSTPRP SUBROUTINE 

GO TO 13* IF ERROR 

SETUP FOR STATUS 


GO ISSUE CONTROLLER CLEAR 
GO TO 3* IF NO ERROR 
RETURN HERE IF ERROR 
ERROR NUMBER DEFINED BY SUBROUTINE 
GO TO 13* IF ERROR 


j 


! 

! 

L 



K 10 


012 ? 
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1196 





1197 





1198 





1199 

025040 

11273? 

000024 

001545 


025046 

112737 

000200 

001546 


025054 

012737 

000001 

001436 


025062 

004737 

043016 



025066 

000404 




025070 

000240 




025072 

104000 




025074 

000137 

025530 


1200 

025100 




1201 

025100 

112737 

000024 

001545 


025106 

112737 

000200 

001546 


025114 

012737 

001411 

001436 


025122 

004737 

043016 



025126 

000404 




025130 

000240 




025132 

104000 




025134 

000137 

025530 


1202 

025140 




1203 





1204 





1205 

025140 

112737 

000000 

001545 


025146 

112737 

000200 

001546 


025154 

012737 

000023 

001412 


025162 

004737 

043016 



025166 

000404 




025170 

000240 




025172 

104000 




025174 

000137 

025530 


1206 

025200 




1207 

025200 

012737 

000001 

001412 

1208 

025206 

050237 

001412 


1209 

025212 

012737 

104372 

001416 

1210 

025220 

012737 

177777 

001414 

1211 

025226 

005037 

001420 


1212 

025232 

005037 

001446 


1213 

025236 

012737 

010000 

001444 

1214 

025244 

012703 

001545 


1215 

025250 

112723 

V” vM 


1216 

025254 

112723 



1217 

025260 

112723 

000032 


1218 

025264 

112723 

000006 


1219 

025270 

112723 

000034 


1220 


112723 

M3 


1221 

112713 

000200 


1222 

025304 

004737 

043016 



025310 

000404 




025312 

000240 




025314 

025316 

104000 

000137 

025530 


1223 

025322 

004737 

043370 


1224 





1225 

m 

025334 

004737 

000404 

000240 

042546 



;SET DIAGNOSTIC 
.CYLINDER, AND 
N0V8 

wove 

NOV 
JSR 
BR 
NOP 
ENT 
JNP 


NODE AND DIAGNOSTIC UNIT READY, DIAGNOSTIC ON 
DIAGNOSTIC WRITE LOCK 


4$: 


5$: 


NOVS 

NOVS 

NOV 

JSR 

BR 

NOP 

ENT 

JNP 


#RNNR1 , PUT I NX 
#200,PUTINX*1 
fDMD.RNNRIO 
PC, PUT 

4$ 


13S 

#RMNR1 ,PUTINX 
#200,PUTINX*1 
#DND ! NUR ! NOC ! NWP 
PC, PUT 

5S 


13 $ 


SETUP PUT INDEX TABLE 

SET TERNINATOR BYTE 

SET RNNR1 OUTPUT BUFFER = DND 

GO WRITE RFOR1 VIA PUT SUBROUTINE 

GO TO 4$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR DEFINED BY PUT SUBROUTINE 

GO TO 13$ IF ERROR 

SETUP PUT INDEX TABLE 
SET TERNINATOR BYTE 

RNNR10 ;SET RNNR1 OUTPUT BUFFER = DND! NUR! NOC! NWP 

GO WRITE RNNR1 VIA PUT SUBROUTINE 

GO TO 5$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR DEFINED BY PUT SUBROUTINE 

GO TO 13$ IF ERROR 


.-SET VOLUNE VALID BEFORE ISSUING FUNCTION CODE BEING TESTED 



NOVS 

#RNCS1 .PUTINX 

.-SETUP PUT INDEX TABLE 


N0V8 

#200.PUTINX*1 

.-SET TERNINATOR BYTE 


NOV 

#PAKACK!G0,RNCS10 ;SET RNCS1 OUTPUT BUFFER = PAKACK 


JSR 

PC. PUT 

,‘GO WRITE RNCS1 VIA PUT SUBROUTINE 


BR 

6$ 

,*G0 TO 6$ IF NO ERROR 


NOP 


.-RETURN HERE IF ERROR 


ENT 


; ERROR DEFINED BY PUT SUBROUTINE 


JNP 

13$ 

;G0 TO 13$ IF ERROR 

6$: 





NOV 

fGO.RNCSIO 



BIS 

R2.RNCS10 

.-WRITE FUNCTION CODE IN BUFFER 


NOV 

fBUFONE.RNBAO 

;DUNNY BUS ADDRESS 


NOV 

#-1 .RNWCO 

,-DUNNY WORD COUNT 


CLR 

RNDAO 

; CLEAR DISK ADDRESS 


CLR 

RNDCO 

; CLEAR CYLINDER ADDRESS 


NOV 

#FNT16,RN0F0 

.*16 BIT FORMAT 


NOV 

#PUTINX,R3 

.-WRITE REGISTER INDEX TABLE 


NOVS 

#RNBA,(R3)* 



NOVS 

#RNWC,(R3)+ 



N0V8 

#RM0F,(R3>* 



N0V8 

#RNDA,(R3)* 



N0V8 

#RHDC.(R3>* 



N0V8 

#RMCS1,(R3>* 



NOVS 

#200, CR3) 



JSR 

PC, PUT 

;G0 WRITE REGISTER(S) WITH PUT SUBROUTINE 


BR 

7$ 

,-GO TO 7$ IF NO ERROR 


NOP 


.-RETURN HERE IF ERROR 


ENT 


.-ERROR # DEFINED BY PUT SUBROUTINE 


JNP 

13$ 

.-GO TO 13$ IF ERROR 

7$: 

JSR 

PC.TINOUT 

.-WAIT FOR GO TO RESET 


JSR 

PC, GET 

.-GO READ REGISTERCS) WITH GET SUBROUTINE 


BR 

8$ 

,-GO TO 8$ IF NO ERROR 


NOP 


.-RETURN HERE IF ERROR 


L 10 
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13$ 


SEQ 0128 



025336 

104000 




ENT 


025340 

000137 

025530 



JMP 

1226 

025344 

025344 




8$: 


1227 

004737 

043564 



JSR 


025350 

000405 




BR 


025352 

000240 




NOP 


025354 

104000 




ENT 


025356 

004736 




JSR 


025360 

000137 

025530 



JMP 

1228 

025364 

016237 

042737 

070002 

1 73777 

001140 

9$: 

NOV 

1229 

025372 

001140 


BIC 

1230 

025400 

013737 

001352 

001142 


NOV 

1231 

025406 

042737 

173777 

001142 


BIC 

1232 

025414 

023737 

001140 

001142 


CMP 

1233 

025422 

001402 




BEQ 

1234 

025424 

104220 




ENT 

1235 

025426 

000440 




BR 

1236 

025430 

016237 

070002 

001140 

10$: 

NOV 

1237 

025436 

032737 

040000 

001350 


BIT 

1238 

025444 

001403 




BEQ 

1239 

025446 

052737 

100000 

001140 


BIS 

1240 

025454 

042737 

077777 

001140 

11$: 

BIC 

1241 

025462 

013737 

001350 

001142 


NOV 

1242 

025470 

042737 

077777 

001142 


BIC 

1243 

025476 

023737 

001140 

001142 


CMP 

1244 

025504 

001402 




BEQ 

1245 

025506 

104255 




ENT 

1246 

025510 

000407 




BR 

1247 

025512 

062702 

000002 


12$: 

ADD 

1248 

025516 

022702 

000076 



CMP 

1249 

025522 

103402 




BLO 

1250 

025524 

000137 

025022 



JMP 

1251 

025530 




13$: 


1252 

1253 






[***•*! 


ERROR 0 DEFINED BY 6ET SUBROUTINE 
60 TO 13$ IF ERROR 


PC.PRIERR ;G0 CHECK FOR PRIMARY ERRORS 

9$ ;60 TO 9$ IF NO ERROR 

RETURN HERE IF ERROR 
ERROR 0 DEFINED BY PRIERR SUBROUTINE 
PC.8(SP)+ ;G0 BACK FOR MORE ERROR CHECKS 

13$ :G0 TO 13$ IF ERROR 

FNCDTB(R2) ,$GDDAT ;6ET ENTRY FROM FUNCTION CODE TABLE 

# A CWLE.SGDDAT 

;BAD DATA FOR TVPEOUT 


RNER1I.SBDDAT 
A A CWLE,$8DDAT 
$GDDAT,$BDDAT 
10 $ 

220 

13$ 

FNCDTB(R2).$GDDAT 


;IS WLE STATUS CORRECT? 
; YES! ! 


AERR.RNDSI 
11$ 
#ATA,$GDDAT 
# A CATA,$GDDAT 
RMDSI.$BDDAT 
# A CATA,SBDDAT 
$GDDAT < SBDDAT 
12 $ 

255 

13$ 

#2,R2 

#ILF76.R2 

13 $ 

2 $ 


;WAS AN ERROR DETECTED?? 
;N0! ! 

; YES - ATA SHOULD BE ON 

;GET DRIVE’S ATTENTION 

;IS ATA STATUS OK?? 

; YES! ! 


GO TO NEXT FUNCTION CODE 
DONE?? 

YES 1 ' 

TESTNEXT FUNCTION 


1254 




;*TEST 

36 

ERROR ABORT TESTS 

025530 


TST36: 




025530 

000004 


SCOPE 


rSCOPE CALL 

025532 

000240 


NOP 


START OF TEST 

025534 

012706 

001100 

MOV 

#STACK,SP 

INITIALIZE STACK POINTER 

025540 

013700 

001276 

MOV 

SBASE.RO 

;R0 = UNIBUS ADDRESS 

025544 

013701 

001466 

MOV 

TSTQUE.R1 

;(R1) * DEVICE BEING TESTED 

025550 

012737 

000036 001226 

MOV 

#36,$TESTN 

:;SET TEST NUMBER IN APT MAIL 

025556 

004737 

041532 

JSR 

PC. TSTPRP 

; PREPARE DEVICE FOR TEST 

025562 

054130 


.WORD 

054130 

;TASK DESCRIPTOR AS FOLLOWS: 


025564 000404 
025566 000240 
025570 104000 
025572 000137 026062 


BR 

NOP 

EMT 

JMP 


1 $ 

9 $ 


CLEAR CONTROLLER t SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF "SKr* OR ’PIP" IS SET 

VERIFY RECALIBRATION 

GO TO 1$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY TSTPRP SUBROUTINE 

GO TO 9$ IF ERROR 


n i 
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1256 025576 




1$: 



1 CJf 

1258 




.•SETUP 

GET INDEX TABLE TO READ 

025576 

004737 

042462 



JSR 

PC.GETSTS 

1259 025602 

012702 

000000 



MOV 

#N0P.R2 

1260 025606 




2 S: 



1261 025606 

004737 

052466 



JSR 

PC. CNTCLR 

025612 

000404 




BR 

3S 

02561 A 

000240 




NOP 


025616 

104000 




EMT 


025620 

000137 

026062 



J*P 

9S 

1262 02562A 




3$: 



1267 02562A 

112737 

000014 

001545 


MOVB 

#RMER1 .PUT I NX 

025632 

112737 

000200 

001546 


MOVB 

#200,PUT1NX*1 

0256A0 

012737 

040000 

001426 


MOV 

#UNS,RMER10 

0256A6 

004737 

043016 



JSR 

PC. PUT 

025652 

000404 




BR 

AS 

02565A 

000240 




NOP 


025656 

104000 




EMT 


025660 

000137 

026062 



JMP 

9S 

1264 02566A 




AS: 



1265 025664 

012737 


001412 


MOV 

#G0,RMCS10 

1266 025672 

050237 

001412 



BIS 

R2.RMCS10 

1267 025676 

012737 

104372 

001416 


MOV 

fBUFONE.RMBAO 

1268 02570A 

012737 

177777 

001414 


MOV 

#-1 .RMWCO 

1269 025712 

012737 


001420 


MOV 

#0,RMDAO 

1270 025720 

012737 


001446 


MOV 

#O.RMDCO 

1271 025726 

012737 

010000 

001444 


MOV 

#FMT16,RM0FQ 

1272 025734 

012703 

001545 



MOV 

IPUTINX.R3 

1273 025740 

112723 




MOVB 

#RMBA.(R3>* 

1274 025744 

112723 




MOVB 

#RMWC,(R3>* 

1275 025750 

112723 

000032 



MOVB 

#RM0F,(R3H 

1276 025754 

112723 




PtOVB 

#RMDA.<R3>* 

1277 025760 

112723 

000034 



MOVB 

/FRMDC.CR3H 

1278 025764 

112723 




MOVB 

#RMCS1,<R3)* 

1279 025770 

112713 

000200 



M0V8 

#200. (R3) 

1280 025774 

004737 

043016 



JSR 

PC. PUT 

026000 

000402 




JR 

5S 

026002 

000240 




NOP 


026004 

104000 




EMT 


1281 026006 




5S: 



1282 







1283 




.'WAIT 

FOR COMMAND TO COMPLETE 

026006 

004737 

043370 



JSR 

PC, TIMOUT 

1284 







1285 026012 

004737 

042546 



JSR 

PC, GET 

026016 

000404 




BR 

6S 

026020 

000240 




NOP 


026022 

104000 




EMT 


026024 

000137 

026062 



JMP 

9S 

1286 026030 




6S: 



1287 026030 

004737 

043564 



JSR 

PC, PRIERR 

026034 

000405 




BR 

7S 

026036 

000240 




NOP 


026040 

104000 




EMT 


026042 

004736 




JSR 

pc.acsp)* 

026044 

000137 

026062 



JMP 

9S 


I 


SEQ 0129 


ALL REGISTERS 
;G0 TO 6ETSTS SUBROUTINE 
;R2 = FUNCTION CODE 

;G0 ISSUE CONTROLLER CLEAR 

;G0 TO 3$ IF NO ERROR 

.■RETURN HERE IF ERROR 

.'ERROR 0 DEFINED BY CNTCLR SUBROUTINE 

;G0 TO 9$ IF ERROR 

.'SETUP PUT INDEX TABLE 

.'SET TERMINATOR BYTE 

.-SET RMER1 OUTPUT BUFFER = UNS 

;G0 WRITE RMER1 VIA PUT SUBROUTINE 

;G0 TO AS IF NO ERROR 

.•RETURN HERE IF ERROR 

.'ERROR DEFINED BY PUT SUBROUTINE 

;G0 TO 9S IF ERROR 


.'WRITE FUNCTION CODE IN BUFFER 

.•DUMMY BUS ADDRESS 

.'DUMMY WORD COUNT 

.‘CLEAR DISK ADDRESS 

.'CLEAR CYLINDER ADDRESS 

; 16 BIT FORMAT 

.'WRITE REGISTER INDEX TABLE 


;G0 WRITE REGISTER(S) WITH PUT SUBROUTINE 

;G0 TO 5$ IF NO ERROR 

.'RETURN HERE IF ERROR 

.'ERROR 0 DEFINED BY PUT SUBROUTINE 


;G0 TO TIMOUT SUBROUTINE 

;G0 READ REGISTER(S) WITH GET SUBROUTINE 

;G0 TO 6$ IF NO ERROR 

.'RETURN HERE IF ERROR 

.‘ERROR 0 DEFINED BY GET SUBROUTINE 

;G0 TO 9S IF ERROR 

;G0 CHECK FOR PRIMARY ERRORS 

;G0 TO 7$ IF NO ERROR 

.•RETURN HERE IF ERROR 

.■ERROR 0 DEFINED BY PRIERR SUBROUTINE 

;G0 BACK FOR MORE ERROR CHECKS 

;G0 TO 9S IF ERROR 


J 


L 
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SEO 0130 


1288 026050 

1289 026050 

1290 026050 

1291 026054 

1292 026060 

1293 026062 

1294 

1295 


1305 

1306 0 


026242 

026250 



1307 026274 


062702 

022702 

103252 


000002 

7$: 

8$: 

ADD 

A2.R2 

.•ADVANCE FUNCTION CODE 

000076 


CMP 

AILF76.R2 

.‘DONE ALL COMMANDS 


9$: 

BHIS 

2$ 

;N0 !! 


.-•TEST 37 


RMR TEST 


026062 


TST37: 




026062 

000004 


SCOPE 


.‘SCOPE CALL 

026064 

000240 


NOP 


.‘START OF TEST 

026066 

012706 

001100 

MOV 

#S TACK. SP 

.‘INITIALIZE STACK POINTER 

026072 

013700 

001276 

MOV 

SBASE.RO 

;R0 = UNIBUS ADDRESS . 

026076 

013701 

001466 

MOV 

fSTQUE.RI 

;(R1) = DEVICE BEING TESTED 1 

026102 

012737 

000037 001226 

MOV 

A37.STESTN 

;;SET TEST NUMBER IN APT MAIL BOX 

026110 

004737 

041532 

JSR 

PC.TSTPRP 

.-PREPARE DEVICE FOR TEST 

026114 

040000 


.WORD 

046000 

.‘TASK DESCRIPTOR AS FOLLOWS: 






.‘CLEAR CONTROLLER $ SELECT DEVICE 

026116 

000404 


BR 

1$ 

;G0 TO 1$ IF NO ERROR 

026120 

000240 


NOP 


.-RETURN HERE IF ERROR 

026122 

104000 


EMT 


.-ERROR # DEFINED BY TSTPRP SUBROUTINE 

026124 

000137 

026522 

JMP 

11$ 

;G0 TO 11$ IF ERROR 


1299 

1300 

026130 

1301 026134 

1302 026134 
026142 
026150 
026156 
026162 
026164 
026166 
026170 

1303 026174 

1304 026174 
026202 
026210 
026216 


004737 042462 


.SETUP 6ET INDEX TABLE TO READ ALL REGISTERS 


112737 

112737 

012737 

004737 

000404 

000240 

104000 

000137 

112737 

112737 

012737 

004737 

000404 

000240 

104000 

000137 

112737 

112737 

012737 

004737 

000404 


000024 

000200 

000001 

043016 


026522 

000024 

000200 

001401 

043016 


026522 

000000 

000200 

000023 

043016 


026522 


001545 

001546 

001436 


001545 

001546 

001436 


001545 

001546 

001412 


PC.GETSTS ;G0 TO GETSTS SUBROUTINE 

#RMMR1 .PUTINX .-SETUP PUT INDEX TABLE 

#200.PUTINX+1 ;SET TERMINATOR BYTE 

fDMD.RMMRIO .SET RMMR1 OUTPUT BUFFER = DMD 

PC. PUT ;G0 WRITE RMMR1 VIA PUT SUBROUTINE 

3$ ;G0 TO 3$ IF NO ERROR 

.-RETURN HERE IF ERROR 
.-ERROR DEFINED BY PUT SUBROUTINE 
11$ ;G0 TO 11$ IF ERROR 

#RMMR1 .PUTINX .-SETUP PUT INDEX TABLE 

#200,PUTINX+1 .-SET TERMINATOR BYTE 

#DMD!MUR!M0C,RMMR10 ;SET RMMR1 OUTPUT BUFFER = DMD!MUR!MOC 
PC .PUT ;G0 WRITE RMMR1 VIA PUT SUBROUTINE 

4$ ;G0 TO 4$ IF NO ERROR 

.-RETURN HERE IF ERROR 
.-ERROR DEFINED BY PUT SUBROUTINE 
11$ ;G0 TO 11$ IF ERROR 

fRMCSI .PUTINX .-SETUP PUT INDEX TABLE 

#200,PUTINX+1 ;SET TERMINATOR BYTE 

fPAKACK'GO.RMCSlO :SET RMCS1 OUTPUT BUFFER = PAKACKJGO 


PC. PUT 

5$ 


m ■ rwiwtf * wv ii vi wvi i bn — 

GO WRITE RMCS1 VIA PUT SUBROUTINE 
GO TO 5$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR DEFINED BY PUT SUBROUTINE 
GO TO 11$ IF ERROR 


SEQ 0131 
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1308 026274 
026300 
026302 
026304 
026306 

1309 026312 

1310 026312 

1311 026314 
026322 
026330 
026336 
026342 
026344 
026346 
026350 

1312 026354 

1313 026354 
026362 
026370 
026376 
026402 
026404 
026406 
026410 

1314 026414 

1315 026414 
026422 
026430 
026436 
026442 
026444 
026446 
026450 

1316 026454 

1317 026454 
026460 
026462 
026464 
026466 

1318 026472 

1319 026472 

1320 026474 

1321 026502 

1322 026504 

1323 026512 

1324 026520 

1325 026522 

1326 

1327 


026522 

026522 

026524 

026526 

026532 

026536 


004737 

000404 

000240 

104000 

000137 

000240 

112737 

112737 

012737 

004737 

000404 

000240 

104000 

000137 

112737 

112737 

012737 

004737 

000404 

000240 

104000 

000137 

112737 

112737 

012737 

004737 

000404 

000240 

104000 

000137 

004737 

000404 

000240 

104000 

000137 

000240 

032737 

001007 

012737 

013737 

104222 


000004 

000240 

012706 

013700 

013701 


000004 

001352 


001545 

001546 

001436 


001545 

001546 

001412 


042546 


026522 


000024 

000200 

041401 

043016 


026522 

000000 

000200 

000001 

043016 


026522 

000000 

000200 

000015 

043016 


026522 

042546 


026522 


000004 001352 


001545 

001546 

001412 


001140 

001142 


PC. GET 
6 $ 


GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 6S IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED Br GET SUBROUTINE 

GO TO 11$ IF ERROR 


#RMMR1 .PUTINX ; 
#200,PUTINX*1 ; 
#DMD I MUR ! MOC ! DBEN 
PC, PUT ; 
7$ 


fRMCSI .PUTINX 
#200,PUTINX*1 
#NOPJ G0.RMCS10 
PC, PUT 
8 $ 


#RMCS1 .PUTINX ; 
#200,PUTINX+1 ; 

#0FFSET!GO.RMCS10 
PC. PUT 
9$ 


PC.GET 

ioi 


fRMR.RMERII 

11 $ 

#RMR.$GDDAT 

RMER1I.SBDDAT 

222 


SETUP PUT INDEX TABLE 
SET TERMINATOR BYTE 

I.RMMR10 ; SET RMMR1 OUTPUT BUFFER 

GO WRITE RMMR1 VIA PUT SUBROUTINE 

GO TO 7$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR DEFINED BY PUT SUBROUTINE 

GO TO 11$ IF ERROR 


= DMD! MUR ! MOC! DBEN 


SETUP PUT INDEX TABLE 

SET TERMINATOR BYTE 

SET RMCS1 OUTPUT BUFFER - NOP! GO 

GO WRITE RMCS1 VIA PUT SUBROUTINE 

GO TO 8$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR DEFINED BY PUT SUBROUTINE 

GO TO 11$ IF ERROR 

SETUP PUT INDEX TABLE 
SET TERMINATOR BYTE 

l ;SET RMCS1 OUTPUT BUFFER = OFFSET !G0 

GO WRITE RMCS1 VIA PUT SUBROUTINE 

GO TO 9$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR DEFINED BY PUT SUBROUTINE 

GO TO 11$ IF ERROR 

GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 10$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY GET SUBROUTINE 

GO TO 11$ IF ERROR 


IS RMR SET ?? 
YES 1 1 

EXPECTED STATUS 
RECEIVED STATUS 


.-•TEST 40 PARITY ERROR TEST 

;; *************************************************************** 

TST40: 


001100 

001276 

001466 


SCOPE 


.•SCOPE CALL 

NOP 


.•START OF TEST 

MOV 

fSTACK.SP 

.•INITIALIZE STACK POINTER 

MOV 

SBASE.RO 

;R0 = UNIBUS ADDRESS 

MOV 

TSTQUE.R1 

;(R1> = DEVICE BEING TESTED 
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C 11 


SEQ 0132 


026542 

012737 

000040 001226 

1328 



1329 026550 

004737 

041532 

026554 

040000 


026556 

000404 


026560 

000240 


026562 

104000 


026564 

000137 

026742 

1330 026570 


1$: 

1331 026570 

012702 

000001 

1332 026574 


2S: 

1333 026574 

004737 

052466 

026600 

000404 


026602 

000240 


026604 

104000 


026606 

000137 

026742 

1334 026612 


3$: 

1335 026612 

111103 


1336 026614 

042703 

177770 

1337 026620 

052703 

000020 

1338 026624 

010337 

001422 

1339 026630 

010237 

001420 

1340 026634 

012703 

001545 

1X41 026640 

112723 

000010 

1542 026644 

112723 

000006 

1343 026650 

112723 

000200 

1344 



1345 026654 

004737 

043016 


026660 

026662 

026664 

1346 026666 

1347 026666 
026672 
026674 
026676 
026700 

1348 026704 

1349 026704 

1350 026712 

1351 026714 

1352 026722 

1353 026730 

1354 026734 

1355 026736 

1356 026736 

1357 026740 

1358 026742 

1359 

1360 


026742 

026742 

026744 

026746 


000402 

000240 

104000 

004737 

000404 

000240 

104000 

000137 

032737 

001011 

012737 

013737 

010237 

104223 

006302 

001315 


042546 

026742 

000010 

000010 
001352 
OC 11 74 


001352 

001140 

001142 


4$: 


5$: 


6 $: 


7$: 


MOV 

JSR 

.WORD 

BR 

NOP 

EMT 

JMP 

MOV 

JSR 

BR 

NOP 

EMT 

JMP 

MOVB 

BIC 

BIS 

MOV 

MOV 

MOV 

MOVB 

MOVB 

MOVB 

JSR 

BR 

NOP 

EMT 

JSR 

BR 

NOP 

EMT 

JMP 

BIT 

BNE 

MOV 

MOV 

MOV 

EMT 

ASL 

BNE 


#40.$TESTN 

PC.TSTPRP 

040000 

1 $ 


7S 

#1 ,R2 

PC,CNTCLR 

3$ 

7$ 

(R1) # R3 

# A CUNTMSK,R3 

#PAT,R3 

R3.RMCS20 

R2.RMDA0 

#PUTINX.R3 

#RMCS2, (R3)+ 

#RMDA,(R3>* 

#200, <R3>* 

PC, PUT 

4$ 


PC, GET 

5$ 


7$ 

#PAR,RMER1I 

68 

fPAR.SGDDAT 
RMER1I.SBDDAT 
R2.8TMP0 
22 % 

R2 

2 $ 


.-SET TEST NUMBER IF APT MAIL BOX 

PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 

CLEAR CONTROLLER t SELECT DEVICE 

GO TO 1$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY TSTPRP SUBROUTINE 

GO TO 7$ IF ERROR 

R 2 = DATA PATTERN 

GO ISSUE CONTROLLER CLEAR 

GO TO 3$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY CNTCLR SUBROUTINE 

GO TO 7$ IF ERROR 

SETUP RMCS2 


OUTPUT VALUE TO RMCS2 
VALUE TO RMDA 

WRITE REGISTER OUTPUT INDEX 


GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 4$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 

GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 5$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY GET SUBROUTINE 

GO TO 7$ IF ERROR 

IS PARITY ERROR SET ?? 

YES 1 ' 

EXPECTED STATUS 
RECEIVED STATUS 
DATA PATTERN 


.•ADVANCE DATA PATTERN 
.•BRANCH IF NOT DONE 


• •<;************************************************************** 
;*TEST 41 ILLEGAL REGISTER TEST 


000004 

000240 

012706 001100 


TST41 : 


SCOPE 

NOP 

MOV fSTACK.SP 


SCOPE CALL 
START OF TEST 
INITIALIZE STACK POINTER 



CZRNDAO RN80 FCTNL PT1 MACRO V04.00 28- JAN-82 16:24:51 PAGE 13-49 
T41 ILLEGAL REGISTER TEST 


026752 

013700 

001276 



MOV 

SRASE.RO 

026756 

013701 

001466 



MOV 

TST0UE.R1 

026762 

012737 

000041 

001226 


MOV 

#41 .STESTN 

1 5vl 

1362 026770 

004737 

041532 



JSR 

PC. TSTPRP 

026774 

040000 




.WORD 

046000 

026776 

000404 




BR 

1$ 

027000 

000240 




NOP 


027002 

104000 




EMT 


027004 

000137 

027270 



JMP 

10$ 

1363 027010 




IS: 



1364 027010 

005005 




CLR 

R5 

1365 027012 

004737 

042462 



JSR 

PC.GETSTS 

1366 027016 

013746 

000004 



MOV 

ERRVEC, -(SP) 

1367 027022 

013746 

000006 



MOV 

ERRVEC+2, -(SP) 

1368 027026 

012737 

027266 

000004 


MOV 

#9$. ERRVEC 

1369 027034 

012737 

000300 

000006 


MOV 

#PR6, ERRVEC *2 

1370 027042 

005002 




CLR 

R 2 

1371 027044 




2$: 



1372 027044 

004737 

052466 



JSR 

PC.CNTCLR 

027050 

000404 




BR 

3$ 

027052 

000240 




NOP 


027054 

104000 




EMT 


027056 

000137 

027202 



JMP 

7$ 

1373 027062 

010003 



3$: 

NOV 

R0.R3 

1374 027064 

060203 




ADD 

R2.R3 

1375 027066 

005013 




CLR 

<R3> 

1376 027070 

004737 

050774 



JSR 

PC. DEVSEL 

027074 

000404 




BR 

4$ 

027076 

000240 




NOP 


027100 

104000 




EMT 


027102 

000137 

027270 



JMP 

10$ 

1377 027106 




4$: 



1378 027106 

004737 

042546 



JSR 

PC. GET 

027112 

000404 




BR 

5$ 

027114 

000240 




NOP 


027116 

104000 




EMT 


027120 

000137 

027202 



JMP 

7$ 

1379 027124 




5$: 



1380 027124 

004737 

043564 



JSR 

PC. PRIERR 

027130 

000405 




BR 

6$ 

027132 

00CP40 




NOP 


027134 

10*000 




EMT 


027136 

004736 




JSR 

PC.a(SP)* 

027140 

000137 

027202 



JMP 

7$ 

1381 027144 

010537 

001140 


6$: 

MOV 

R5.SGDDAT 

1382 027150 

013737 

001352 

001142 


MOV 

RMER1I.S8DDAT 

1383 027156 

042737 

177775 

001142 


BIC 

#*CILR,$8DDAT 

1364 027164 

023737 

001140 

001142 


CMP 

SGDDAT.SBDDAT 

1385 027172 

001403 




BEO 

7$ 

1386 027174 

010237 

001174 



MOV 

R2.STMP0 

1387 027200 

104256 




EMT 

256 

1388 







1389 




;THE 

FOLLOWING 

CODING FOR HAND 

1390 




;RH 70 REGISTER NUMBERS IS Ell 

139* 027202 

062702 

000002 


7$: 

ADD 

#2,R2 


RO = UNIBUS ADDRESS 

(R1) = DEVICE BEING TESTED 

;SET TEST NUMBER IN APT MAIL BOX 

PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 

CLEAR CONTROLLER 8 SELECT DEVICE 

GO TO 1$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY TSTPRP SUBROUTINE 

GO TO 10S IF ERROR 

R5 = EXPECTED STATUS 
SETUP FOR STATUS 
.-PUSH ERRVEC ON STACK 

; ; PUSH ERRVEC+2 ON STACK 
SETUP FOR BUS TIMEOUT 

R 2 = REGISTER INDEX 

GO ISSUE CONTROLLER CLEAR 

GO TO 3$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR NUMBER DEFINED BY SUBROUTINE 

GO TO 7$ IF ERROR 

R3 = REGISTER ADDRESS 

CLEAR THE REGISTER 

GO SELECT DEVICE 

GO TO 4$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR t DEFINED BY DEVSEL SUBROUTINE 

GO TO 10$ IF ERROR 

GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO SS IF NO ERROR 

RETURN HERE IF ERROR 

ERROR f DEFINED BY GET SUBROUTINE 

GO TO 7$ IF ERROR 

GO CHECK FOR PRIMARY ERRORS 

GO TO 6$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PRIERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 7$ IF ERROR 

GET DRIVE'S ILR STATUS 

IS ILR STATUS OK?? 

YES' 1 

SAVE R2 FOR ERROR DATA 


: RH70 
:R 22 OR 32 


.•INCREMENT THE REGISTER ADDRESS 


SEfl 0133 


E 11 
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SEO 01 


1392 027206 
1303 027212 
13V4 027214 

1395 027216 

1396 027222 

1397 027230 

1398 027234 

1399 027240 

1400 027244 

1401 027250 

1402 027252 

1403 027256 

1404 027262 

1405 027264 

1406 


1410 

1411 


1412 


022702 

10131*. 

103420 

012705 

012760 

012702 

016003 

042703 

022703 

001402 

012702 

022702 

101402 

000667 


000050 


000002 

001400 000000 

000054 

000050 

177774 

000003 

000050 

000074 


8 $: 


CMP #50, R2 

BHI 2$ 

6L0 8$ 

MOV #ILR.R5 

MOV #A16!a17,RMCS1 

MOV #54, R2 

MOV 50<R0),R3 

BIC #1 77774, R3 

CMP #8JT0!BIT1,R3 

BEQ 8$ 

MOV #50 ,R2 

CMP #74, R2 

BLOS 10$ 

BR 2$ 


027266 

022626 



9S: 

CMP 

027270 

027270 

012637 

000006 


10S: 

MOV 

027274 

012637 

000004 



MOV 





;;****' 

.-•TEST 

42 

027300 

027300 

000004 



0 # ^ 

TST42: 

SCOPE 

027302 

000240 




NOP 

027304 

012706 

001100 



NOV 

027310 

013700 

001276 



MOV 

027314 

013701 

001466 



NOV 

027320 

012737 

000001 

001206 


MOV 

027326 

012737 

000042 

001226 


MOV 

027334 

027334 

004737 

041532 


IS: 

JSR 

027340 

054130 




.WORD 


027342 

000404 




BR 

027344 

000240 




NOP 

027346 

104000 




ENT 

027350 

000137 

027572 



JMP 

1415 027354 




2S: 


1416 027354 

012737 

000000 

001446 


MOV 

1417 027362 

012737 

000000 

001420 

3S: 

MOV 

1418 027370 

012737 

000005 

001412 


MOV 

1419 027376 

012702 

001545 



MOV 

1420 027402 

112722 

000034 



MOVB 

1421 027406 

112722 

000006 



NOVB 

1422 027412 

112722 

000000 



MOVB 

1423 027416 

112722 

000200 



MOVB 

1424 027422 

004737 

043016 



JSR 

027426 

000404 




BR 

027430 

000240 




NOP 


TIME TO CHECK THE EXTEND ADDRESS REG ? 
BRANCH IF NOT 
BRANCH IF ALREADY SET UP 
-EXCEPT ILR HAPPEND 
(r6> ;SET EXTENDED ADDRESS BITS 
SET ADDRESS TO 54 ,IF 22 REGISTERS 
IS THIS 22 REG RH70 ? 

LEFT ONLY BIT 0 AND BIT 1 
BIT 0 AND BIT 1 SET AT THE SAME TIME ? 
BRANCH IF SO 

OTHERWISE, SET ADDRESS TO 50 
ALL REGISTERS CHECKED ? 

BRANCH IF SO 
NEXT REGISTER 


(SP)+.(SP)+ 

(SPH.ERRVEC+2 
(SP)+, ERRVEC 


;;P0P STACK INTO ERRVEC+2 
;;POP STACK INTO ERRVEC 


SEEK FIRST CYLINDER 


#STACK,SP 
SBASE.RO 
TSTQUE,R1 
#1 -STINES 
#42,$TESTN 


PC.TSTPRP 

05*130 


2 $ 


10S 

#0,RMDC0 

#0,RNDA0 

#SEEK!G0,RMCS10 

#PUTINX,R2 

#R«D C,(R2>* 

#RMDA,(R2H 

#RNCS1,(R2H 

#200, (R2H 

PC, PUT 

4$ 


SCOPE CALL 
START OF TEST 
INITIALIZE STACK POINTER 
RO = UNIBUS ADDRESS 
(R1) = DEVICE BEING TESTED 
;D0 1 ITERATION 

;SET TEST NUMBER IN APT NAIL BOX 


PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 

CLEAR CONTROLLER t SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF •*$«•• OR , ‘PIP" IS SET 

VERIFY RECALIBRATION 

GO TO 2S IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY TSTPRP SUBROUTINE 

GO TO 10S IF ERROR 

CYLINDER = 0 
TRACK = 0, SECTOR = 0 
LOAD SEEK COMMAND IN BUFFER 
R2 POINTS TO REGISTER TABLE 
WRITE REGISTER INDEX TABLE 


WRITE TERMINATOR 

GO WRITE RECi^ERCS) WITH PUT SUBROUTINE 
GO TO 4S IF NO ERROR 
RETURN HERE IF ERROR 
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027432 

027434 

1425 027440 

1426 027444 

1427 

1428 027450 
027454 
027456 
027460 
027462 

1429 027466 

1430 027466 
027472 
027474 
027476 
027500 
027502 

1431 027506 

1432 027506 
027512 
027514 
027516 
027520 
027522 

1433 027526 

1434 027526 
027532 
027534 
027536 
027540 
027542 
027544 
027546 

1435 027552 

1436 027552 
027556 
027*63 
027562 
027564 
027566 

1437 027572 

1438 

1439 027572 

1440 

1441 


104000 

000137 

004737 

004737 

004737 

000404 

000240 

104000 

000137 

004737 

000405 

000240 

104000 

004756 

000137 

004737 

000405 

000240 

104000 

004754 

000137 

004737 

115760 

000010 

000405 

000240 

104000 

004736 

000137 

004737 

000405 

000240 

104000 

004736 

000137 


000004 


000240 

012706 


027572 

042462 

043370 

042546 


027572 

043564 


027572 

051206 


027572 

050562 


027572 

044416 


027572 


06 001100 
00 001276 


JSR 

.WORD 

.WORD 

BR 

NOP 

ENT 

JSR 

JNP 


•TEST 43 


TST43: 


013701 001466 
012737 000001 001206 
012737 000043 001226 


SCOPE 

NOP 

NOV 

NOV 

NOV 

NOV 

NOV 


027626 
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SEQ 0135 


10 $ 

PC.GETSTS 

PC.TINOUT 

PC. GET 
5$ 


PC.PRIERR 

6 $ 


PC.i(SP)* 

10 $ 

PC.SEKSTS 

7$ 


PC.iCSP)* 

10 $ 

PC.CNPERRSTS 

NDTNSK 

DPE 

8 $ 


pc.acsp)* 

10 $ 

PC.SECERR 

9$ 


pc.acsp)* 

loi 


.'ERROR I DEFINED BY PUT SUBROUTINE 
;G0 TO 10$ IF ERROR 
.•SETUP FOR STATUS FETCH 
.WAIT FOR SEEK TO CONPLETE 

;G0 READ REGISTER(S) WITH GET SUBROUTINE 

;G0 TO 5$ IF NO ERROR 

.'RETURN HERE IF ERROR 

.'ERROR * DEFINED BY GET SUBROUTINE 

;G0 TO 10$ IF ERROR 

,‘GO CHECK FOR PRINARY ERRORS 

;G0 TO 6$ IF NO ERROR 

.'RETURN HERE IF ERROR 

.ERROR » DEFINED BY PRIERR SUBROUTINE 

;G0 BACK FOR NORE ERROR CHECKS 

;G0 TO 10$ IF ERROR 


;G0 VERIFY RESULTS OF SEEK OPERATION 

;G0 TO 7$ IF NO ERROR 

.'RETURN HERE IF ERROR 

.’ERROR » DEFINED BY SEKSTS SUBROUTINE 

.GO BACK FOR NORE ERROR CHECKS 

;G0 TO 10$ IF ERROR 

.'CHECK ANY ERRORS NOT NASKED 

;NASK FOR RNER1 

;NASK FOR RNER2 

;G0 TO 8$ IF NO ERROR 

.•RETURN HERE IF ERROR 

.•ERROR # DEFINED BY CNPERRSTS SUBROUTINE 

;G0 BACK FOR NORE ERROR CHECKS 

;G0 TO 10$ IF ERROR 

;G0 CHECK FOR SECONDARY ERRORS 

.GO TO 9$ IF NO ERROR 

.'RETURN HERE IF ERROR 

.'ERROR # DEFINED BY SECERR SUBROUTINE 

;G0 BACK FOR NORE ERROR CHECKS 

;G0 TO 10$ IF ERROR 


SEEK LAST CYLINDER 


fSTACK.SP 
SBASE.RO 
TSTQUE.R1 
#1 .STINES 
#43,$TESTN 


SCOPE CALL 
START OF TEST 
INITIALIZE STACK POINTER 
RO = UNIBUS ADDRESS 
(R1) = DEVICE BEING TESTED 
;D0 1 ITERATION 

.SET TEST NUNBER IN APT NAIL BOX 


G 11 



SEQ 0136 


PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 

CLEAR CONTROLLER l SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF , *SKI r ' OR ’PIP" IS SET 

VERIFY RECALIBRATION 

GO TO 2$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY TSTPRP SUBROUTINE 

GO TO 101 IF ERROR 

CYLINDER - 560. 

TRACK = 0. SECTOR = 0 
LOAD SEEK COMMAND IN BUFFER 
R 2 POINTS TO REGISTER TABLE 
WRITE REGISTER INDEX TABLE 


WRITE TERMINATOR 

GO WRITE REGISTERCS) WITH PUT SUBROUTINE 

GO TO AS IF NO ERROR 

RETURN HERE IF ERROR 

ERROR 0 DEFINED BY PUT SUBROUTINE 

GO TO 10$ IF ERROR 

SETUP FOR STATUS FETCH 

WAIT FOR SEEK TO COMPLETE 

GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 5$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR 0 DEFINED BY GET SUBROUTINE 

GO TO 10$ IF ERROR 

GO CHECK FOR PRIMARY ERRORS 

60 TO 6$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR 0 DEFINED BY PRIERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 10$ IF ERROR 

GO VERIFY RESULTS OF SEEK OPERATION 

60 TO 7$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR 0 DEFINED BY SEKSTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 10$ IF ERROR 

CHECK ANY ERRORS NOT MASKED 

MASK FOR RMER1 

MASK FOR RMER2 

GO TO 8$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR 0 DEFINED BY CMPERRSTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 10$ IF ERROR 


L 
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t* i i 


SEQ 0137 


1465 030044 

1466 030044 
030050 
030052 
030054 
030056 
030060 

1467 030064 

1468 

1469 030064 

1470 

1471 


030064 

030064 

030066 

030070 

030074 

030100 

030104 

030112 

1472 

1473 030120 

1474 030126 

1475 030126 
030132 


004737 

000405 

000240 

104000 

004736 

000137 


030134 

030136 

030140 

030142 

1476 030146 

1477 030146 

1478 030154 

1479 030162 

1480 030166 

1481 030172 

1482 030176 

1483 030202 

1484 030206 
030212 
030214 
030216 
030220 

1485 030224 

1486 03C224 

1487 030230 

1488 

1489 030234 
030240 
030242 


044416 


030064 


8S: 


9$: 

10 $: 


JSR 

BR 

NOP 

EAT 

JSR 

JAP 


PC ,SECERR 
9$ 


PC.i(SP)* 

ioi 


GO CHECK FOR SECONDARY FRRORS 

GO TO 9$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY SECERR SUBROUTINE 

GO BACK FOR AORE ERROR CHECKS 

GO TO 10$ IF ERROR 


;*TEST 44 SEEK PRIAE CYLINDERS 


TST44: 


000004 

000240 

012706 

001100 


SCOPE 

NOP 

AOV 

013700 

001276 


AOV 

013701 

001466 


AOV 

012737 

000002 

001206 

AOV 

012737 

000044 

001226 

AOV 

012737 

000001 

001446 

AOV 

004737 

041532 

1$: 

JSR 

054130 



.WORD 


000404 
00024 C 
104000 
000137 

012737 

012737 

012702 

112722 

112722 

112722 

112722 

004737 

000404 

000240 

104000 

000137 

004737 

004737 

004737 

000404 

000240 


030376 

000000 001420 
000005 001412 
001545 
000034 
000006 
000000 
000200 
043016 


030376 

042462 

043370 

042546 


2 $: 


3$: 


BR 

NOP 

EAT 

JAP 

AOV 

AOV 

AOV 

AOVB 

NOVS 

A0V8 

A0V8 

JSR 

BR 

NOP 

EAT 

JAP 

JSR 

JSR 

JSR 

BR 

NOP 


.-SCOPE CALL 
.•START OF TEST 

fSTACK.SP .-INITIALIZE STACK POINTER 

S8ASE.R0 ;R0 = UNIBUS ADDRESS 

TST0UE.R1 ; (R1 ) = DEVICE BEING TESTED 

#2.$TIAES ;;D0 2 ITERATIONS 

#44,$TESTN ;;SET TEST NUABER IN APT AAIL BOX 

fl.RADCO .-FIRST CYLINDER * 1 

PC.TSTPRP .-PREPARE DEVICE FOR TEST 

054130 .-TASK DESCRIPTOR AS FOLLOWS: 

.-CLEAR CONTROLLER t SELECT DEVICC 

.-VERIFY CONTROLLER CLEAR OPERATION 
.-PACK ACKNOWLEDGE IF VOLUAE NOT VALID 
.-VERIFY PACK ACKNOWLEDGE 
; RECALIBRATE IF ••SKI" OR PIP" IS SET 
.-VERIFY RECALIBRATION 
;G0 TO 2$ IF NO ERROR 
.-RETURN HERE IF ERROR 
.-ERROR # DEFINED BY TSTPRP SUBROUTINE 
;G0 TO 9$ IF ERROR 

; TRACK = 0. SECTOR = 0 
.-LOAD SEEK COAAAND IN BUFFER 
;R2 POINTS TO REGISTER TABLE 
.-WRITE REGISTER INDEX TABLE 


2 $ 

9$ 

fO.RADAO 

ISEEKiGO.RACSlO 

#PUTINX,R2 

#RADC,(R2H 

#RA0A.(R2>* 

#RACS1,(R2>* 

#200,(62)* 

PC, PUT 
3$ 


9$ 

PC,GETSTS 

PC.TIAOUT 

PC, GET 

4$ 


up I TP TFRMINATOR 

GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO 70 3$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 

GO TO 9$ IF ERROR 

SETUP FOR STATUS FETCH 
WAI1 FOR SEEK TO COAPLETE 


GO READ REGJSTER(S) WITH GET SUBROUTINE 
GO TO 4$ IT NO ERROR 
RETURN HL'RE IF ERROR 
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030244 

030246 

1490 030252 

1491 030252 
030256 
030260 
030262 
030264 
030266 

1492 030272 

1493 030272 
0*0276 
030300 
030302 
030304 
030306 

1494 030312 

1495 030312 
030316 
030320 
030322 
030324 
030326 
030330 
030332 

1496 030336 

1497 030336 
030342 
030344 
030346 
030350 
030352 

1498 030356 

1499 030356 

1500 030362 

1501 030370 

1502 030372 

1503 030376 

1504 

1505 


030376 

030376 

030400 

030402 

030406 

030412 

030416 

030424 

1506 

1507 030432 

1508 030432 
030436 


104000 

000137 

004737 

000405 

000240 

104000 

004736 

000137 

004737 

000405 

000240 

104000 

004736 

000137 

004737 

115760 

000010 

000405 

000240 

104000 

004736 

000137 

004737 

000405 

000240 

104000 

004736 

000137 

006337 

022737 

103402 

000137 


030376 

043564 


030376 

051206 


030376 

050562 


030376 

044416 


030376 

001446 

001000 

030126 


000004 

000240 

012706 

013700 

013701 

012737 

012737 


004737 

054130 


001446 


JSR 

.WORD 

.WORD 

BR 

NOP 

EMT 

JSR 

JMP 


.-•TEST 45 


TST45: 


001100 

001276 

001466 

000031 

000045 


041532 


001206 

001226 


SCOPE 

NOP 

MOV 

MOV 

MOV 

NOV 

MOV 


JSR 

.WORD 
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SEQ 0138 


9$ 

PC.PRIERR 

5$ 


pc.acspH 

9$ 

PC.SEKSTS 

6$ 


PC,i(SP)* 

9$ 


ERROR # DEFINED BY GET SUBROUTINE 
GO TO 9$ IF ERROR 

GO CHECK FOR PRIMARY ERRORS 

GO TO 5$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PRIERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 9$ IF ERROR 

GO VERIFY RESULTS OF SEEK OPERATION 

GO TO 6$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY SEKSTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

:G0 TO 9$ IF ERROR 


PC.CMPERRSTS 

NDTMSK 

DPE 

7$ 


pc.acsp)* 

9$ 

PC.SECERR 

8 $ 


PC,a<SPH 

9$ 


RMDCO 

#512.,RMDCO 

9$ 

1$ 


CHECK ANY ERRORS NOT MASKED 

MASK FOR RMER1 

MASK FOR RMER2 

GO TO 7$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY CMPERRSTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 9$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 

GO TO 8$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY SECERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 9$ IF ERROR 

SHIFT TO NEXT PRIME CYLINDER 
IS THE TEST DONE?? 

YES' 1 

GO 66 NEXT CYLINDER 


SEEK ZERO DIFFERENCE 


f STACK, SP 
SBASE.RO 
TSTQUE,R1 
#25. .STINES 
#45,$TESTN 


SCOPE CALL 

START OF TEST 

INITIALIZE STACK POINTER 

RO = UNIBUS ADDRESS 

(R1> = DEVICE 8E1N6 TESTED 

;D0 25. ITERATIONS 

.-SET TEST NUMBER IN APT MAIL BOX 


i 



PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 

CLEAR CONTROLLER 8 SELECT DEVICE 
VERIFY CONTROLLER CLEAR OPERATION 
PACK ACKNOWLEDGE IF VOLUME NOT VALID 



SEO 0139 


VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF ,, 3KI r * OR ’‘PIP" IS SET 

VERIFY RECALIBRATION 

GO TO 2$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY TSTPRP SUBROUTINE 

GO TO 10$ IF ERROR 

R3 = NUMBER OF SEEKS 

CYLINDER = 0 

TRACK = 0. SECTOR = 0 

FUNCTION CODE FOR SEEK 

R 2 POINTS TO REGISTER INDEX 

WRITE REGISTER INDEX TABLE 


TERMINATE TABLE | 

GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 4$ IF K'O ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 

GO TO 10$ IF ERROR 

SETUP FOR READING STATUS 1 

WAIT FOR COMPLETION 

GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 5$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR 0 DEFINED BY GET SUBROUTINE 

GO TO 10$ IF ERROR 

GO CHECK FOR PRIMARY ERRORS 
GO TO 6$ IF NO ERROR 
RETURN HERE IF ERROR 

ERROR » DEFINED BY PRIERR SUBROUTINE » 

GO BACK FOR MORE ERROR CHECKS 
GO TO 10$ IF ERROR 

GO VERIFY RESULTS OF SEEK OPERATION 

GO TO 7$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY SEKSTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 10$ IF ERROR 

CHECK ANY ERRORS NOT MASKED 

MASK FOR RMER1 

MASK FOR RMER2 

GO TO 8$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR » DEFINED BY CMPERRSTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GC TO 10$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 
GO TO 9$ IF NO ERROR 

! 


K 11 


CZRNDAO RM80 FCTNl PT1 MACRO V04.00 28-JAN-8 2 
T45 SEEK ZERO DIFFERENCE 

030662 000240 

030664 104000 

03C666 004736 

030670 000137 030704 

1533 030674 9$: 

1534 030674 005303 

1535 030676 001402 

1536 030700 000137 030524 

1537 030704 10$: 

1538 

16:24:51 

NOP 

EMT 

JSR 

JMP 

DEC 

BEO 

JMP 

PA6E 13-56 

.-RETURN HERE IF ERROR 
.-ERROR # DEFINED BY SECERR SUBROUTINE 
PC.8(SPH ;G0 BACK FOR MORE ERROR CHECKS 

10$ ;G0 TO 10$ IF ERROR 

R3 .-DONE ALL SEEKS?? 

10$ ;VES! ! 

3$ :N0 - GO DO NEXT SEEK 

133V 












;*TEST 

46 

SEEK MAXIMUM DIFFERENCE FORWARD 

030704 




fST46: 




030704 

000004 




SCOPE 


SCOPE (ALL 

030706 

000240 




NOP 


START CF TEST 

030710 

012706 

001100 



MOV 

#STACK.SP 

INITIALIZE STACK POINTER 

030714 

013700 

001276 



MOV 

$8ASE.R0 

RO = UFUBUS ADDRESS 

030720 

Cl 3701 

001466 



MOV 

TST0UE.R1 

(R1) = DEVICE BEING TESTED 

030724 

012737 

000031 

001206 


MOV 

#25. ,$TIMES 

;D0 25. ITERATIONS 

030732 

012737 

000046 

001226 


MOV 

#46,$TESTN 

;SET TFST NUMBER IN APT MAIL BOX 

1540 








1541 030740 




1$: 




1542 030740 

004737 

041532 



JSR 

PC.TSTPRP 

PREPARE DEVICE FOR TEST 

030744 

052130 




.WORD 

05$130 

TASK DESCRIPTOR AS FOLLOWS: 








CLEAR CONTROLLER t SELECT DEVICE 








VERIFY CONTROLLER CLEAR OPERATION 








PACK ACKNOWLEDGE IF VOLUME NOT VALID 








VERIFY PACK ACKNOWLEDGE 








RECALIBRATE DRIVE 








VERIFY RECALIBRATION 

030746 

000404 




BR 

2$ 

GO TO 2$ IF NO ERROR 

030750 

000240 




NOP 


RETURN HERE IF ERROR 

030752 

104000 




EMT 


ERROR # DEFINED BY TSTPRP SUBROUTINE 

030754 

000137 

031172 



JMP 

8$ 

GO TO 8$ IF ERROR 

1543 030760 




2$: 




1544 030760 

012737 

001060 

001446 


MOV 

#560. .RMDCO 

LAST CYLINDER 

1545 030766 

012737 

KWH 

001420 


MOV 

#0,RMDA0 

TRACK = 0, SECTOR = 0 

1546 030774 

012737 


001412 


MOV 

#SEEK ! G0.RMCS1 0 

LOAD SEEK COMMAND IN BUFFER 

1547 031002 

012702 

001545 



MOV 

#PUTINX,R2 

R2 POINTS TO REGISTER TABLE 

1548 031006 

112722 

000034 



MOVB 

#RfDC,(R2> + 

WRITE REGISTER INDEX TABLE 

1549 031012 

112722 

000006 



M0V8 

#RMDA.(R2>+ 


1550 031016 

112722 

000000 



MOVB 

#RHCS1,(R2>+ 


1551 031022 

112722 

000200 



MOVB 

#200,(62)+ 

WRITE TERMINATOR 

1552 031026 

004737 

043016 



JSR 

PC, PUT 

GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

031032 

000404 




BR 

3$ 

GO TO 3$ IF NO ERROR 

031034 

000240 




NOP 


RETURN HERE IF ERROR 

031036 

104000 




EMT 


ERROR # DEFINED BY PUT SUBROUTINE 

031040 

000137 

031172 



JMP 

8$ 

GO TO 8$ If ERROR 

1553 031044 

004737 

042462 


3$: 

JSR 

PC,GETSTS 

SETUP FOR STATUS FETCH 

1554 C31050 

1 ccc 

004737 

043370 



JSR 

PC.TIMOUT 

WAIT FOR SEEK TO COMPLETE 

» 3 j j 

1556 031054 

004737 

042546 



JSR 

PC. GET 

GO READ REGISTER(S) WITH GET SUBROUTINE 

031060 

000404 




BR 

4$ 

GO TO 4$ IF NO ERROR 

031062 

000240 




NOP 


RETURN HERE IF ERROR 

031064 

104000 




EMT 


ERROR # DEFINED BY GET SUBROUTINE 

031066 

000137 

031172 



JMP 

8$ 

GO TO 8$ IF ERROR 


SEO OHO 
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L 11 


1557 

1558 


1559 

1560 


1561 

1562 


1563 

1564 


1565 

1566 

1567 


U31072 

031072 

031076 

031100 

031102 

031104 

031106 

031112 

031112 

031116 

031120 

031122 

031124 

031126 

031132 

031132 

031136 

031140 

031142 

031144 

031146 

031150 

031152 

031156 

031156 

031162 

031164 

031166 

031170 

031172 


004737 

000405 

000240 

104000 

004736 

000137 

004737 

000405 

000240 

104000 

004736 

000137 

004737 

115760 

000010 

000405 

000240 

104000 

004736 

000137 

004737 

000403 

000240 

104000 

004736 


043564 

4$: 

JSR 

PC, PRIERR 


BR 

5$ 



NOP 




EMT 




JSR 

pc.8<sph 

031172 


JMP 

8$ 

5$: 

JSR 

PC, SEKSTS 

051206 


BR 

6$ 



NOP 




EMT 




JSR 

pc,a(sp>* 

031172 


JMP 

8$ 

6$: 

JSR 

PC, CMPERRSTS 

050562 


.WORD 

NDTMSK 



.WORD 

DPE 



BR 

7$ 



NOP 




EMT 




JSR 

PC,3(SPH 

031172 


JMP 

8$ 

7$: 

JSR 

PC, SECERR 

044416 


BR 

8$ 


8 $: 


NOP 

EMT 

JSR 


pc.acspu 


60 CHECK FOR PRIMARY ERRORS 

60 TO 5$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PRIERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

60 TO 8$ IF ERROR 

60 VERIFY RESULTS OF SEEK OPERATION 

60 TO 6$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY SEKSTS SUBROUTINE 

60 BACK FOR MORE ERROR CHECKS 

60 TO 8$ IF ERROR 

CHECK ANY ERRORS NOT MASKED 

MASK FOR RMER1 

MASK FOR RMER2 

60 TO 7$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR 0 DEFINED BY CMPERRSTS SUBROUTINE 

60 BACK FOR MORE ERROR CHECKS 

60 TO 8$ IF ERROR 

60 CHECK FOR SECONDARY ERRORS 

60 TO 8$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY SECERR SUBROUTINE 

60 BACK FOR MORE ERROR CHECKS 


031172 

031172 

031174 

000004 

000240 


TST47: 

SCOPE 

NOP 

#STACK,SP 

031176 

012706 

001100 


MOV 

031202 

013700 

001276 


MOV 

S8ASE,R0 

031206 

013701 

001466 


MOV 

TSTQUE,R1 

031212 

1568 

1569 031220 

012737 

000047 001226 

1$: 

MOV 

#47,$TESTN 

1570 031220 
031224 

004737 

054130 

041532 


JSR 

.WORD 

PC, TSTPRP 
05*130 


031226 000404 
031230 000240 
031232 104000 
031234 000137 031474 

1571 031240 

1572 031240 012737 000000 


001446 


• *************************************************************** 
♦TEST 47 SEEK ADJACENT FORWARD 


SCOPE CALL 

START OF TEST 

INITIALIZE STACK POINTER 

RO = UNIBUS ADDRESS 

(R1) = DEVICE BEIN6 TESTED 

;SET TEST NUMBER IN APT MAIL BOX 


PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 

CLEAR CONTROLLER 8 SELECT DEVICE 1 

VERIFY CONTROLLER CLEAR OPERATION, 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF "SKr OR 'PIP IS SET 

VERIFY RECALIBRATION 

60 TO 2$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY TSTPRP SUBROUTINE 

60 TO 10S IF ERROR 

CYLINDER = 0 


2 $: 


BR 

NOP 

EMT 

JMP 

MOV 


2S 

10 $ 

«0,RMDC0 


SEO 0141 



m 11 



S£0 o'- 


TRACK = 0, SECTOR = 0 
FUNCTION CODE FOR SEEK 
R2 POINTS TO REGISTER INDEX 
WRITE REGISTER INDEX TABLE 


TERMINATE REGISTER TABLE 

GO WRITE REGISTER (S) WITH PUT SUBROUTINE 

GO TO 4$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR 0 DEFINED BY PUT SUBROUTINE 

GO TO 10$ IF ERROR 

SETUP FOR STATUS FETCH 

WAIT FOR COMPLETION 

GO READ REGISTER (S) WITH GET SUBROUTINE 

GO TO 5$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR 0 DEFINED BY GET SUBROUTINE 

GO TO 10$ IF ERROR 

GO CHECK FOR PRIMARY ERRORS 

GO TO 6$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR 0 DEFINED BY PRIERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 10$ IF ERROR 

GO VERIFY RESULTS OF SEEK OPERATION 

GO TO 7$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR 0 DEFINED BY SEKSTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 10$ IF ERROR 

CHECK ANY ERRORS NOT MASKED 

MASK FOR RMER1 

MASK FOR RMER2 

GO TO 8$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR 0 DEFINED BY CMPERRSTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 10$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 

GO TO 9$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR 0 DEFINED BY SECERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 10$ IF ERROR 

FIRST TIME THROUGH?? 

NO 1 1 

YES’- SEEK TO ADJACENT CYLINDER FORWARD 


SEQ 0143 
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1601 



;;****' 

50 






.’•TEST 

SEEK ADJACENT REVERSE 

031474 

031474 

000004 


• * 

TST50: 

SCOPE 


SCOPE CALL 

031476 

000240 



NOP 


START OF TEST 

031500 

012706 

001100 


MOV 

fSTACK.SP 

INITIALIZE STACK POINTER 

031504 

013700 

001276 


MOV 

SBASE.RO 

RO = UNIBUS ADDRESS 

031510 

013701 

001466 


MOV 

TSTQUE.R1 

05O.STESTN 

CR1) - DEVICE BEING TESTED 

031514 

012737 

000050 001226 


MOV 

.’SET TEST NUMBER IN APT MAIL BOX 

1602 

1603 031522 



1$: 




1604 031522 

004737 

041532 


JSR 

PC. TSTPRP 

; PREPARE DEVICE FOR TEST 


031526 054130 


.WORD 


031530 

031532 

031534 

031536 

1605 031542 

1606 031542 

1607 031550 

1608 031556 

1609 031564 

1610 031570 

1611 031574 

1612 031600 

1613 031604 

1614 031610 

1615 031610 
031614 
031616 
031620 
031622 

1616 031656 

1617 031632 

1618 

1619 031636 
031642 
031644 
031646 
031650 

1620 031654 

1621 031654 
031660 


$31664 


000404 

000240 

104000 

000137 

012737 

012737 

012737 

012702 

112722 

112722 

112722 

112722 

004737 

000404 

000240 

104000 

000137 

004737 

004737 

004737 

000404 

000240 

104000 

000137 

004737 

000405 

000240 

104000 

004736 

000137 


032000 


001545 

000006 

000034 

000000 

000200 

043016 


032000 

042462 

043370 

042546 


032000 

043564 


032000 


001446 

001420 

001412 


MOV 

MOV 

MOV 

MOV 

MOVB 

MOVB 

MOVB 

MOVB 


#1 .RMDCO 

0O.RMDAO 

#SEEK!G0.RMCS10 

#PUTINX,R2 

#RMDA. (R2> 

#RMDC.(R2)+ 

«ftMCS1,(R2>* 

#200,(R2>+ 

PC, PUT 
4$ 


10S 

PC.GETSTS 

PC.TIMOUT 


004737 051206 


PC, GET 


PC.PRIERR 

6 $ 


PC.8(SP)+ 

ioi 

PC.SEKSTS 


TASK DESCRIPTOR AS FOLLOWS: 

CLEAR CONTROLLER ft SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF “SKI** OR ‘PIP" IS SET 

VERIFY RECALIBRATION 

GO TO 2$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR » DEFINED BY TSTPRP SUBROUTINE 

GO TO 10S IF ERROR 

CYLINDER s 1 

TRACK « 0, SECTOR = 0 

FUNCTION CODE FOR SEEK 

R2 POINTS TO REGISTER INDEX 

WRITE REGISTER INDEX TABLE 


.•TERMINATE TABLE 

;G0 WRITE REGISTER(S) WITH PUT SUBROUTINE 

;G0 TO 4S IF NO ERROR 

.’RETURN HERE IF ERROR 

.ERROR » DEFINED BY PUT SUBROUTINE 

;G0 TO 10S IF ERROR 

.•SETUP TO READ ALL REGISTERS 

.•WAIT FOR SEEK TO COMPLETE 

;G0 READ REGISTER(S) WITH GET SUBROUTINE 

;G0 TO 5S IF NO ERROR 

.‘RETURN HERE IF ERROR 

.•ERROR # DEFINED BY GET SUBROUTINE 

;G0 TO 10S IF ERROR 

;G0 CHECK FOR PRIMARY ERRORS 

;G0 TO 6$ IF NO ERROR 

.’RETURN HERE IF ERROR 

.ERROR # DEFINED BY PRIERR SUBROUTINE 

;G0 BACK FOR MORE ERROR CHECKS 

;G0 TO 10S IF ERROR 

;G0 VERIFY RESULTS OF SEEK OPERATION 


6 



SEG 0K4 


60 TO 7$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR » DEFINED BY SEKSTS SUBROUTINE 

60 BACK FOR MORE ERROR CHECKS 

60 TO 10S IF ERROR 

CHECK ANY ERRORS NOT MASKED 

MASK FOR RMER1 

MASK FOR RMER2 

60 TO 8S IF NO ERROR 

RETURN HERE IF ERROR 

ERROR » DEFINED BY CMPERRSTS SUBROUTINE 

60 BACK FOR MORE ERROR CHECKS 

60 TO 10S IF ERROR 

60 CHECK FOR SECONDARY ERRORS 

60 TO 9$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY SECERR SUBROUTINE 

60 BACK FOR MORE ERROR CHECKS 

60 TO 10$ IF ERROR 

IS THIS THE FIRST SEEK?? 

NO. 1 ! 

YES - SEEK TO ADJACENT CYLINDER 
60 SEEK 


SECTOR 


SCOPE CALL 

START OF TEST 

INITIALIZE STACK POINTER 

RO = UNIBUS ADDRESS 

(R1) = DEVICE BEIN6 TESTED 

; SET TEST NUMBER IN APT MAIL BOX 


PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 

CLEAR CONTROLLER ft SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKN0WLED6E IF VOLUME NOT VALID 

VERIFY PACK ACKN0WLED6E 

RECALIBRATE IF "SKr* OR “PIP" IS SET 

VERIFY RECALIBRATION 

60 TO 2$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY TSTPRP SUBROUTINE 

60 TO 14$ IF ERROR 


SEEK COMMAND 
FORMAT 1R BIT 
CYLINDER = 0 
INVALID SECTOR 


= 30., TRACK = 0 
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1644 032076 

1645 032102 

1646 032106 

1647 032112 

1648 032116 

1649 032122 

1650 032126 

1651 032132 

1652 032132 
032136 
032140 
032142 
032144 

1653 032150 

1654 032150 
032154 
032156 
032160 
032162 

1655 032166 

1656 032166 
032172 
032174 
032176 
032200 
032202 

1657 032206 

1658 032206 
032212 
032214 
032216 
032220 

1659 032224 

1660 032224 

1661 

1662 032230 
032234 
032236 
032240 
032242 

1663 032246 

1664 032246 
032252 
032254 
032256 
032260 
032262 

1665 032266 

1666 03226- 

m 

032276 


1667 0 
1660 0 
1669 03 


012702 

112722 

112722 

112722 

112722 

112722 

004737 

004737 

000404 

000240 

104000 

000137 

004737 

000404 

000240 

104000 

000137 

004737 

000405 

000240 

104000 

004736 

000137 

004737 

000404 

000240 

104000 

000137 



004737 

000404 

000240 

104000 

000137 

004737 

000405 

000240 

104000 

004736 

000137 

004737 

000405 

000240 

104000 

004736 

000137 


001545 

000032 

000006 

000034 

000000 

000200 

042462 

052466 


032416 

042546 


032416 

052604 


0”'16 

043016 


032416 


004737 043370 


042546 


032416 

043564 


032416 

051206 


032416 


004737 050562 


#P UTINX.R2 

#RM0F,(R2>* 

#RMDA.(R2>* 

#RMDC.(R2>* 

#RMCS1.(R2>* 

#200, (R2)+ 

PC.GETSTS 

PC.CNTCLR 

4$ 


PC. GET 

5$ 


PC.CLRSTS 

6 $ 


PC.a(SP)* 

I4i 

PC. PUT 

7$ 


PC.TIMOUT 

PC, GET 

8S 


PC.PRIERR 

9$ 


PC.aCSP)* 

14$ 

PC.SEKSTS 

10 $ 


pc.acsp)* 

14$ 


PC.CMPERRSTS 


;R2 POINTS TO REGISTER TABLE 
.-WRITE REGISTER INDEX TABLE 


SEQ 0145 


TERMINATE TABLE 

SETUP INPUT REGISTER INDEX 

GO ISSUE CONTROLLER CLEAR 
GO TO 4$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR NUMBER DEFINED BY SUBROUTINE 
GO TO 14$ IF ERROR 

GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 5$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY GET SUBROUTINE 

GO TO 14$ IF ERROR 

GO VERIFY CONTROLLER CLEAR OPERATION 

GO TO 6$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY CLRSTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 14$ IF ERROR 

GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 7$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 

GO TO 14$ IF ERROR 

WAIT FOR GO TO RESET 

GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 8$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY GET SUBROUTINE 

GO TO 14$ IF ERROR 

GO CHECK FOR PRIMARY ERRORS 

GO TO 9$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PRIERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 14$ IF ERROR 

GO VERIFY RESULTS OF SEEK OPERATION 

GO TO 10$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY SEKSTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 14$ IF ERROR 


CHECK ANY ERRORS NOT MASKED 


D u 
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SEQ OHt 


032312 
032314 
032316 
032320 
032322 
032324 
032326 
1670 032332 
032332 
032336 


1671 


C32340 


032342 
032344 
032346 
167*; 032352 

1673 032352 

1674 032356 

1675 032364 

1676 

1677 032366 

1678 032374 

1679 032376 

1680 032404 

1681 032412 

1682 032416 

1683 

1684 


032416 


1685 


117760 

000010 

000405 

000240 

104000 

004736 

000137 

004737 

000405 

000240 

104000 

004736 

000137 

005237 

023727 

101662 

032737 

001010 

012737 

012737 

000137 


032416 

044416 

032416 

001420 

001420 


12 $: 


13$: 


000100 


010000 001444 


010000 

000037 

032132 


001444 

001420 


14$: 


.WORD 

.WORD 

BR 

NOP 

ENT 

JSR 

JNP 

JSR 

BR 

NOP 

ENT 

JSR 

JNP 

INC 

CNP 

BLOS 

BIT 

BNE 

NOV 

NOV 

JNP 


lAE.'NDTNSK 

DPE 

12 $ 


PC.atSP)* 

14i 

PC.SECERR 

I3i 


pc.8(sp>* 

1 * 

MDAO 

RMDA0,#64. 

3$ 

#FMT16,RN0F0 

14$ 

#FMT16,RM0F0 
#31 . ,RNDAO 
3$ 


;NASK FOR RNER1 
NASK FOR RNER2 
GO TO 12$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR # DEFINED BY CNPERRSTS SUBROUTINE 
GO BACK FOR NORE ERROR CHECKS 
GO TO 14$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 

GO TO 13$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY SECERR SUBROUTINE 

GO BACK FOR NORE ERROR CHECKS 

GO TO 14$ IF ERROR 

INCRENENT SECTOR ADDRESS 
DONE YET ? 

NO - TEST NEXT SECTOR 

UAS TEST DONE FOR 16 BIT NODE YET ? 

BR IF YES 

SET 16 BIT FORMAT NODE 
SET INVALID SECTOR 31. 

NO - TEST NEXT SECTOR 


• ***************************** **************** ****************** 
West 52 seek invalid track 


TST52: 


000004 


SCOPE 

000240 


NOP 

012706 

001100 

NOV 

013700 

001276 

NOV 

013701 

001466 

NOV 

012737 

000052 001226 

NOV 

004737 

041532 

JSR 

054130 


.WORD 


#STACK,SP 

S6ASE.ro 

TSTQUE.R1 

#52,$TESTN 

PC.TSTPRP 

05*130 


032452 

000404 



BR 

1$ 

032454 

000240 



NOP 


032456 

104000 



ENT 


032460 

000137 

033014 


JNP 

13$ 

1687 032464 



1$: 



1688 032464 

012737 

000005 

001412 

NOV 

#SEEK!G0,RNCS10 

1689 032472 

012737 

000000 

001446 

NOV 

fO.RMDCO 

1690 032500 

013737 

001334 

001420 

NOV 

LSTRK.RNDAO 

1691 032506 

105237 

001421 


INCB 

RNDAO+1 

1692 032512 

012737 

010000 

001444 

NOV 

#FNT16,RN0F0 

1693 032520 

012702 

001545 


NOV 

#PUTINX,R2 

1694 032524 

112722 

000032 


M0V8 

#RM0F,(R2) + 


SCOPE CALL 

START OF TEST 

INITIALIZE STACK POINTER 

RO = UNIBUS ADDRESS 

(R1) = DEVICE BEING TESTED 

;SET TEST NUMBER IN APT NAIL BOX 

PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 

CLEAR CONTROLLER t SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUNE NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF “SKI" OR "PIP" IS SET 

VERIFY RE CALIBRATION 

GO TO 1$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY TSTPRP SUBROUTINE 

GO TO 13$ IF ERROR 

SEEK COMNAND 

CYLINDER = 0 

LAST TRACK, SECTOR = 0 

SETUP FIRST INVALID TRACK 

SET 16 BIT FORMAT 

R 2 POINTS TO REGISTER TABLE 

WRITE REGISTER INDEX 
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1695 03..530 

1696 032534 

1697 032540 

1698 032544 

1699 032550 

1700 032554 

1701 032554 
032560 
032562 
032564 
032566 

1702 032572 

1703 032572 
032576 
032600 
032602 
032604 

1704 032610 

1705 032610 
032614 
032616 
032620 
032622 
032624 

1706 032630 

1707 032630 
032634 
032636 
032640 
032642 

1708 032646 

1709 032646 

1710 

1711 032652 
032656 
032660 
032662 
032664 

1712 032670 

1713 032670 
032674 
032676 
032700 
032702 
032704 

1714 032710 

1715 032710 
032714 
032716 


112722 

112/22 

112722 

112722 

004737 

004737 

000404 

000240 

104000 

000137 

004737 

000404 

000240 

104000 

000137 

004737 

000405 

000240 

10400C 

004736 

000137 

004737 

000404 

000240 

104000 

000137 


m 

032724 

032730 


032734 

0327.6 


000034 

000006 

000000 

000200 

042462 

052466 


033014 

042546 


033014 

052604 


033014 

043016 


033014 


004737 043370 


004737 

000404 

000240 

104000 

000137 

004737 

000405 

000240 

104000 

004736 

000137 

004737 

000405 

000240 

104000 

004736 

000137 


004737 

117760 

000010 


042546 


033014 

043564 


033014 

051206 


033014 


050562 


JSR 

.WORD 

.WORD 


#RMDC,(R2>* 
#RMDA.(R2m 
#RMCS1,(R2H 
#200, (R2H 
PC.GETSTS 

PC,CNTCLR 

3$ 


PC. GET 
4$ 


PC.CLRSTS 

5$ 


pc.acsp)* 

i3i 

PC. PUT 
6$ 


PC.TIMOUT 

PC. GET 

7$ 


PC.PRIERR 

8$ 


PC.a<SP>+ 

13i 

PC.SEKSTS 

9$ 


pc.acsp)* 

i3i 


PC.CMPERRSTS 

IAE.'NDTMSK 

DPE 


SEQ O'- 


.•TABLE FOR 0UTPU1 


TERMINATE TABLE 

SETUP INPUT TABLE FOR STATUS 

GO ISSUE CONTRO! LER CLEAR 
GO TO 3$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR NUMBER DEFINED BY SUBROUTINE 
GO TO 13$ IF ERROR 

GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 4$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY GET SUBROUTINE 

GO TO 13$ IF ERROR 

GO VERIFY CONTROLLER CLEAR OPERATION 

GO TO 5$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY CLRSTS SUBROUTINE 

GO BAC*C FOR MORE ERROR CHECKS 

GO TO 13$ IF ERROR 

GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 6$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 

GO TO 13$ IF ERROR 

WAIT FOR GO TO RESET 

GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 7$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY GET SUBROUTINE 

GO TO 13$ IF ERROR 

GO CHECK FOR PRIMARY ERRORS 

GO TO 8$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR 0 DEFINED BY PRIERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 13$ IF ERROR 

GO VERIFY RESULTS OF SEEK OPERATION 

GO TO 9$ IF NO ERROR 

RETURN HERE IF ERPOR 

ERROR 0 DEFINED BY SEKSTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 13$ IF ERROR 


; CHECK ANY ERRORS NOT MASKED 
:MASK FOR RMER1 
.MASK FOR RMER2 



] 
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T52 SEEK It.VALID TRACK 




032740 

000405 



8R 

11$ 

032742 

000240 



NOP 


032744 

104000 



EMT 

PC.a(SP)* 

I3i 

032746 

004736 



JSR 

032750 

000137 

033014 


JMP 

1719 032754 

1720 032754 

004737 

044416 

11$: 

JSR 

PC. SECERR 

12i 

032760 

000405 



BR 

032762 

000240 



NOP 


032764 

104000 



EMT 

pc.a<sp>* 

I3i 

032766 

004736 



JSR 

032770 

000137 

033014 

12$: 

JMP 

1721 032774 

1722 032774 

105237 

001421 

INCB 

RMDAO+1 


1723 033000 

123727 

001421 000200 


CMP8 

RMDAO+1,0128 

1724 033006 

101002 



BHI 

13$ 

1725 033010 

000137 

032554 


JMP 

2$ 


1 726 033014 13$: 

1727 


•TEST 53 


SEEK INVALID CYL 


033014 

033014 000004 
033016 000240 
033020 012706 001100 
033024 013700 001276 
033030 013701 001466 
033034 012737 000053 001226 

1729 

1730 033042 004737 041532 
033046 054130 


TST53: 


SCOPE 

NOP 

MOV 

MOV 

NOV 

NOV 

JSR 

.WORD 


fSTACK.SP 

S8ASE.R0 

TSTQUE.R1 

#53.$TESTN 

PC.TSTPRP 

054130 


033050 

000404 




BR 

1$ 

033052 

000240 




NOP 


033054 

104000 




EMT 

12$ 

033056 

000137 

033406 



JMP 

1731 033062 

1732 033062 

012737 


001412 

1$: 

MOV 

fSEEKJGO.RMCSIO 

1733 033070 

012737 

001061 

001446 


MOV 

0561..RMDCO 

1734 033076 

012/37 

iH 

001420 


MOV 

fO.RMDAO 

1735 033104 

012737 

010000 

001444 


MOV 

#F MT16.RM0F0 

1736 033112 

012702 

001545 



MOV 

#PUTINX.R2 

#RMDA.<R2)* 

1737 033116 

112722 




M0V8 

1738 033122 

112722 

000034 



M0V8 

#RMDC.(R2>* 

1739 033126 

112722 

000032 



HOVB 

#RM0F.(R2)+ 
fRMCSl . <R2)+ 

1740 033132 

112722 




MOVB 

1741 033136 

112722 

000200 



MOVB 

#200,(R2)+ 

pc.gItsts 

1742 033142 

1743 033146 

004737 

042462 


2$: 

JSR 


1744 033146 

004737 

052466 



JSR 

PC.CNTCLR 

033152 

000404 




BR 

3$ 


SEQ 0148 


GO TO 11$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR » DEFINED BY CMP ERRSTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 13$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 

GO TO 12$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY SECERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 13$ IF ERROR 

INCREMENT TRACK ADDRESS 
DONE?? 

B R IF YES 

TEST NEXT INVALID TRACK 


SCOPE CALL 

START OF TEST 

INITIALIZE STACK POINTER 

RO = UNIBUS ADDRESS 

(R1) = DEVICE BEING TESTED 

;SET TEST NUMBER IN APT HAIL BOX 


PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 

CLEAR CONTROLLER t SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF •■SKI* OR * VIP " IS SET 

VERIFY RECALIBRATION 

GO TO 1$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY TSTPRP SUBROUTINE 

GO TO 12$ IF ERROR 


SEEK FUNCTION CODE 

START AT FIRST INVALID CYLINDER 

TRACK = 0, SECTOR = 0 

SET 16 BIT FORMAT 

R2 POINTS TO INDEX TABLE 

WRITE REGISTER TABLE 


.‘TERMINATE TABLE 
.‘SETUP FOR STATUS 

;G0 ISSUE CONTROLLER CLEAR 
;G0 TO 3$ IF NO ERROR 
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033154 

033156 

033160 

1745 033164 

1746 033164 
C33170 
033172 
033174 
033176 

1747 033202 

1748 033202 
033206 
033210 
033212 
033214 
033216 

1749 033222 

1750 033222 
033226 
033230 
033232 
033234 

1751 033240 

1752 033240 

1753 

1754 033244 
033250 
033252 
033254 
033256 

1755 033262 

1756 033262 
033266 
033270 
033272 
033274 
033276 

1757 033302 

1758 033302 
033306 
033310 
033312 
033314 
033316 

1759 033322 

1760 033322 
033326 
033330 
033332 
033334 
033336 
033340 
033342 

1761 033346 

1762 033346 
033352 
033354 


0C0240 

104000 

000137 

004737 

000404 

000240 

104000 

000137 

004737 

000405 

000240 

104000 

004736 

000137 

004737 

000404 

000240 

104000 

000137 


033406 

042546 


033406 

052604 


033406 

043016 


033406 


004737 043370 


004737 

000404 

000240 

104000 

000137 

004737 

000405 

000240 

104000 

004736 

000137 

004737 

000405 

000240 

104000 

004736 

000137 

004737 

117760 

000010 

000405 

000240 

104000 

004736 

000137 

004737 

000405 

000240 


042546 


033406 

043564 


033406 

051206 


033406 

050562 


033406 

044416 


JSR 

.WORD 

.WORD 

8ft 

NOP 

ENT 

JSR 

J HP 


PC. GET 

4$ 


PC.CLRSTS 

5$ 


pc.aisp)* 

i2i 

PC, PUT 

6 $ 


PC.TIHOUT 

PC, GET 

7$ 


PC.PRIERR 

8$ 


pc.acsPH 

12* 

PC.SEKSTS 

9$ 


pc.acsp)* 

i2i 

PC.CHPERRSTS 

lAE.'NDTMSK 

DPE 

10 $ 


PC.a(SP)* 

12 * 

PC.SECERR 

11 * 


L. 


SEQ 0149 


RETURN HERE IF ERROR 

ERR°R NUMBER DEFINED BY SUBROUTINE 

GO <0 12$ IF ERROR 

GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 4$ IF NO ERROR 

RETURN HERE IF CRROR 

ERROR # DEFINED BY GET SUBROUTINE 

GO TO 12$ IF ERROR 

SO VERIFY CONTROLLER CLEAR OPERATION 

GO TO 5$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR » DEFINED BY CLRSTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 12$ IF ERROR 

;G0 WRITE REGISTER(S) WITH PUT SUBROUTINE 

; GO TO 6$ IF NO ERROR 

.•RETURN HERE IF ERROR 

.•ERROR » DEFINED BY PUT SUBROUTINE 

;G0 TO 12$ IF ERROR 

.•WAIT FOR GO TO RESET 

.-GO READ REGISTER(S) WITH GET SUBROUTINE 

;G0 TO 7$ IF NO ERROP 

.•RETURN HERE IF ERi. ,p 

.’ERROR » DEFINED B* Gs T SUBROUTINE 

;G0 TO 12$ IF ERROR 

;G0 CHECK FOR PRIMARY ERRORS 

;G0 TO 8$ IF NO ERROR 

.•RETURN HERE IF ERROR 

.•ERROR « DEFINED BY PRIERR SUBROUTINE 

;G0 BACK FOR MORE ERROR CHECKS 

;G0 TO 12$ IF ERROR 


GO VERIFY RESULTS OF SEEK OPERATION 

GO TO 9$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY SEKSTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 12$ IF ERROR 


CHECK ANY ERRORS NOT MASKED 
;MASK FOR RHER1 
MASK FOR RMER2 
GO TO 10$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR f DEFINED BY CHPERRSTS SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
GO TO 12$ IF ERROR 


GO CHECK FOR SECONDARY ERRORS 
GO TO 11$ IF NO ERROR 
RETURN HERE IF ERROR 


L 
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033356 

033360 

*33362 

1763 33366 

1764 033366 

1765 033372 

1766 033400 

1767 033402 

1768 033406 


033406 

033406 

033410 

033412 

033416 

033422 

033426 

1771 

1772 033434 
033440 
033442 
033444 
033446 

1773 033452 

1774 033452 
033460 
033466 
033474 
033500 
033502 
033504 
033506 

1775 033512 

1776 033512 

1777 033520 

1773 033526 

1779 033534 

1780 033542 

1781 033546 

1782 033552 

1783 033556 

1784 033562 

1785 033566 

1786 033572 

1787 033576 
033602 
033604 
033606 
033610 

1788 033614 

1789 033614 
C‘*3620 
033622 
033624 


104000 

004736 

000137 

005237 

023727 

103002 

000137 


033406 

001446 

001446 002000 
033146 


000004 

000240 

012706 

013700 

013701 

012737 

004737 

000404 

000240 

104000 

000137 

112737 

112737 

012737 

004737 

000404 

000240 

104000 

000137 

012737 
012737 
012737 
012737 
012702 
112722 
11 2722 
112722 
112722 
112722 
004737 
004737 
000404 
000240 
104000 
000137 

004737 

000404 

000240 

104000 


001100 

001276 

001466 

000054 

052466 


033746 

000024 

000200 

000001 

043016 


033746 



•TEST 54 


TST54: 


001226 


001545 

001546 

001436 


001545 

000024 


000200 

042462 

043016 


033746 

042546 


001412 

001436 

001446 

001420 


SCOPE 

NOP 

MOV 

MOV 

NOV 

NOV 


NOV 

NOV 

NOV 

NOV 

NOV 

NOVB 

N0V8 

NOVB 

N0V8 

NOVB 

JSR 

JSR 

BR 

NOP 

ENT 

JNP 


pc.a<sp>* 

i2i 

RNDCO 

RNDCO, #1024. 
12S 

28 


IVC SEEK TEST 


#STACK.SP 

86ASE.R0 

TST6UE.R1 

I54.8TESTN 

PC.CNTCLR 

1$ 


#RNNR1 .PUTINX 
#200,PUTINX*1 
#DND.RNNR10 
PC, PUT 

28 


#SEEK!G0.RNCS10 

#0,RNNR10 

#0, RNDCO 

#O.RNDAO 

#PUTINX,R2 

#RNNR1,(R2)+ 

#RNDA,(R2)* 

#RNDC.(R2)+ 

#RNCS1,(R2)+ 

#200, (62)* 

Pt,6fTSTS 

PC ,PUT 

38 


PC, GET 

48 




SEO 0150 


; ERROR # DEFINED BY SECERR SUBROUTINE 
.-GO BACK FOR NORE ERROR CHECKS 
;G0 TO 128 IF ERROR 

.‘INCREMENT CYLINDER ADDRESS 
.-DONE ALL CYLINDERS ? 

;BR IF YES 

.-TEST NEXT INVALID CYLINDER 


SCOPE CALL 

START OF TEST 

INITIALIZE STACK POINTER 

RO = UNIBUS ADDRESS 

CR1) * DEVICE BEING TESTED 

;SET TEST NUNBER IN APT NAIL BOX 

GO ISSUE CONTROLLER CLEAR 
GO TO 18 IF NO ERROR 
RETURN HERE IF ERROR 
ERROR NUMBER DEFINED BY SUBROUTINE 
GO TO 88 IF ERROR 

SETUP PUT INDEX TABLE 

SET TERMINATOR BYTE 

SET RMNR1 OUTPUT BUFFER = DNO 

GO WRITE RMNR1 VIA PUT SUBROUTINE 

GO TO 28 IF NO ERROR 

RETURN HERE IF ERR03 

ERROR DEFINED BY PUT SUBROUTINE 

GO TO 88 IF ERROR 


CYLINDER = 0 

TRACK = 0, SECTOR = 0 

WHITE REGISTER INDEX 

TABLE 


SETUP C 0R STATUS 

GO WRITE REGISTER (S) WITH PUT SUBROUTINE 

GO TO 38 IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 

GO TO 88 IF ERROR 




GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 48 IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY GET SUBROUTINE 





SEQ i 


GC TO 8$ IF ERROR 

GO CHECK FOR PRIMARY ERRORS 

GO TO 5$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PRIERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 8$ IF ERROR 

DID INVALID COMMAND SET?? 

YES 1 1 

GOOD ‘DATA FOR TYPEOUT 
BAD DATA FOR TYPEOUT 


; CHECK ANY ERRORS NOT MASKED 

;MASK FOR RMER1 

;MASK FOR RMER2 

;GO TO 7$ IF NO ERROR 

;RETURN HERE IF ERROR 

.'ERROR * DEFINED BY fMPERRSTS SUBROUTINE 

;GO BACK FOR MORE ERROR CHECKS 

; GO TO 8$ IF ERROR 

;GO CHECK FOR SECONDARY ERRORS 

;GO TO 8S IF NO ERROR 

.’RETURN HERE IF ERROR 

.‘ERROR # DEFINED BY SECERR SUBROUTINE 

;GO BACK FOR MORE ERROR CHECKS 


SCOPE CALL 

START OF TEST 

INITIALIZE STACK POINTER 

RO = UNIBUS ADDRESS 

(R1) = DEVICE BEING TESTED 

;SET TEST NUMBER IN APT NAIL BOX 


PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 

CLEAR CONTROLLER t SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF “SKI" OR ’^IP" IS SET 

VERIFY RECALIBRATION 

GO TO 1$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR » DEFINED BY TSTPRP SUBROUTINE 

GO TO 9$ IF ERROR 


SET UNSAFE ERROR 
CYLINDER = 0 


J 12 



SEQ 0152 


TRACK = 0. SECTOR - 0 
.'SEEK COMMAND 

.•SETUP REGISTER INDEX TABLE 
.-AND OUTPUT BUFFER 


SETUP FOR STATUS FFTCH 

GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 2$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR « DEFINED BY PUT SUBROUTINE 

GO TO 9$ IF ERROR 

GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 3$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR » DEFINED BY GET SUBROUTINE 

GO TO 9S IF ERROR 

DID DRIVE START SEEK?? 

NO!! 

BAD DATA FOR TYPEOUT 

GOOD DATA FOR TYPEOUT 

WAIT FOR GO TO RESET 

GO READ RESISTER(S) WITH GET SUBROUTINE 

GO TO 5S IF NO ERROR 

RETURN HERE IF ERROR 

ERROR * DEFINED BY GET SUBROUTINE 

GO TO 9$ IF ERROR 

GO CHECK FOR PRIMARY ERRORS 

GO TO 6$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR 0 DEFINED BY PRIERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 9S IF ERROR 

GO CHECK FOR CHANGES IN DRIVE STATUS 

GO TO 7 % IF NO ERROR 

RETURN HERE IF ERROR 

ERROR 0 DEFINED BY STCDRVSTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 9S IF ERROR 

CHECK ANY ERRORS NOT MASKED 
;MASK FOR RMER1 
MASK FOR RMER2 
GO CO 8$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR 0 DEFINED BY CHPERRSTS SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
GO TO 9S IF ERROR 


K 12 
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1838 034274 
034300 
034302 
034304 
0343% 

1839 034310 

1840 

1841 


034310 

034310 

034312 

034314 

034320 

034324 

034330 

1842 

1843 034336 

1844 034336 
034342 


1851 


1861 


004737 

000403 

000240 

104000 

004736 


044416 


9$: 


I SR 

BR 

NOP 

ENT 

JSR 


PC.SECERR 

9$ 


PC.i(SP)* 


60 CHECK FOR SECONDARY ERRORS 

60 TO 9$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY SECERR SUBROUTINE 

60 BACK FOR MORE ERROR CHECKS 


000004 

000240 

012706 

013700 

013701 

012737 


004737 

054130 


•TEST 56 SEEK AT OFFSET 

.************************************•*****•**•******•********** 

TST56: 

SCOPE CALL 


001100 

001276 

001466 

000056 001226 


041532 


IS: 


SCOPE 

NOP 

MOV 

MOV 

MOV 

MOV 


JSR 

.WORD 


0343-4 

000404 




BR 

034346 

000240 




NOP 

034350 

104000 




ENT 

034352 

000137 

034634 



JMP 

034356 




2$: 


034356 

012737 

000000 

001446 


MOV 

034364 

012737 

000000 

001420 


MOV 

034372 

012737 

000015 

001412 


MOV 

034400 

0,2702 

001545 



MOV 

034404 

112722 

000034 



MOVB 

034410 

112722 

000006 



MOV 8 

034414 

112722 

000000 



MOVB 

034420 

112722 

000200 



MOVB 

034424 

004737 

043016 



JSR 

034430 

000404 




BR 

034432 

0U0240 




NOP 

034434 

104000 




EMT 

034436 

000137 

034634 



JMP 

034442 

004737 

042462 


3$: 

JSR 

034446 

004737 

043370 



JSR 

034452 




4$: 


034452 

012737 

000005 

001412 


MOV 

034460 

112737 

000000 

001545 


MOVB 

034466 

112737 

000200 

001546 


MOVB 

034474 

004737 

043016 



JSR 

034500 

000404 




BR 

034502 

000240 




NOP 

034504 

104000 




EMT 

034506 

000137 

034634 



JMP 

034512 




5$: 



# STACK, SP 
J8ASE.R0 
TST0UE.R1 
I56.JTESTN 


PC.TSTPRP 

054130 


2S 

10 $ 


#0,RMDC0 
fO.RNDAO 
#0FFSET!G0.RMCS10 
#PUTINX,R2 
#RMDC,(R2)+ 
#RM0A.<R2>* 
#RMCS1.(R2>+ 

#200, (R2>* 

PC. PUT 
3$ 


START OF TEST 

INITIALIZE STACK POINTER 

RO = UNIBUS ADDRESS 

(R1) x DEVICE BEING TESTED 

;SET TEST NUMBER IN APT MAIL BOX 


PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 

CLEAR CONTROLLER t SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF "SKI" OR 'PIP" IS SET 

VERIFY RECALIBRATION 

GO TO 2S IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY TSTPRP SUBROUTINE 

GO TO 10$ IF ERROR 


CYLINDER = 0 

TRACK = 0. SECTOR = 0 

:LOAD OFFSET COMMAND IN BUFFER 
R2 POINTS TO REGISTER TABLE 
WRITE REGISTER INDEX TABLE 


10 $ 

PC.GETSTS 

PC.TIMOUT 

#SEEK!G0,RMCS10 
fRMCSI .PUTINX 
#200.PUTINX*1 
PC. PUT 

5$ 


10 $ 


WRITE TERMINATOR 

GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 3$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 

GO TO 10$ IF ERROR 

SETUP FOR STATUS FETCH 

WAIT FOR OFFSET TO COMPLETE 

LOAD SEEK COMMAND 
LOAD REGISTER INDEX TABLE 

GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 5$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 

GO TO 10$ IF ERROR 



SEQ 0154 


60 TO 7IM0UT SUBROUTINE 

GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 6$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR » DEFINED BY GET SUBROUTINE 

GO TO 10$ IF ERROR 

GO CHECK FOR PRIMARY ERRORS 

GO TO 7$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR » DEFINED BY PRIERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 10$ IF ERROR 

GO VERIFY RESULTS OF SEEK OPERATION 

GO TO 8$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY SEKSTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 10$ IF ERROR 

CHECK ANY ERRORS NOT MASKED 

MASK FOR RMER1 

MASK FOR PMER2 

GO TO 9$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR » DEFINED BY CMPERRSTS SUBROUTINE 

GO SACK FOR MORE ERROR CHECKS 

GO TO 10$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 

GO TO 10$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED 8Y SECERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 


SCOPE CALL 

START OF TEST 

INITIALIZE STACK POINTER 

RO = UNIBUS ADDRESS 

(R1) * DEVICE BEING TESTED 

;SET TEST NUMBER IN APT NAIL BOX 

GO ISSUE CONTROLLER CLEAR 

GO TO 1$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR NUMBER DEFINED BY SUBROUTINE 

GO TO 20$ IF ERROR 

R3 = SAMPLE COUNT FOR 18 BIT MODE 



M 12 
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1881 034704 

1882 034712 

1883 034720 

1884 034726 

1885 034734 

1886 034740 

1887 034744 

1888 034750 

1889 034754 

1890 034760 

1891 034764 

1892 

1893 034770 
034774 
034776 
035000 
035002 

1894 035006 

1895 035006 

1896 035012 

1897 035016 

1898 035024 

1899 035026 

1900 035030 

1901 

1902 035032 

1903 

1904 035040 
035044 
035046 
035050 
035052 

1905 035056 

1906 035056 

1907 

1908 035062 
035066 
035070 
035072 
035074 

1909 035100 

1910 035100 
035104 
035106 
035110 
035112 
035114 

1911 035120 

1912 035120 

1913 035124 

1914 035130 

1915 035134 

1916 035140 

1917 035142 

1918 035144 

1919 035146 

1920 035150 


012737 

012737 

012737 

012737 

012702 

112722 

112722 

112722 

112722 

112722 

004737 

004737 

000404 

000240 

104000 

000137 

012702 

004737 

032777 

001774 

005302 

001370 


000000 001444 
000000 001446 
000000 001420 
000030 001412 2t: 
001545 
000006 
000034 
000032 
000000 
000200 
042462 

043016 


035344 

3$: 

000002 

043532 4$: 

000200 144466 5$: 


012737 000031 001412 


004737 

000404 

000240 

104000 

000137 


043016 


035344 


004737 043370 


004737 

000404 

000240 

104000 

000137 

004737 

000405 

000240 

104000 

004736 

000137 

012704 

012705 

016014 

016002 

020214 

001403 

005305 

001370 

000411 


042546 


035344 

043564 


035344 

104372 

177777 

000020 

000020 


♦O.RMOFO 

♦O.RMDCO 

♦O.RMDAO 

♦SEARCH, RHCS10 

♦PUTINX.R2 

♦RMDA.(R2>* 

♦RMDC, (R2>* 

♦RM0r,<R2)* 

♦RM CS1,(R2>* 

#200, (R2) ♦ 

PC,GETSTS 

PC, PUT 

3$ 


#2,R2 

PC, SUMER 

#8IT7,aCLKADR 

5$ 

R2 

4$ 

♦SEARCH! GO. RMCS 

PC. PUT 
6 $ 


PC.TIMOUT 

PC. GET 

7$ 


PC.PRIERR 

8$ 


pc.acsp)* 

i9i 

♦SUFFER, R4 
♦-1.R5 

RMLA(RO) , (R4) 
RMLA(RO) ,R2 
R2.CR4) 

ioi 

R5 

9$ 

12 $ 


SEQ 0155 


.•START WITH 18 BIT MODE 
.•CYLINDER = 0 

.•SEARCH TRACK = 0, SECTOR = 0 
.’SEARCH COMMAND 


GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 3$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR ♦ DEFINED BY PUT SUBROUTINE 

GO TO 19$ IF ERROR 

DO 2 CLOCK CYCLES 
START CLOCK TIMER 
TIMER DONE?? 

NO!! 

DEC NUMBER OF CYCLES 
CONTINUE IF NOT DONE 

) .’EXECUTE SEARCH COMMAND 

GO WRITE REGISTER (S) WITH PUT SUBROUTINE 

GO TO 6$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR ♦ DEFINED BY PUT SUBROUTINE 

GO TO 19$ IF ERROR 

WAIT FOR COMPLETION 

GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 7$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR ♦ DEFINED BY GET SUBROUTINE 

GO TO 19$ IF ERROR 

GO CHECK FOR PRIMARY ERRORS 

GO TO 8$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR ♦ DEFINED BY PRIERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 19$ IF ERROR 

R4 = STORAGE ADDRESS 
R5 = GROSS TIMER 
STORE RMLA SAMPLE 
GET ANOTHER LOOK 
ARE SAMPLES SAME?? 

YES!! 

TIMEOUT?? 

NO - TRY AGAIN 
PROGRAM TIMEOUT 


_J 



SEO 0156 
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1921 035152 

062704 

000002 

10$: 

ADD 

#2,R4 

.•ADVANCE STORAGE ADDRESS 

1922 035156 

005303 



DEC 

R3 

.-ALL SAMPLES TAKEN?? 

1923 035160 

001410 



BEQ 

13$ 

; YES ! ! 

1924 035162 

026002 

000020 

11$: 

CMP 

RMLA(RO) ,R2 

,‘WAIT FOR CHANGE 

1925 035166 

001360 



BNE 

9$ 

; YES f ! 

1926 035170 

005305 



DEC 

R5 

.•TIMEOUT?? 

1927 035172 

001373 



BNE 

11$ 

;N0 

1928 035174 



12$: 




035174 

104352 



EMT 

352 


1929 035176 

000137 

035354 


JMP 

20$ 



1930 

1931 

1932 035202 

1933 035206 

1934 035212 

1935 035216 

1936 035224 

1937 

1938 

1939 035226 

1940 035232 

1941 035236 

1942 035240 

1943 035244 

1944 035246 

1945 035250 

1946 035252 

1947 035254 

1948 035256 

1949 035262 

1950 035266 

1951 035270 

1952 035272 

1953 035274 

1954 

1955 035276 

1956 035304 

1957 035306 

1958 035314 

1959 

1960 035316 

1961 035324 

1962 035326 

1963 035334 


1963 035334 

1964 035340 

1965 

1966 035344 
035344 

1967 035350 

1968 035354 

1969 

1970 


035354 

035354 

035356 


012702 

012703 

012704 

032737 

001404 


012702 

012703 

012405 

062705 

020205 

103001 

005005 

020514 

001406 

010537 

011437 

104353 

000425 

005303 

001360 

032737 

001004 

012737 

000407 

032737 

001007 

052737 

012703 

000137 


012637 

012637 


003500 

000036 

104372 

010000 


003700 

000040 

000100 


001140 

001142 


001444 


010000 001444 
010000 001444 


001000 001444 


001000 

000041 

034726 


000006 

000004 


001444 


;SET 

18 BIT 

SAMPLE PARAMETERS 

1 

1 3$ : 

MOV 

#3500. R2 

;R2 = MAXIMUM SAMPLE ) 


MOV 

#30.. R3 

;R3 = NUMBER OF COMPARES 


MOV 

#BUFFER.R4 

;R4 = BUFFER ADDRESS 


BIT 

#FMT16,RN0F0 

;IS SAMPLE FOR 18 BIT MODE ? 


BEQ 

14$ 

;BR IF YES 

.-SET 

16 BIT 

SAMPLE PARAMETERS 

;R2 = MAXIMUM SAMPLE 


MOV 

#3700. R2 


MOV 

#32.. R3 

;R3 = NUMBER OF COMPARES 

14$: 

MOV 

(R4)+.R5 

.-GET A SAMPLE AND INCREMENT 


ADD 

#100.R5 

R2.R5 

15$ 

.-FOR EXPECTED VALUE OF NEXT 


CMP 

.•SHOULD NEXT BE 0 ? 


BHIS 

•NO* 1 

•YES- CHANGE EXPECTED 


CLR 

R5 

15$: 

CMP 

R5.CR4) 

;IS NEXT SAMPLE CORRECT?? 


BEQ 

16i 

; YES ! • 


MOV 

R5.SGDDAT 

.•EXPECTED VALUE 


MOV 
EMT 
B R 

(R4) .SBDDAT 

353 

19$ 

.•RECEIVED VALUE 

16$: 

DEC 

R3 

.-ALL SAMPLES CHECKED?? 


BNE 

14$ 

;N0 - TEST NEXT SAMPLE 


BIT 

#FMT16.RN0F0 

.-TEST DONE FOR 16 BIT MODE ? 


BNE 

17$ 

;BR IF YES 


MOV 

#FMT16,RM0F0 

.-SET 16 BIT MODE AND 


BR 

18$ 

;D0 AGAIN FOR 16 BIT NODE 

17$: 

BIT 

#SSEI.RMOFO 

.-TEST FOR 16 BIT MODE U/ SSEI SET ? 


BNE 

19$ 

;8R IF YES 


BIS 

#SSEI,RMOFO 

.•SETUP FOR 16 BIT MODE V/ SSEI AND 

18$: 

NOV 

#33.. R3 

.-SET SAMPLE COUNT. 


JMP 

2$ 

;D0 AGAIN FOR 16 BIT NODE U/ SSEI 

19$: 


MOV 

(SPJ+.ERRVEC+2 

;;POP STACK INTO ERRVEC+2 

20$: 

NOV 

(SP) +.ERRVEC 

;;POP STACK INTO ERRVEC 

; ;*********< 
.-•TEST 60 

SEARCH ON CYLINDER 


000004 

000240 


t§T60: 


SCOPE 

NCP 


.•SCOPE CALL 
.•START OF TEST 


B 13 


SEQ 0157 
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035360 

012706 

001100 



MOV 

#STACK.SP 

.‘INITIALIZE STACK POINTER 

035364 

013700 

001276 



MOV 

$8ASE,R0 

;R0 = UNIBUS ADDRESS 

035370 

013701 

001466 



MOV 

TSTQUE.R1 

;(R1) = DEVICE BEING TESTED 

035374 

012737 

000060 

001226 


MOV 

#60.$TESTN 

;;SET TEST NUMBER IN APT MAIL BOX 

1971 






1972 035402 

004737 

041532 



JSR 

PC.TSTPRP 

.•PREPARE DEVICE FOR TEST 

035406 

054130 




.WORD 

054130 

.'TASK DESCRIPTOR AS FOLLOWS: 

.‘CLEAR CONTROLLER ft SELECT DEVICE 
.‘VERIFY CONTROLLER CLEAR OPERATION 








.■PACK ACKNOWLEDGE IF VOLUME NOT VALID 
.‘VERIFY PACK ACKNOWLEDGE 
.‘RECALIBRATE IF "SM" OR •‘PIP" IS SET 








.•VERIFY RECALIBRATION 

035410 

000404 




BR 

1$ 

;G0 TO 1$ IF NO ERROR 

035412 

000240 




NOP 


.‘RETURN HERE IF ERROR 

035414 

104000 




EMT 


; ERROR # DEFINED BY TSTPRP SUBROUTINE 

035416 

000137 

035776 



JMP 

12$ 

;G0 TO 12$ IF ERROR 

1973 035422 

1974 035422 

012703 

000037 


1$: 

MOV 

#31., R3 

;R3 = MAXIMUM SECTOR ADDRESS 

1975 035426 

012737 

000000 

001446 


MOV 

#O.RMDCO 

.‘CYLINDER = 0 

1976 035434 

012737 

000000 

001420 


MOV 

fO.RMDAO 

.•TRACK - 0. SECTOR = 0 

1977 035442 

012737 

011000 

001444 


MOV 

#FMT16!SSEI .RMOFO ;SET 16 BIT MODE W/ SSEI 

1978 035450 

012737 

000005 

001412 


MOV 

#SEEK!G0,RMCS10 

.'SEEK COMMAND 

1979 035456 

012702 

001545 



MOV 

#PUTINX,R2 

.‘SETUP REGISTER INDEX TABLE 

1980 035462 

1 12722 

000006 



MOVB 

#RMDA,(R2)+ 

;FOR SEEK TO CYLINDER 0 

1981 035466 

112722 

000034 



MOVB 

#RMDC.(R2)+ 

1982 035472 

112722 

000032 



MOVB 

#RM0F,(R2)+ 


1983 035476 

112722 

000000 



MOVB 

#RMCS1,(R2)+ 


1984 035502 

112722 

000200 



MOVB 

#200, (R2)+ 


1985 035506 

004737 

042462 



JSR 

PC,GETSTS 

.‘SETUP FOR STATUS FETCH 

1986 035512 

004737 

043016 



JSR 

PC. PUT 

;G0 WRITE REGISTER (S) WITH PUT SUBROUTINE 

035516 

000404 




BR 

2$ 

;G0 TO 2$ IF NO ERROR 

035520 

000240 




NOP 


; RE TURN HERE IF ERROR 

035522 

104000 

035776 



EMT 


; ERROR # DEFINED BY PUT SUBROUTINE 

035524 

000137 



JMP 

12$ 

;G0 TO 12$ IF ERROR 

1987 035530 

1988 

004737 

C43370 


2$: 

JSR 

PC.TIMOUT 


1989 035534 

004737 

042546 



JSR 

PC, GET 

;G0 READ REGISTER (S) WITH GET SUBROUTINE 

035540 

000404 




BR 

3$ 

;G0 TO 3$ IF NO ERROR 

035542 

000240 




NOP 


.‘RETURN HERE IF ERROR 

035544 

104000 

035776 



EMT 


; ERROR # DEFINED BY GET SUBROUTINE 

r 35546 

000137 



JMP 

12$ 

;G0 TO 12$ IF ERROR 

1990 035552 




3$: 



1991 035552 

004737 

043564 



JSR 

PC.PRIERR 

,*G0 CHECK FOR PRIMARY ERRORS 

035556 

000405 




BR 

4$ 

;G0 TO 4$ IF NO ERROR 

035560 

000240 




NOP 


.•RETURN HERE IF ERROR 

035562 

104000 




EMT 


.‘ERROR # DEFINED BY PR1ERR SUBROUTINE 

035564 

004736 




JSR 

PC,8(SP)+ 

;G0 BACK FOR MORE ERROR CHECKS 

035566 

000137 

035776 



JMP 

12$ 

.GO TO 12$ IF ERROR 

1992 035572 

1993 035572 

0C4737 

051206 


4$: 

JSR 

PC.SEKSTS 

,*G0 VERIFY RESULTS OF SEEK OPERATION 

035576 

000405 




BR 

5$ 

;G0 TO 5$ IF NO ERROR 

035600 

000240 




NOP 


.‘RETURN HERE IF ERROR 

035602 

104000 




EMT 


.‘ERROR 5 DEFINED BY SEKSTS SUBROUTINE 

035604 

004736 

000137 

035776 



JSR 

pc.a<sp)+ 

;G0 BACK FOR MORE ERROR CHECKS 

035606 



JMP 

i2i 

;G0 TO 12$ if ERROR 

1994 035612 

012737 

000031 

001412 

5$: 

MOV 

#SEARCH!G0,RMCS10 .‘STORE SEARCH COMMAND 
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1995 035620 

004737 

043016 


JSR 

PC, PUT 

;G0 WRITE REGISTER(S) WITH PUT SUBROUTINE 

035624 

000404 



BR 

6$ 

;G0 TO 6$ IF NO ERROR 

035626 

000240 



NOP 


; RE TURN HERE IF ERROR 

035630 

104000 



ENT 


.•ERROR 0 DEFINED BY PUT SUBROUTINE 

035632 

000137 

035776 


JMP 

12$ 

;G0 TO 12$ IF ERROR 

1996 035636 



8$: 




1997 035636 

1 (VkO 

004737 

043370 


JSR 

PC,TIMOUT 

.-WAIT FOR SEARCH TO COMPLETE 

1 Wo 

1999 035642 

004737 

042546 


JSR 

PC. GET 

;G0 READ REGISTER(S) WITH GET SUBROUTINE 

035646 

000404 



BR 

7$ 

;G0 TO 7$ IF NO ERROR 

035650 

000240 



NOP 


; RE TURN HERE IF ERROR 

035652 

104000 



EMT 


;ERRGR 0 DEFINED BY GET SUBROUTINE 

035654 

000137 

035776 


JMP 

12$ 

;G0 TO 12$ IF ERROR 

2000 035660 



7$: 




2001 035660 

00473? 

043564 


JSR 

PC, PRI ERR 

;G0 CHECK FOR PRIMARY ERRORS 

035664 

000405 



BR 

8$ 

;G0 TO 8$ IF NO ERROR 

035666 

000240 



NOP 


; RE TURN HERE IF ERROR 

035670 

104000 



ENT 


.•ERROR 0 DEFINED BY PRIERR SUBROUTINE 

035672 

004736 



JSR 

PC.iCSP)* 

;G0 BACK FOR MORE ERROR CHECKS 

035674 

000137 

035776 


JMP 

12i 

;G0 TO 12$ IF ERROR 

2002 035700 



8$: 




2003 035700 

00473? 

056624 


JSR 

PC,SCHSTS 

;G0 VERIFY SEARCH OPERATION 

035704 

000405 



BR 

9$ 

;G0 TO 9$ IF NO ERROR 

035706 

000240 



NOP 


.•RETURN HERE IF ERROR 

035710 

104000 



EMT 


.•ERROR 0 DEFINED BY SCHSTS SUBROUTINE 

035712 

004736 



JSR 

pc.a<sp>* 

;G0 BACK FOR MORE ERROR CHECKS 

035714 

000137 

035776 


JMP 

2i 

;G0 TO 12$ IF ERROR 

2004 035720 



9$: 




2005 035720 

004737 

050562 


JSR 

PC.CMPERRSTS 

.•CHECK ANY ERRORS NOT MASKED 

035724 

115760 



.WORD 

NDTMSK 

;MASK FOR RMER1 

035726 

000010 



.WORD 

DPE 

.-MASK FOR RMER2 

035730 

000405 



BR 

10$ 

;G0 TO 10$ IF NO ERROR 

035732 

000240 



NOP 


.•RETURN HERE IF ERROR 

035734 

104000 



EMT 


.•ERROR # DEFINED BY CMPERRSTS SUBROUTINE 

035736 

004736 



JSR 

PC.a<SP>+ 

;G0 BACK FOR MORE ERROR CHECKS 

035740 

000137 

035776 


JMP 

i?i 

;G0 TO 12$ IF ERROR 

2006 035744 



10$: 




2007 035744 

004737 

044416 


JSR 

PC,S£CERR 

;G0 CHECK FOR SECONDARY ERRORS 

035750 

000405 



BR 

11$ 

;G0 TO 11$ IF NO ERROR 

035752 

000240 



NOP 


.•RETURN HERE IF ERROR 

035754 

104000 



EMT 


.•ERROR 0 DEFINED BY SECERR SUBROUTINE 

035756 

004736 



JSR 

pc.aispn 

;G0 BACK FOR MORE ERROR CHECKS 

035760 

000137 

035776 


JMP 

I2i 

;G0 TO 12$ IF ERROR 

2008 035764 



11$: 




2009 035764 

005237 

001420 


INC 

RMDAO 

.•INCREMENT SECTOR ADDRESS 

2010 035770 

020337 

001420 


CMP 

R3,RMDA0 

.•DONE ALL SECTORS?? 

2011 035774 

103306 



BHIS 

5$ 

;no:i 

201? 035776 



12$: 




2013 







2014 



• • ******** * ************ * *********** ************* ********** ******* 




;*TEST 61 

SEARCH OFF CYLINDER 

035776 



TSTC1 

. 



035776 

000004 



SCOPE 


.•SCOPE CALL 

036000 

000240 



NOP 


.•START OF TEST 

036002 

012706 

001100 


MOV 

#STACK,SP 

.•INITIALIZE STACK POINTER 

036006 

01V00 

001276 


MOV 

$8ASE,R0 

;R0 - UNIBUS ADDRESS 


I 


J 
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036012 013701 001466 

036016 012737 000061 001226 

2015 

2016 036024 004737 041532 
036030 054130 


JSR 

.WORD 


TSTQUE.R1 
#61 , JTcSTN 

PC.TSTPRP 

054130 


036032 

036034 

036036 

036040 

2017 036044 

2018 036044 

2019 036052 

2020 036060 

2021 036064 

2022 036070 

202? 036076 

2024 036102 

2025 036106 

2026 036112 

2027 036116 

2028 036122 

2029 036126 

2030 036132 

2031 036136 
036142 
036144 
036146 
036150 

2032 036154 

2033 036154 

2034 

2035 036160 
036164 
036166 
036,70 
036172 

2036 036176 

2037 036176 
036202 
036204 
036206 
036210 
036212 

2038 036216 

2039 036216 
036222 
036224 
036226 
036230 
036232 

20* 0 036236 


000404 

000240 

104000 

000137 

012737 

012737 

012703 

012705 

012737 

010537 

012702 

112722 

112722 

112722 

112722 

112722 

004737 

004737 

000404 

000240 

104000 

000137 


036440 

1 $: 

000000 001420 
011000 001444 
000427 
000430 

000005 001412 2$: 

001446 

001545 

000032 

000034 

000006 

000000 

000200 

042462 

043016 


036440 


004737 043370 


004737 

000404 

000240 

104000 

000137 

004737 

000405 

000240 

104000 

004736 

000137 

004737 

000405 

000240 

104000 

004736 

000137 


042546 


036440 

043564 


036440 

051206 


036440 


#O.RMDAO 

#FMT16!SSEI,RM0F 

#279. ,R3 

#280.. R5 

#SEEK!G0,RMCS10 

R5.RMDC0 

#PUTINX.R2 

#RM0F,(R2>* 

#RMDC,(R2H 

#RMDA, <R2) ♦ 

#RMCS1,(R2)+ 

#200.<R2>* 

PC.GETSTS 

PC. PUT 

3$ 


PC.TIMOUT 


PC.GP 

4$ 


PC.PRIERR 


PC.8CSP)* 

13i 

PC.SEKSTS 

6 $ 


pc.atsp)* 

i3i 


<R1) = DEVICF BEING TESTED 
.SET TEST NUMBER IN APT MAIL BOX 


SEQ 0159 


PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 

CLEAR CONTROLLER t SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF •‘SKI" OR "PIP" IS SET 

VERIFY RECALIBRATION 

GO TO IS IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY TSTPRP SUBROUTINE 

GO TO 13$ IF ERROR 


START AT TRACK = 0, SECTOR = 0 
i ;SET 16 BIT MODE W/ SSEI 

R3 = SEARCH CYLINDER 
R5 = SEEK CYLINDER 
LOAD SEEK COMMAND 
LOAD CYLINDER ADDRESS 
R2 POINTS TO REGISTER TABLE 
SETUP REGISTER INDEX TABLE 
FOR SEEK COMMAND 


TERMINATE TABLE 
SETUP FOR STATUS 

GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 3$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 

GO TO 13$ IF ERROR 

WAIT FOR SEEK TO COMPLETE 

GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 4$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY GET SUBROUTINE 

GO TO 13$ IF ERROR 

GO CHECK FOR PRIMARY ERRORS 

GO TO 5$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PRIERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 13$ IF ERROR 

GO VERIFY RESULTS OF SEEK OPERATION 

GO TO 6$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY SEKSTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 13$ IF ERROR 





E 13 
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SEQ 0160 


2041 036236 

2042 036242 

2043 036250 
036254 
036256 
036260 
036262 

2044 036266 

2045 036266 

2046 

2047 036272 
036276 
036300 
036302 
036304 

2048 036310 

2049 036310 
036314 
036316 
036320 
036322 
036324 

2050 036330 

2051 036330 
036334 
C36336 
036340 
036342 
036344 

2052 036350 

2053 036350 
036354 
036356 
036360 
036362 
036364 
036366 
036370 

2054 036374 

2055 036374 
036400 
036402 
036404 
0364G6 
036410 

2056 036414 

2057 036414 

2058 036416 

2059 036420 

2060 036424 

2061 036432 

2062 036434 

2063 036440 

2064 

2065 


010337 

012737 

004737 

000404 

000240 

104000 

000137 

004737 

004737 

000404 

000240 

104000 

000137 

004737 

000405 

000240 

104000 

004736 

000137 

004737 

000405 

000240 

104000 

004736 

000137 

004737 

115760 

000010 

000405 

000240 

104000 

004736 

000137 

004737 

000405 

000240 

104000 

004736 

000137 

005303 

005205 

005237 

023727 

101002 

000137 


001446 

000031 001412 

043016 


NOV 

NOV 

JSR 

BR 

NOP 

ENT 


R3.RMDC0 ;LOAD CYLINDER ADDRESS 

*SEARCH!G0.RNCSl6 ;L0AD SEARCH COMMAND 


C36440 

7$: 

JMP 

043370 


JSR 

042546 


JSR 

BR 

NOP 

EMT 

036440 

8$: 

JMP 

043564 


JSR 

BR 

NOP 

EMT 

JSR 

03&440 

9$: 

JMP 

056624 


JSR 

BR 

NOP 

EMT 

JSR 

036440 

10$: 

JMP 

050562 


JSR 

.WOP 

.WOP 

BR 

NOP 

EMT 

JSR 

036440 

11$: 

JMP 

044416 


JSR 

BR 

NOP 

EMT 

JSR 

036440 

12$: 

JMP 

DEC 

INC 

001420 


INC 

001420 

000037 

CMP 

BHI 

036070 

13$: 

JMP 


•West 62 





PC. PUT 

7% 


13$ 

PC.TINOUT 

PC. GET 

8 $ 


13$ 

PC.PRIERR 

9$ 


PC.iCSP)* 

i3i 

PC.SCHSTS 

ioi 


pc.acsp)* 

i3i 

PC.CNPERRSTS 

NDTNSK 

DPE 

11 $ 


pc.a<sp>+ 

i3i 

PC.SECERR 

12 $ 


PC.afSPH 

13i 

R3 

R5 

RNDAO 
RMDA0,#31 . 
13$ 

2 $ 


GO WRIT§ REGISTER(S) WITH PUT SUBROUTINE 

GO TO 7$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR h DEFINED BY PUT SUBROUTINE 

GO TO 13$ IF ERROR 

WAIT FOR SEARCH TO COMPLETE 

GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 8$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY GET SUBROUTINE 

GO TO 13$ IF ERROR 

GO CHECK FOR PRIMARY ERRORS 

GO TO 9$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PRIERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 13$ IF ERROR 

GO VERIFY SEARCH OPERATION 

GO TO 10$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY SCHSTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 13$ IF ERROR 

CHECK ANY ERRORS NOT MASKED 

MASK FOR RMER1 

MASK FOR RMER2 

GO TO 11$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY CMPERRSTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 13$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 

GO TO 12$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY SECERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 13$ IF ERROR 

DECREMENT SEARCH CYLINDER 
INCREMENT SEEK CYLINDER 
INCREMENT SECTOR ADDRESS 
DONE ALL SECTORS?? 

BR IF YES 
DO NEXT SECTOR 


SEARCH INVALID SECTOR 
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T62 

RM80 FCTNL PT1 
SEARCH INVALID 

036440 

036440 000004 
036442 000240 

MACRO V04.00 28- JAN-82 
SECTOR 

TST62: 

16:24:51 

SCOPE 

N0*» 

PAGE 13-77 

SCOPE CALL 

START OF TEST 


036444 

012706 

001100 

MOV 

#STACK.SP 

INITIALIZE STACK POINTER 


036450 

013700 

001276 

MOV 

SSASE.RO 

RO = UNIBUS ADDRESS 


036454 

013701 

001466 

MOV 

TSTQUE.R1 

(R1) = DEVICE BEING TESTED 

2066 

036460 

012737 

000062 001226 

MOV 

#62.$TESTN 

.‘SET TEST NUMBER IN APT MAIL BOX 

2067 

036466 

036472 

004737 

054130 

041532 

JSR 

.WORD 

PC .TSTPRP 

05^130 

PREPARE DEVICE FOR TEST 

TASK DESCRIPTOR AS FOLLOWS: 

CLEAR CONTROLLER i SELECT DEVICE 


036474 

036476 

036500 

036502 

2066 036506 

2969 036506 

2070 0365»4 

2071 036522 

2072 036530 

2073 036536 

2074 036542 

2075 036546 

2076 036552 

2077 036556 

2078 036562 

2079 036566 

2080 036572 

2081 036572 
036576 
036600 
036602 
036604 

2082 036610 

2083 036610 
036614 
036616 
036620 
036622 
036626 

>085 036626 


2088 

2089 



000404 

000240 

104000 

000137 

012737 

012737 

012737 

012737 

012702 

112722 

112722 

112722 

112722 

112722 

004737 

004737 

000404 

000240 

104000 

000137 

004737 

000404 

000240 

104000 

000137 

004737 

004737 

000404 

000240 

104000 

000137 



037040 

000000 001444 
000000 001446 
000036 001420 
000031 001412 
001545 
000034 
000032 
000006 
000000 
000200 
042462 

052466 


037040 

043016 

037040 

043370 

042546 

037040 

043564 


1 $: 


2 $: 


3$: 


4$: 


5$: 


8ft 

NOP 

ENT 

JMP 

NOV 

MOV 

MOV 

MOV 

NOV 

M0V8 

Move 

M0V8 

M0V8 

Move 

JSR 

JSft 

eft 

NOP 

EMT 

JMP 

JSR 

Bft 

NOP 

EMT 

JMP 

JSft 

JSR 

Bft 

NOP 

EMT 

JMP 

JSR 

Bft 

NOP 

EMT 


1 $ 

12 $ 


#0,RM0F0 
#O.RMDCO 
#30. .RMDAO 
#SEARCH!G0.RMCS10 
#PUTINX.R2 
#RMDC.(R2>* 
#RM0F,(R2>+ 

#RMDA, (R2)+ 
#RMCS1,<R2>* 

#200, <R2>* 
PC,GETSTS 


VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE ir "SKr* OR ’PIP" IS SET 

VERIFY RECALIBRATION 

GO TO 1$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY TSTPRP SUBROUTINE 

GO TO 12$ IF ERROR 


SET 18 BIT FORMAT 
CYLINDER = 0 

FIRST INVALID SECTOR = 30. 

.‘SEARCH COMMAND 
WRITE REGISTER TABLE FOR 
COMMAND 


.♦TERMINATE TABLE 
.•SETUP STATUS FETCH 


PC.CNTCLR 

3$ 


12 $ 

PC. PUT 

4$ 


12 $ 

PC.TIMOUT 

PC. GET 
5$ 

12 $ 

PC.PRIERR 

6$ 


.‘GO ISSUE CONTROLLER CLEAR 

;G0 TO 3$ IF NO ERROR 

.•RETURN HERE IF ERROR 

.•ERROR NUMBER DEFINED BY SUBROUTINE 

;G0 TO 12$ IF ERROR 

,*G0 WRITE REGISTER(S) WITH PUT SUBROUTINE 
;G0 TO 4$ IF NO ERROR 
.•RETURN HERE IF ERROR 
; ERROR # DEFINED BY PUT SUBROUTINE 
;G0 TO 12$ IF ERROR 

.•WAIT FOR GO TO RESET 

,*60 READ REGISTER(S) WITH GET SUBROUTINE 

.‘GO TO 5$ IF NO ERROR 

.‘RETURN HERE IF ERROR 

.‘ERROR # DEFINED BY GET SUBROUTINE 

;G0 TO 12$ IF ERROR 

;G0 CHECK FOR PRIMARY ERRORS 

;G0 TO 6$ IF NO ERROR 

.•RETURN HERE IF ERROR 

.‘ERROR # DEFINED BY PRIERR SUBROUTINE 


SEQ C 
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SEQ 0162 


036662 

036664 

2090 036670 

2091 036670 
036674 
036676 
036700 
036702 
036704 

2092 036710 

2093 036710 
036714 
036716 
036720 
036722 
036724 

2094 036730 

2095 036730 
036734 
036736 
036740 
036742 
036744 
036746 
036750 

2096 036754 

2097 036754 
036760 
036762 
036764 
036766 
036770 

2098 036774 

2099 036774 

2100 037000 

2101 037006 

2102 

2103 037010 

2104 037016 

2105 037020 

2106 037026 

2107 037034 

2108 037040 

2109 

2110 


037040 

037040 

037042 

037044 

037050 

037054 

037060 

2111 

2112 037066 
037072 


004736 

000137 

004737 

000405 

000240 

104000 

004736 

C30137 

004737 

000405 

000240 

104000 

004736 

000137 

004737 

117760 

000010 

000405 

000240 

104000 

004736 

000137 

004737 

000405 

000240 

104000 

004736 

000137 

005237 

023727 

101412 

032737 

001010 

012737 

012737 

000137 


037040 

056624 


037040 

060210 


037040 

050562 


037040 

044416 


037040 

001420 

001420 


000100 


010000 001444 


010000 

000037 

036572 


001444 

001420 


JSR 

.WORD 

.WORD 

BR 

NOP 

ENT 

JSR 

JNP 


PC.i(SP)* 

12i 

PC.SCHSTS 

7$ 


pc.a(sp>* 

12$ 

PC.STCDRVSTS 

8 $ 


pc.acsPH 

12$ 

PC.CNPERRSTS 

IAE1NDTNSK 

DPE 

9$ 


PC.a<SP>* 

12 $ 

PC.SECERR 

10 $ 


PC.a(SP)* 

12$ 

RMDAO 
RMDAO. #64. 
11 $ 

m 1T16.RN0F0 
12 $ 

#FMT16.RN0F0 
#51 , .RMDAO 

2 $ 


60 BACK FOR NORE ERROR CHECKS 
GO TO 12$ IF ERROR 

60 VERIFY SEARCH OPERATION 

60 TO 7$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY SCHSTS SUBROUTINE 

60 BACK FOR NORE ERROR CHECKS 

60 TO 12$ IF ERROR 

60 CHECK FOR CHAN6ES IN DRIVE STATUS 

60 10 8$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED B v STCDRVSTS SUBROUTINE 

60 BACK FOR NORE ERROR CHECKS 

60 TO 12$ IF ERROR 

CHECK ANY ERRORS NOT HASKED 
;NASK FOR RNER1 
MASK FOR RNER2 
60 TO 9$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR # DEFINED BY CNPERRSTS SUBROUTINE 
60 BACK FOR NORE ERROR CHECKS 
60 TO 12$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 

60 TO 10$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY SECERR SUBROUTINE 

60 BACK FOR NORE ERROR CHECKS 

GO TO 12$ IF ERROR 

INCRENENT SECTOR ADDRESS 
DONE YET ? 

NO - TEST NEXT SECTOR 

TEST FOR 16 BIT NODE YET ? 

BR IF YES 

SET 16 BIT NODE 

SET INVALID SECTOR = 31. 

TEST NEXT SECTOR 


000004 

000240 

012706 001100 
013700 001276 
013701 001466 
012737 000063 

004737 041532 
054130 


;*TEST 63 SEARCH INVALID TRACK 

• <**********•*************************«*****•******************** 

tST63: 

SCOPE .SCOPE CALL 


001226 


SCOPE 

NOP 

NOV 

NOV 

NOV 

NOV 

JSR 

.WORD 


fSTACK.SP 

SBASE.RO 

TSTQUE.R1 

#63.STESTN 

PC.TSTPRP 
05a 130 


START OF TEST 

INITIALIZE STACK POINTER 

RO = UNIBUS ADDRESS 

(R1) = DEVICE BEING TESTED 

;SET TEST NUMBER IN APT NAIL BOX 

PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 


H 13 


CZRNDAC 

T63 


2113 
21 14 

2115 

2116 

2117 

2118 

2119 

2120 
2121 
2122 

2123 

2124 

2125 

2126 
2127 


2)28 

2129 


2130 

2131 

2132 

2133 


2134 

2135 


2136 

2137 
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037074 

000404 




BR 

037076 

000240 




NOP 

037100 

1Q4C00 




EMT 

037102 

000137 

037420 



JMP 

037106 




IS: 


037106 

012737 

000031 

001412 


MOV 

037114 

012737 


001446 


MOV 

037122 

013737 

001334 

001420 


MOV 

037130 

105237 

001421 



INCB 

037134 

012737 

010000 

001444 


MOV 

037142 

012702 

001545 



MOV 

037146 

112722 

000006 



MOVB 

037152 

112722 

000034 



M0V8 

037156 

112722 

000032 



MOVB 

037162 

112722 




MOVB 

037166 

112722 

000200 



MOVB 

037172 

004737 

042462 



JSR 

037176 




2$: 


037176 

004737 

052466 



JSR 

037202 

000404 




BR 

037204 

000240 




NOP 

037206 

104000 




EMT 

037210 

000137 

037420 



JMP 

03/214 




3$: 


037214 

004737 

043016 



JSR 

037220 

000404 




BR 

037222 

000240 




NOP 

03^224 

104000 




EMT 

037226 

000137 

037420 



JMP 

037232 




4$: 


037232 

004737 

043370 



JSR 

037236 

004737 

042546 



JSR 

037242 

000404 




BR 

037244 

000240 




NOP 

037246 

104000 




EMT 

037250 

000137 

037420 



JMP 

037254 




5$: 


037254 

004737 

043564 



JSR 

037260 

000405 




BR 

037262 

000240 




NOP 

037264 

104000 




EMT 

037266 

004736 




JSR 

037270 

000137 

037420 



JMP 

037274 




6$: 


037274 

004737 

056624 



JSR 

037300 

000405 




BR 

037302 

000240 




NOP 

037304 

104000 




EMT 

037306 

004736 




JSR 

037310 

000137 

037420 



JMP 


1 $ 

11 $ 


CLEAR CONTROLLER t SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF •‘SKr* OR ‘^IP" IS SET 

VERIFY RECALIBRATION 

GO TO IS IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY TSTPRP SUBROUTINE 

GO TO 11$ IF ERROR 


#SEARCH!G0,RMCS10 : SEARCH COMMAND 

tO.RMDCO .-CYLINDER = 0 

‘ .-LAST TRACK, SECTOR = 0 

.-SETUP FIRST INVALID TRACK 
; SET 16 BIT FORMAT 
; WRITE REGISTER INDEX TABLE 


LSTRK.RMDAO 

RM9A0+1 

#FMT16,RM0F0 

0PUTINX.R2 

#RMDA, (R2)+ 

#RMDC,(R2)+ 

#RM0F f (R2)* 

#RMCS1,(R2)+ 

#200. (R2>* 

PC.GETSTS 

PC.CNTCLR 

3$ 


11 $ 

PC. PUT 
4$ 


11 $ 

PC.TIMOUT 

PC. GET 
5$ 


11 $ 

PC.PRIERR 

6 $ 


PC.BCSP)* 

ni 

PC.SCHSTS 

7$ 


PC.B(SP)* 

111 


; TERMINATE TABLE 


GO ISSUE CONTROLLER CLEAR 
GO TO 3$ IF NC ERROR 
RETURN HERE IF ERROR 
ERROR NUMBER DEFINED BY SUBROUTINE 
GO TC 11$ IF ERROR 

GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 4$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 

60 TO 11$ IF ERROR 

WAIT FOR GO TO RESET 

SO READ REGISTER(S) WITH GET S COROUTINE 

GO 70 5$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY GET SUBROUTINE 

GO TO 11$ IF ERROR 

GO CHECK FOR PRIMARY ERRORS 

GO TO 6$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PRIERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 11$ IF ERROR 

GO VERIFY SEARCH OPERATION 

GO TO 7$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY SCHSTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 11$ IF ERROR 


SEQ 0163 


1 
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I 13 


SE3 0164 


2138 037314 

2139 037314 
037320 
037322 
037324 
037326 
037330 

2140 037334 

2141 037334 
037340 


004737 

000405 

000240 

104000 

004736 

000137 

004737 

117760 


060210 

037420 

050562 


7$: 


8 $: 


JSR 

8 R 

NOP 

ENT 

JSR 

JMP 

JSR 

.WORD 


037342 

000010 



.worn 

037344 

000405 



BR 

037346 

000240 



NOP 

037350 

104000 



EMT 

037352 

004736 



JSR 

C37354 

000137 

037420 


JMP 

2142 037360 



9$: 


2143 037360 

004737 

044416 


JSR 

037364 

000405 



BR 

037366 

000240 



NOP 

037370 

104000 



EMT 

037372 

004736 



JSR 

037374 

000137 

037420 


JMP 

2144 037400 



10$: 


2145 037400 

105237 

001421 


INCB 

2146 037404 

123727 

001421 

00C200 

CMP8 

2147 037412 

101002 



BHI 

2148 037414 

000137 

037176 


JMP 

2149 C37420 



11$: 


2150 





2151 



;;****' 





.-•TEST 

64 


PC.STCDRVSTS 

8 $ 


PC.iCSPH 

in 

PC.CMPERRSTS 
NDTNSK! 1AE 
DPE 
9S 


PC.8CSP)* 

iii 

PC.SECERR 

ioi 


pc.aisp)* 

ns 

RMDAO+1 
RMDAO+1 ,#128. 
11 $ 

2 $ 


60 CHECK FOR CHAN6ES IN DRIVE STATUS 

60 TO 8$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR 0 DEFINED BY STCDRVSTS SUBROUTINE 

60 BACK FOR MORE ERROR CHECKS 

60 TO 11$ IF ERROR 

CHECK ANY ERRORS NOT MASKED 
;MA5K FOR RMER1 
MASK FOR RMER2 
60 TO 9$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR 0 DEFINED BY CMPERRSTS SUBROUTINE 
60 BACK FOR MORE ERROR CHECKS 
60 TO 11$ IF ERROR 

60 CHECK FOR SECONDARY ERRORS 

60 TO 10$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY SECERR SUBROUTINE 

60 BACK FOR MORE ERROR CHECKS 

60 TO 11$ IF ERROR 

INCREMENT TRACK ADDRESS 
DONE ALL TRACKS ? 

BR IF YES 
TEST NEXT TRACK 


SEARCH INVALID CYLINDER 


2152 


037420 

037420 

037422 

000004 

000240 

TST64: 

SCOPE 

NOP 

037424 

012706 

001100 

MOV 

037430 

013700 

001276 

MOV 

037434 

013701 

001466 

MOV 

037440 

012737 

000064 001226 

MOV 

037446 

037452 

004737 

054130 

041532 

JSR 

.WORD 


fSTACK.SP 

SBASE.RO 

TST0UE.R1 

#64.$TESTN 

PC.TSTPRP 

05*130 


037454 000404 
037456 000240 
037460 104000 
037462 000137 037774 


2154 037466 

2155 037466 

2156 037474 


012737 000031 001412 
v,.,., 012737 001061 001446 
2157 037502 012737 000000 001420 


1 $: 


BR 

NOP 

EMT 

JMP 

MOV 

MOV 

MOV 


1 $ 

11 $ 


SCOPE CALL 

START OF TEST 

INITIALIZE STACK POINTER 

RO = UNIBUS ADDRESS 

(R1) = DEVICE BEING TESTED 

;SET TEST NUMBER IN APT MAIL BOX 

PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 

CLEAR CONTROLLER t SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF "SKr* OR , T»IP M IS SET 

VERIFY RECALIBRATION 

SO TO 1$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR 0 DEFINED BY TSTPRP SUBROUTINE 

GO TO 11$ IF ERROR 


#SEARCH!G0.RMCS10 ;SEARCH COMMAND 

#561..RMDCO .‘START At FIRST INVALID CYLINDER 
#O.RMDAO .-TRACK = 0, SECTOR * 0 
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2158 037510 

2159 037516 

2160 037522 

2161 037526 

2162 037532 

2163 037536 

2164 037542 

2165 037546 

2166 037552 

2167 037552 
037556 
037560 
037562 
037564 

2168 037570 

2169 037570 
037574 
037576 
037600 
037602 

2170 037606 

2171 037606 

2172 

2173 037612 
037616 
037620 
037622 
037624 

2174 037630 

2175 037630 
037634 
037636 
037640 
037642 
037644 

2176 037650 

21 77 037650 
037654 
037656 
037660 
037662 
037664 

2178 037670 

217V 037670 

037674 

037676 

037700 

037702 

037704 

2180 037710 

2181 037710 
037714 
037716 
037720 
037722 
037724 
037726 


012737 

012702 

112722 

112722 

112722 

112722 

112722 

004737 

004737 

000404 

000240 

104000 

000137 

004737 

000404 

000240 

104000 

000137 


010000 001444 
001545 
000032 
000034 
000006 
000000 
000200 
042462 

052466 


037774 

043016 


037774 


004737 043370 


004737 

000404 

000240 

104000 

000137 

004737 

000405 

000240 

104000 

004736 

000137 

004737 

000405 

000240 

104000 

004736 

000137 

004737 

000405 

000240 

104000 

004736 

000137 

004737 

117760 

000010 

000405 

000240 

104000 

004736 


042546 


037774 

043564 


037774 

056624 


037774 

060210 


037774 

050562 


MOV 

MOV 

NOVO 

Move 

movb 

Move 

MOVB 

JSR 


JSft 

.WORD 

.WORD 

BR 

NOP 

EMT 

JSR 


#FMT16,RM0F0 
#PU1 INX.R2 
#RM0F,(R2)* 
#RMDC,<R2>* 
#RMDA.(R2)+ 
#RMCS1,(R2>* 
#200, <R2)* 
PC.GETSTS 

PC.CNTCLR 

3$ 


PC, PUT 

4$ 


PC.TIMOUT 

PC. GET 

5$ 


PC.PRJERR 

6 $ 


PC.a(SP)* 

ni 

PC.SCHSTS 

7$ 


pc.a<sp>* 

ni 

PC.STCDRVSTS 

8$ 


pc.atsp)* 

ni 

PC.CMPERRSTS 

lAE.'NDTMSK 

DPE 

9$ 


pc.acsp)* 


SEQ 0165 


; SET 16 BIT FORMAT 
.WRITE REGISTER INDEX TABLE 


.•SETUP STATUS FETCH 

;G0 ISSUE CONTROLLER CLEAR 

;G0 TO 3$ IF NO ERROR 

.•RETURN HERE IF ERROR 

.•ERROR NUMBER DEFINED BY SUBROUTINE 

;G0 TO 11$ IF ERROR 

;G0 WRITE REGISTER(S) WITH PUT SUBROUTINE 
;G0 TO 4$ IF NO ERROR 
.•RETURN HERE IF ERROR 
; ERROR # DEFINED BY PUT SUBROUTINE 
;G0 TO 11$ IF ERROR 


GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 5$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY GET SUBROUTINE 

GO TO 11$ IF ERROR 

GO CHECK FOR PRIMARY ERRORS 

GO TO 6$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PRIERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 11$ IF ERROR 

GO VERIFY SEARCH OPERATION 

GO TO 7$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY SCHSTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 11$ IF ERROR 

SO CHECK FOR CHANGES IN DRIVE STATUS 

GO TO 8$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY STCDRVSTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 11$ IF ERROR 


.CHECK ANY ERRORS NOT MASKED 
;MASK FOR RMER1 
.-MASK FOR RMER2 
;G0 TO 9$ IF NO ERROR 
.RETURN HERE IF ERROR 
.•ERROR # DEFINED BY CMPERRSTS SUBROUTINE 
.-GO BACK FOR MORE ERROR CHECKS 


i 
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IIS 

PC.SECERR 

ioi 


pc.b<sp>* 

iii 

RMDCO 

RMDCO, *1024. 
11 $ 

2S 


2190 

21°1 


SEARCH 

INVALID 

CYLINDER 



037730 

037734 

000137 

037774 

9$: 

JMP 

037734 

004737 

044416 


J SR 

037740 

000405 



BR 

037742 

000240 



NOP 

037744 

104000 



EMT 

037746 

004736 



JSR 

037750 

000137 

037774 

10$: 

JMP 

037754 

037754 

005237 

001446 

INC 


037760 

023727 

001446 002000 


CMP 

037766 

103002 



BHIS 

037770 

037774 

000137 

037552 

11$: 

JMP 


GO TO 11$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 

GO TO 10$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR » DEFINED BY SECERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 11$ IF ERROR 

INCREMENT CYLINDER ADDRESS 
DONE ALL CYLINDERS ? 

.BR IF YES 

.'rTEST NEXT INVALID CYLINDER 


•TEST 65 


IVC SEARCH TEST 


2192 


037774 

037774 

037776 

000004 

000240 

TST65: 

SCOPE 

NOP 

fSTACK.SP 

040000 

012706 

001100 

MOV 

040004 

013700 

001276 

MOV 

S8ASE.R0 

040010 

013701 

001466 

MOV 

TSTQUE.R1 

040014 

012737 

000065 001226 

MOV 

#65,$TESTN 

040022 

040026 

004737 

054130 

041532 

JSR 

.WORD 

PC.TSTPRP 

054130 


040030 

040032 


000404 

000240 


BR 
NO P 


1 $ 


040034 

104000 




EMT 

; 

040036 

000137 

040354 



JMP 

8$ 

2194 040042 




1$: 



2195 040042 

112737 

000024 

001545 


M0V8 

fRMMRI .PUTINX ; 

040050 

112737 

000230 

001546 


MOVB 

#200.PUT1NX*1 ; 

040056 

012737 

000001 

001436 


MOV 

#DMD,RMMR10 

040064 

004737 

04*1016 



JSR 

PC. PUT 

040070 

000404 




BR 

2$ 

040072 

000240 




NOP 

; 

040074 

104000 




EMT 

; 

040076 

000137 

040354 



JMP 

8$ 

2196 040102 




2$: 



2197 040102 

012737 

000000 

001436 


MOV 

10.RMMR10 ;l 

2198 040110 

012737 

000000 

001446 


MOV 

#0, RMDCO ; 

2199 040116 

012737 

000000 

001420 


MOV 

fO.RMDAO 

2200 040124 

012737 

ocoooo 

001444 


MOV 

#0,RM0F0 

2201 040132 

012737 

000031 

001412 


MOV 

#SEARCH ! G0.RMCS1 0 

2202 040140 

012702 

001545 



MOV 

#PUTINX.R2 

2203 040144 

112722 

000024 



MOVB 

#RMMR1.(R2H 

2204 040150 

112722 

000034 



MOVB 

#RMDC,(R2>* 

2205 040154 

112722 

000006 



MOVB 

#RMDA.<R2>* 


SCOPE CALL 

START OF TEST 

INITIALIZE STACK POINTER 

RO = UNIBUS ADDRESS 

(R1) = DEVICE BEING TESTED 

;SET TEST NUMBER IN APT MAIL BOX 

PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 

CLEAR CONTROLLER t SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF ••SKI" OR "PIP" IS SET 

VERIFY RECALIBRATION 

GO TO 1$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY TfTPRP SUBROUTINE 

GO TO 8$ IF ERROR 

SETUP PUT INDEX TABLE 

SET TERMINATOR BYTE 

SET RMMR1 OUTPUT BUFFER = DMD 

GO WRITE RMMR1 VIA PUT SUBROUTINE 

GO TO 2$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR DEFINED BY PUT SUBROUTINE 

GO TO 8$ IF ERROR 


CYLINDER 0 

TRACK = 0. SECTOR = 0 
18 BIT FORMAT 

; SEARCH COMMAND 


SEQ 0166 


SEQ 0167 


CZRNDAO RH80 FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 13-83 
T65 IVC SEARCH TEST 


L 13 


2206 040160 

112722 

000032 


movb 

2207 040164 

112722 

000000 


MOVB 

2208 040170 

112722 

000200 


MOVB 

2209 040174 

004737 

042462 


JSR 

2210 040200 

004737 

043016 


JSR 

040204 

000404 



BR 

040206 

000240 



NOP 

040210 

104000 



EMT 

040212 

000137 

040354 


JMP 

2211 040216 

2212 040216 

004737 

043370 

3$: 

JSR 

2213 

2214 0*0222 

004737 

042546 


JSR 

040226 

000404 



BR 

040230 

000240 



NOP 

040232 

104000 



EMT 

040234 

000137 

040354 


JMP 

2215 040240 

2216 040240 

004737 

043564 

4$: 

JSR 


#RMOF. (R2>* 
MWC$1,(R2>* 
#200, (R2>* 
PC,GETSTS 
PC, PUT 
3$ 


8 $ 

PC,TIMOUT 


040244 

040246 

040250 


000405 

000240 

104000 


BR 

NOP 

EMT 


PC, GET 
4$ 


8 $ 

PC.PRIERR 

5$ 


040252 

004736 




JSR 

PC.i(SP)* 

; 

040254 

000137 

040354 



JMP 

8$ 

; 

2217 040260 




5S: 




2218 040260 

032737 

010000 

001400 


BIT 

#1VC,RMER2I 

; 

2219 040266 

001012 




BNE 

6$ 

• 

2220 040270 

012737 

010000 

001140 


MOV 

#IVC.SGDDAT 

; 

2221 040276 

013737 

001400 

001142 


MOV 

RMER2I.SBDDAT 

; 

2222 040304 

042737 

167777 

001142 


BIC 

#*CIVC,SBDDAT 


2223 040312 

104260 




EMT 

260 


2224 040314 




6S: 




2225 040314 

004737 

050562 



JSR 

PC, CMPERRSTS 


040320 

115760 




• WORD 

NDTMSK 

; 

040322 

010010 




.WORD 

IVC.'DPE 

; 

040324 

000405 




BR 

7$ 

; 

040326 

000240 




NOP 


; 

040330 

104000 




EMT 



040332 

004736 




JSR 

PC,i(SP>* 

* 

040334 

000137 

040354 



JMP 

8$ 

• 

2226 040340 




7$: 




2227 040340 

004737 

044416 



JSR 

PC, SECERR 

; 

040344 

000403 




BR 

8$ 

; 

040346 

000240 




NOP 


; 

040350 

104000 




EMT 


; 

040352 

004736 




JSR 

pc.a<sp>* 

; 

2228 040354 




8$: 




2229 








2230 




;:*** 



»** 





.-•TEST 66 

ABORT SEARCH TEST 


GO WRITE REGISTER(S) WITH PUT SUBROUTINE 

GO TO 3$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 

GO TO 8$ IF ERROR 

;WAIT FOR GO TO RESET 

;G0 READ REGISTER(S) WITH GET SUBROUTINE 

;G0 TO 4$ IF NO ERROR 

.•RETURN HERE IF ERROR 

.•ERROR # DEFINED BY GET SUBROUTINE 

;G0 TO 8$ IF ERROR 

;G0 CHECK FOR PRIMARY ERRORS 
;G0 TO 5$ IF NO ERROR 
.•RETURN HERE IF ERROR 

OR # DEFINED BY PRIERR SUBROUTINE 
BACK FOR MORE ERROR CHECKS 
TO 8$ IF ERROR 


# DEFINED BY CMPERRSTS SUBROUTINE 
[K FOR MORE ERROR CHECKS 
8$ IF ERROR 


# DEFINED BY SECERR SUBROUTINE 


040354 



TST66: 


040354 

000004 


SCOPE 


040356 

000240 


NOP 


040360 

012706 

001100 

MOV 

#STACK,SP 

0-0364 

013700 

001276 

MOV 

S8ASE,R0 

040370 

013701 

001466 

MOV 

TST0UE,R1 


*************************************************************** 


SCOPE CALL 
START OF TEST 
INITIALIZE STACK POINTER 
RO = UNIBUS ADDRESS 
(R1) = DEVICE BEING TESTED 



n 13 



SEO 0168 


;SET TEST NUMBER IN APT MAIL BOX 


PREPARE DEVICE FOR TEST 
TASK DESCRIPTOR AS FOLLOWS: 

CLEAR CONTROLLER t SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPERATION 

PACK ACKNOWLEDGE IF VOLUME NOT VALID 

VERIFY PACK ACKNOWLEDGE 

RECALIBRATE IF "SKr* OR ’^IP" IS SET 

VERIFY RECALIBRATION 

GO TO 1$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY TSTPRP SUBROUTINE 

GO TO 9$ IF ERROR 


SET UNSAFE ERROR 
I ; SEARCH COMMAND 

CYLINDER 0 

SECTOR = 0, TRACK = 0 
WRITE REGISTER INDEX TABLE 


TERMINATE TABLE 
SETUP FOR STATUS 

GO WRITE REGISTERCS) WITH PUT SUBROUTINE 

GO TO 2S IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 

GO TO 9$ IF ERROR 

GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 3$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR V DEFINED BY GET SUBROUTINE 

GO TO 9$ IF ERROR 

IS PIP SET?? 

NO 1 1 

EXPECTED STATUS 
RECEIVED STATUS 


WAIT FOR GO TO RESET 

GO READ REGISTER(S) WITH GET SUBROUTINE 

GO TO 5$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED SY GET SUBROUTINE 

GO TO 9$ IF ERROR 

GO CHECK FOR PRIMARY ERRORS 

GO TO 6S IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PRIERR SUBROUTINE 
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040632 

004736 



JSR 

PC.a(SP)* 

;G0 BACK FOR MORE ERROR CHECKS 

040634 

000137 

040720 


JMP 

9S 

;G0 TO 9S IF ERROR 

040640 



6S: 




040640 

004737 

060210 


JSR 

PC.STCDRVSTS 

;G0 CHECK FOR CHANGES IN DRIVE STATUS 

040644 

000405 



BR 

7S 

;G0 TO 7S IF NO ERROR 

040646 

000240 



NOP 


.-RETURN HERE IF ERROR 

040650 

104000 



EMT 


.-ERROR 0 DEFINED BY STCDRVSTS SUBROUTINE 

040652 

004736 



JSR 

pc.acsp)* 

;G0 BACK FOR MORE ERROR CHECKS 

040654 

000137 

040720 


JMP 

9S 

;G0 TO 9S IF ERROR 

040660 



7S: 




040660 

004737 

050562 


JSR 

PC.CMPERRSTS 

.-CHECK ANY ERRORS NOT MASKED 

040664 

155760 



.WORD 

NDTMSK'UNS 

;MASK FOR RMER1 

040666 

000010 



.WORD 

DPE 

.-MASK FOR RMER2 

040670 

000405 



BR 

8$ 

;G0 TO 8S IF NO ERROR 

040672 

000240 



NOP 


.-RETURN HERE IF ERROR 

040674 

104000 



EMT 


.-ERROR 0 DEFINED BY CMPERRSTS SUBROUTINE 

040676 

004736 



JSR 

pc.a(SP)+ 

;G0 BACK FOR MORE ERROR CHECKS 

040700 

000137 

040720 


JMP 

9S 

;G0 TO 9S IF ERROR 

040704 



8$: 




040704 

004737 

044416 


JSR 

PC.SECERR 

;G0 CHECK FOR SECONDARY ERRORS 

040710 

000403 



BR 

9S 

;G0 TO 9* IF NO ERROR 

040712 

000240 



NOP 


.-RETURN HERE IF ERROR 

040714 

104000 



EMT 


.-ERROR 0 DEFINED BY SECERR SUBROUTINE 

040716 

004736 



JSR 

pc.acsp)+ 

;G0 BACK FOR MORE ERROR CHECKS 

040720 



9S: 





2267 

2268 
2269 


040720 

040720 

040722 

040724 

040730 

040734 

040740 

2270 

2271 040746 
040752 


000004 

000240 

012706 

013700 

013701 

012737 

004737 

054130 


;;*************************************************************** 
;*TEST 67 SEARCH AT OFFSET 

;;*************************************************************** 

TST67: 

SCOPE .-SCOPE CALL 


001100 

001276 

001466 

000067 001226 
041532 


SCOPE 

NOP 

MOV 

NOV 

MOV 

MOV 

JSR 

.WORD 


04Q754 000404 
040756 000240 


040756 000240 
Q4076Q 104000 
040762 000137 041256 

2272 040766 

2273 040766 012737 

2274 040774 012737 

2275 041002 012737 010000 

2276 041010 012737 000015 

2277 041016 012702 001545 


001446 

001420 

001444 

001412 


’278 041022 112722 
?279 041026 112722 


MOV 

MOV 

MOV 

MOV 

MOV 

MOVB 

M0V8 


.-START OF TEST 

fSTACK.SP .-INITIALIZE STACK POINTER 

S8ASE.R0 ;R0 = UNIBUS ADDRESS 

TST6UE.R1 ;<R1) = DEVICE BEING TESTED 

#67.$TESTN .-.-SET TEST NUMBER IN APT MAIL BOX 

PC.TSTPRP .-PREPARE DEVICE FOR TEST 

054130 .-TASK DESCRIPTOR AS FOLLOWS: 

.‘CLEAR CONTROLLER t SELECT DEVICE 
.-VERIFY CONTROLLER CLEAR OPERATION 
.-PACK ACKNOWLEDGE IF VOLUME NOT VALID 
.-VERIFY PACK ACKNOWLEDGE 
.-RECALIBRATE IF "SKr* OR PIP" IS SET 
.‘VERIFY RECALIBRATION 
1$ ;G0 TO IS IF NO ERROR 

.-RETURN HERE IF ERROR 
.-ERROR » DEFINED BY TSTPRP SUBROUTINE 
9$ ;G0 TO 9$ IF ERROR 

fO.RMDCO .-CYLINDER - 0 

fO.RMDAO .-TRACK = 0. SECTOR = 0 

#FMT16,RM0F0 : 16 BIT FORMAT 

#0FFSET!G0.RMCSl6 ; OFF SET COMMAND 

#PUTINX.R2 .’SETUP REGISTER INDEX TABLE 

#RMDA.(R2)* .-FOR SEEK TO CYLINDER 0 

#RNDC.(R2>* 


IS SET 
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2280 

041032 

112722 

000032 



M0V8 

#RKOf .(R2)+ 


2281 

041036 

112722 

000000 



M0V8 

#RMCS1,(R2>* 


2282 

041042 

112722 

000200 



MOVB 

#200. (R2H 


2283 

041046 

004737 

043016 



JSR 

PC. PUT 

;< 


041052 

000404 




BR 

2* 

; 


041054 

000240 




NOP 


; 


041056 

104000 




EMT 


; 


041060 

000137 

041256 



JMP 

9$ 

; 

2284 

041064 




2$: 




2285 

041064 

004737 

042462 



JSR 

PC.GETSTS 

• 

• 

2286 

041070 

004737 

043370 



JSR 

PC.TIMOUT 


2287 

041074 




3f: 




2288 

041074 

112737 

000000 

001545 


MOVB 

#RMCS1 .PUTINX 

• 

0 

2289 

041102 

112737 

000200 

001546 


MOVB 

#200,PUTINX+1 


2290 

041110 

012737 

000031 

001412 


MOV 

#SEARCH ! G0.RMCS1 0 

2291 

041116 

004737 

043016 



JSR 

PC. PUT 

; 


041122 

000404 




BR 

4$ 

; 


041124 

000240 




NOP 


; 


041126 

104000 




EMT 


; 


041130 

000137 

041256 



JMP 

9$ 

; 

2292 

041134 




4$: 




2293 

041134 

004737 

043370 



JSR 

PC.TIMOUT 

; 

2294 









2295 

041140 

004737 

042546 



JSR 

PC. GET 

• 


041144 

000404 




BR 

5$ 

0 


041146 

000240 




NOP 


; 


041150 

104000 




EMT 


• 


041152 

000137 

041256 



JMP 

9$ 

• 

0 

2296 

041156 




5$: 




2297 

041156 

004737 

043564 



JSR 

PC. PRIERR 



041162 

000405 




BR 

6S 



041164 

000240 




NOP 




041166 

104000 




EMT 




041170 

004736 




JSR 

pc.a(sp)* 



041172 

000137 

041256 



JMP 

9$ 


2298 

041176 




61: 




2299 

041176 

004737 

056624 



JSR 

PC, SCHSTS 



041202 

000405 




BR 

7$ 



041204 

000240 




NOP 




041206 

104C00 




EMT 




041210 

004736 




JSR 

pc.acsp)* 



041212 

000137 

041256 



JMP 

9$ 


2300 

041216 




7S: 




2301 

041216 

004737 

050562 



JSR 

PC. CMPERRSTS 



041222 

115760 




.WORD 

NDTMSK 



041224 

000010 




.WORD 

DPE 



041226 

000405 




BR 

8$ 



041230 

000240 




NOP 




041232 

104000 




EMT 




041234 

004736 




JSR 

PC.a(SPH 



041236 

000137 

041256 



JMP 

9$ 


2302 

041242 




3$: 




2303 

041242 

004737 

044416 



JSR 

PC. SECERR 



041246 

000403 




BR 

9$ 



041250 

000240 




NOP 




041252 

104000 




EMT 




041254 

004736 




JSR 

pc,a(sp>+ 



SEQ 0170 


TO 9$ IF ERROR 
.•SETUP FOR STATUS FETCH 


.-LOAD REGISTER INDEX TABLE 

.‘STORE SEARCH COMMAND 
GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
GO TO 4$ IF NO ERROR 
RETURN HERE IF ERROR 
ERROR # DEFINED BY PUT SUBROUTINE 
GO TO 9$ IF ERROR 

WAIT FOR SEARCH TO COMPLETE 

GO REAU REGISTER(S) WITH GET SUBROUTINE 

GO TO 5$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR M DEFINED B\ GET SUBROUTINE 

GO TO 9$ IF ERROR 

GO CHECK FOR PRIMARY ERRORS 

GO TO 6$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PRIERR SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 9S IF ERROR 

GO VERIFY SEARCH OPERATION 

GO TO 7S IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY SCHSTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 9$ IF ERROR 

CHECK ANY ERRORS NOT MASKED 

MASK FOR RMZR1 

MASK FOR RMER2 

GO TO 8S IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY CMPERRSTS SUBROUTINE 

GO BACK FOR MORE ERROR CHECKS 

GO TO 9$ IF ERROR 

GO CHECK FOR SECONDARY ERRORS 

GO TO 9$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR # DEFINED BY SECERR SUBROUTINE 

GO BACK FOR 30RE ERROR CHECKS 
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2304 041256 


9S: 
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END OF SUB-PASS ROUTINE 

1 .S0TTL END OF SUB-PASS ROUTINE 


SEO 0172 


THIS IS THE END OF SUB-PASS ROUTINE. THIS ROUTINE IS USED TO 
TERMINATE THE OPERATION OF THE CURRENT DEVICE UNDER TEST AND 
SELECT THE NEXT DEVICE FOR TEST. IF THERE ARE NO MORE DEVICES 
TO TEST, EXIT IS MADE TO 'SEOP’ ROUTINE. OTHERWISE, RETURN 
IS MADE TO 'READY ’ ROUTINE. 


041256 000004 
041260 000240 
041262 013700 001466 
041266 062700 000002 
041272 010037 001466 
041276 005710 
041300 001402 
041302 000137 007574 
041306 012737 001470 001466 


SEO SP: SCOPE 
NOP 
MOV 
ADD 
MOV 
TST 
8E0 
JMP 

IS: MOV 


TSTQUE,RO 
02 . RO 
RP.TSTQUE 
(R6> 

IS 

READY 

#TSTQUE*2, TSTQUE 


;GET POINTER TO TSTQUE 
.•ADJUST POINTER TO NEXT DEVICE 
.-SAVE POINTER TO TSTQUE 
;ANY MORE DEVICES FOR TEST ? 

'BR IF NO 

•YES. JUMP TO 'READY' ROUTINE 

^INITIALIZE POINTER TO FIRST DEVICE IN 
.•TEST QUE TABLE 


.S8TTL END OF PASS ROUTINE 


041314 

041314 

041316 

041322 

041326 

041332 

041340 

041342 

041344 

041346 

041350 

041352 

041354 

041360 

041400 

041400 

041404 

041406 

041412 

041414 

041420 

041464 

041464 


000240 

005037 001116 

005037 001206 

005237 001230 

042737 100000 001230 

005327 

000001 

003066 

012737 

000001 

041342 

104401 041362 
000407 


013746 001230 
104405 

005737 001126 
001431 

104401 041422 
000421 


013746 001126 


; ; ********************* t* ******* ft ****** ** ************************ 

.-•INCREMENT THE PASS NUMBER (SPASS) 

.-•TYPE "END PASS #XXXXX TOTAL NUMBER OF ERRORS SINCE LAST REPORT YYYYY" 
.-•WHERE XXXXX AND YYYYY ARE DECIMAL NUMBERS 
.-•IF THERES A MONITOR GO TO IT 
.-•IF THERE ISN'T JUMP TO READY 

SEOP: 


CLR 

STSTNM 

.-.-ZERO THE TEST NUMBER 

CLR 

STIMES 

;,*ZERO THE NUMBER OF ITERATIONS 

INC 

SPASS 

;; INCREMENT THE PASS NUMBER 

eic 

#100000. SPASS 

;; DON'T ALLOW A NEG. NUMBER 

DEC 

SEOPCT : .WORD 

(PC)* 

1 

.-.-LOOP? 

BGT 

SDOAGN 

;;YES 

MOV 

SENDCT : .WORD 
SEOPCT 

(PCH.a(PC)* 

; .-RESTORE COUNTER 

TYPE 

,65S 

.-.-TYPE ASCIZ STRING 

BR 

64S 

;;GET OVER THE ASCIZ 

;;65S: .ASCIZ 
64S: 

<12><15>/END PASS #/ | 

i 

MOV 

SPASS.-(SP) 

.-.-SAVE SPASS FOR TYPEOUT 


;;67S: 

66S: 


TYPDS 

TST 

BEQ 

TYPE 

BR 

.ASCIZ 


TYPDS 

CLR 


SERTTL 

SGT42P 

,67S 

66S 


TYPE PASS NUMBER 

GO TYPE— DECIMAL ASCII WITH SIGN 
SEE IF ANY ERRORS THIS PASS 
BR IF NO ERRORS TO REPORT 
TYPE ASCIZ STRING 
GET OVER THE ASCIZ 


TOTAL ERRORS SINCE LAST REPORT / 


SERTTL, -<SP> 


SAVE SERTTL FOR TYPEOUT 
TOTAL NUMBER OF ERRORS 
GO TYPE— DECIMAL ASCII WITH SIGN 
CLEAR ERROR TOTAL 


041470 104405 
041472 005037 001126 


SERTTL 



£ H 


SEO 0173 


;;TY PE CARRIAGE RETURN, LINE FEED 
;;GET MONITOR ADDRESS 
;;BRANCH IF NO MONITOR 
;; CLEAR THE WORLD 
; ; GO TO MONITOR 
; ;SAVE ROOM 
;;FOR 
; ; ACT1 1 

; .-RETURN 

;;NULL CHARACTER STRING 


J 
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f u 


SEO 0174 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 
3? 

33 

34 


.S8TTL TEST PREPARATION MODULE 

THIS MODULE PREPARES THE SUBSYSTEM FOR THE EXECUTION OF A TEST, 
REPORTING AN ERROR TO THE USER IF AN ERROR IS DETECTED. THE USER 
SPECIFIES TASKS TO BE PERFORMED, WHICH THE MODULE EXECUTES 
USING SUBROUTINES. 


CALL: 


JSR 

.WORD 

BR 

NOP 

ERROR 


PC.TSTPRP 
NNF 

?? 


TASK/VERIFY DESCRIPTOR 
RETURN HERE IF NO ERROR 
RETURN HERE IF ERROR 
ERROR DEFINED BY MODULE 


TASK/VERIFY DESCRIPTOR 

BIT 15 = 1 SELECT DEVICE AND VERIFY DEVICE IS WAIL ABLE 


BIT 14 = 1 
BIT 13 
BIT 12 = 1 


BIT 11 
BIT 10 
BIT 9 


BIT 8 
BIT 7 
BIT 6 


BIT 

BIT 

BIT 


5 

4 

3 


= 1 


CLEAR CONTROLLER AND SELECT DEVICE 
(RESERVED FOR DRIVE CL-AR) 

PACK ACKNOWLEDGE If VO t UME NOT VALID 

RECALIBRATE IF POSITIONING IN PROGRESS OR SKI ERROR 
RECALIBRATE DRIVE 


VERIFY CONTROLLER CLEAR OPERATION 

(RESERVED FOR DRIVE CLEAR) 

VERIFY PACK ACKNOWLEDGE 
VERIFY RECALIBRATION 


BIT 2 


35 





BIT 1 


36 





BIT 0 


37 







38 041532 




TSTPRP: 



39 







40 




.'STORE 

TASK DESCRIPTOR AND 

41 041532 

017637 

000000 

042456 


MOV 

8(SP) ,39$ 

42 041540 

062716 

000006 



ADD 

#6, (SP) 

43 041544 

105076 

000000 



CLR8 

8(SP) 

44 041550 

162716 

000004 



SUB 

#4,(SP) 

45 







46 041554 

004737 

042462 



JSR 

PC.GETSTS 

47 041560 

004737 

042546 



JSR 

PC. GET 

48 041564 

000411 




BR 

2$ 

49 041566 

000401 




BR 

IS 

50 041570 





.WORD 

0 

51 041572 

062716 

000004 


IS: 

ADD 

#4,(SP) 

52 041576 

113776 

041570 

000000 


M0V8 

is-2.a(SP) 

53 041604 

54 

000137 

042446 



JMP 

37S 

55 041610 

013737 

001400 

042460 

2$: 

MOV 

RMER2I .40$ 


56 

57 


STORE DESCRIPTOR 

MOVE SP TO USERS ERROR CALL 

CLEAR ERROR CALL 

MOVE SP TO NO ERROR RETURN 

SETUP TO READ ALL REGISTERS 
GET RMER2 

BR IF NO ERROR DETECTED 

GET OVER ERROR NUMBER 

ERROR DEFINED BY GET SUBROUTINE 

XFER ERROR TO USER AND 

GET ERROR NUMBER. 


;GET RMER2 AND SAVE FOR LATER 

>***********t******************t******************************** 
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SEO 


58 

59 041616 

60 041622 

61 


62 

63 

64 

65 

66 

67 

68 


041624 

041630 

041632 

041634 

041636 

041642 

041650 


69 

70 

71 

72 04(654 


005737 

100014 

004737 

000411 

000401 

000000 

062716 

113776 

000137 


042456 

050774 


000004 

041634 

042446 


.•SELECT DEVICE AND VERIFY DEVICE AVAILABLE IF GIT 15 SET IN TASK 
TST 39$ ; SELECT DEVICE?? 

BPL 4$ ;N0! ! 


000000 


3$: 


JSR 

BR 

BR 

.WORD 

ADD 

NOVB 

JMP 


PC.DEVSEL 

4$ 

3$ 

0 

#4. (SP) 

3$-2,8<SP) 

37$ 


;S0 SELECT DEVICE 
;N0 ERROR - CONTINUE 

.•ERROR NUMBER FROM DEVSEL 
.■TRANSFER ERROR TO USER 


.‘CLEAR CONTROLLER IF BIT 14 IS SET IN TASK 

4$: 


73 041654 

032737 

040000 

042456 


BIT 

«8IT14.39$ 

74 041662 

75 

001451 




BEQ 

13$ 

76 041664 

004737 

052466 



JSR 

PC. CNTCLR 

77 041670 

000411 




BR 

7$ 

78 041672 

000401 




BR 

6$ 

79 041674 

000000 



5$: 

.WORD 

0 

80 041676 

062716 

00C004 


6$: 

ADD 

#4, (SP) 

81 041702 

113776 

041674 

000000 


NOVB 

5S.8(SP> 

82 041710 

C00137 

042446 



JMP 

37l 


.•CLEAR CONTROLLER?? 

;N0! ! 

;G0 CLEAR CONTROLLER 
.‘CONTINUE - NO ERROR 

; ERROR NUMBER FROM CNTCLR 
.‘TRANSFER ERROR TO USER 


83 

84 

85 

86 041714 

87 041714 

88 041722 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 


041724 

041730 

041732 

041734 

041736 

041742 

041750 

04175*. 

041760 


032737 

001431 

004737 

000411 

000401 

000000 

062716 

113776 

000137 

004737 

000412 


000100 

042546 


000004 

041734 

042446 

052604 


042456 


; VERIFY CONTROLLER CLEAR IF B1T6 SET IN TASK 

H: 

BIT JBI T6,39$ ; VERIFY?? 

BEQ 13$ ;N0! • 


000000 


8 $: 

9$: 


10 $: 


JSR 

BR 

BR 

.WORD 

ADD 

NOVB 

JMP 

JSR 
BR 


PC.GET 

ioi 

9$ 

0 

#4,<SP> 

8$.8<SP> 

37i 

PC.CLRSTS 
13i 


100 041762 

000401 




BR 

12$ 

101 041764 

000000 



11$: 

.WORD 

0 

102 041766 

005726 



12$: 

TST 

<SP) + 

103 041770 

062716 

000004 



ADD 

#4. (SP) 

104 041774 

113776 

041764 

000000 


NOVB 

ni.a(SP) 

105 042002 

000137 

042446 



JMP 

37$ 

106 







107 




;;****• 


»**•»**•**** 

108 




.'EXECUTE PACK ACKNOWLEDGE 

109 




.-NOT VALID 


110 042006 




13$: 



111 042006 

032737 

010000 

042456 


BIT 

(FBI T1 2, 39$ 

112 042014 

001501 




BEQ 

25$ 

113 







114 042016 

004737 

042546 



JSR 

PC.GET 


;G0 GET STATUS 

;N0 ERROR GETTING STATUS 

.’ERROR FROM GETTING STATUS 
.•TRANSFER ERROR TO USER 


;G0 VERIFY STATUS CLEAR 
;N0 ERROR IN CLEAR 

.•ERROR IN STATUS CLEAR 
.•STRIP RETURN ADDRESS TO 
.‘SUBROUTINE AND TRANSFER 
.•ERROR TO USER 


.‘PACK ACKNOWLEDGE?? 

; NO ! ! 
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115 042022 

1 16 042024 
H7 042026 
1i» 2^030 

119 042034 

120 042042 

121 

122 042046 

123 042054 

124 

125 042056 

126 042064 

127 042072 

128 042100 

129 042104 

130 042106 

131 042110 

132 042112 

133 042116 

134 042124 

135 

136 042126 

137 

138 

139 

140 042132 

141 042140 

142 

143 042142 

144 042146 

145 042150 

146 042152 

147 042154 

148 042160 

149 042166 

150 

151 042170 

152 042174 

153 042176 

154 042200 

155 042202 

156 042204 

157 0*2210 

158 042216 

159 

160 
161 
162 

163 

164 042220 

165 042220 

166 042226 

167 042230 

168 042236 

169 

170 042240 

171 042244 


000411 

000401 

000000 

062716 

113776 

000137 

032737 

001061 

012737 

112737 

112737 

004737 

000410 

000401 

OOOOOO 

062716 

113776 

000550 


000004 

042026 

042446 

000100 


000023 

OOOOOO 

000200 

043016 


000004 


004737 043370 


032737 

001427 

004737 

000410 

000401 

OOOOOO 

062716 

113776 

000527 

004737 

000411 

000401 

OOOOOO 

005726 

062716 

113776 

000513 




BR 

16$ 




BR 

15$ 



14$: 

.WORD 

0 



15$: 

ADD 

#4. CSP) 

• 1 

OOOOOO 


MOVB 

ni.a(SP) 




JMP 

37$ 


001350 

16$' 

BIT 

m. RMDS I 

• * 



BNE 

25* 

• i 

001412 


MOV 

#PAKACK!60,RMCS10 

001545 


MOVB 

#RMCS1 .PUTINX 

0 ' 

001546 


MOVB 

#200.PUTINX*1 




JSR 

PC. PUT 




BR 

19* 

;i 



BR 

18$ 



17$: 

.WORD 

0 

; 


18$: 

ADD 

#4, (SP) 

• 

0 

OOOOOO 


Hove 

i7$.acsp> 




BR 

37$ 



19$: 

JSR 

PC.TIMOUT 

0 


: i * 


.'LOAD PACK ACK COMMAND 




•VERIFY PACK ACKNOWLEDGE ! 

000020 

042456 


BIT 

#81 T4,39$ 



BED 

25$ 

042546 



JSR 

PC. GET 

22* 



BR 




BR 

21$ 



20$: 

.WORD 

0 

000004 


21$: 

ADD 

#4. (SP) 

042152 

OOOOOO 


MOVB 

20$.a<sp> 



BR 

37$ 

053464 


22$: 

JSR 

BR 

PC.ACKSTS 

25* 




BR 

24$ 



23$: 

.WORD 

0 



24$; 

TST 

<sp;* 

000004 


ADD 

#4,(SP) 

23*.a<SP) 

042200 

OOOOOO 


MOVB 

• • ***$ 

BR 

37$ 


;UAIT FOR COMMAND TO COMPLETE 


.'VERIFY PACK ACKNOWLEDGE?? 

.'NO.*! 

;G0 GET STATUS 

;N0 ERROR GETTING STATUS 

.'ERROR FROM GET SUB 
; TRANSFER ERROR TO USER 


;G0 CHECK ACKNOWLEDGE 
;N0 ERROR 

.'PACK ACKNOWLEDGE ERROR 
; STRIP RETURN TO SUB AND 
.'TRANSFER ERROR TO USER 


.'RECALIBRATE DRIVE IF BIT 11 IS SET IN TASK AND ••SKI" IS SET 
;0R ’PIP" IS ACTIVE. 

; RE CALIBRATE DRIVE IF BIT 10 IS SET 


032737 

001027 

002000 

042456 

BIT 

8NE 

fg!T10,39$ 

032737 

001505 

004000 

042456 

BIT 

BED 

#81 Til. 39$ 
38$ 

004737 

000410 

042546 


JSR 

BR 

PC .GET 

28* 


.'RECALIBRATE DRIVE ? 
;YES!! 

.'RECALIBRATE?? 

;N0! ! 

;G0 GET RMDS 

;N0 ERROR GETTING RMDS 


! 



I K 


SEQ 0177 


CZRNOAO RM80 FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 15-3 
TEST PREPARATION MODULE 

27f 

173 042250 000000 26$: .WORD 0 

#4. (SP) 

26i.a<sp> 

37$ 


177 


181 

182 


191 

192 

193 

194 

195 

196 

197 


200 

201 


208 


211 


219 

220 
221 


042246 

000401 




BR 

042250 

042252 

000000 

062716 

000004 


26$: 

27$: 

.WORD 

ADD 

042256 

113776 

042250 

000000 


movb 

042264 

000470 




BR 

042266 

032737 

040000 

042460 

28$: 

BIT 

042274 

001004 




BNE 

042276 

032737 

020000 

001350 


BIT 

042304 

001462 




BEQ 

042306 

012737 

000007 

001412 

29$: 

MOV 

042314 

112737 

000000 

001545 


MOVB 

042322 

112737 

000200 

001546 


MOVB 

042330 

004737 

043016 



JSR 

042334 

000410 




BR 

042336 

000401 




9R 

042340 

000000 




.WORD 

042342 

062716 

000004 


30$: 

ADD 

042346 

113776 

042340 

000000 


MOVB 

042354 

000434 




BR 

042356 

004737 

043370 


31$: 

JSR 





; VERIFY RECALJ 

042362 

032737 

000010 

042456 


BIT 

042370 

001430 




BEO 

042372 

004737 

042546 



JSR 

042376 

000410 




BR 

042400 

000401 




BR 

042402 

000000 



32$: 

.WORD 

042404 

062716 

000004 


33$: 

ADD 

042410 

113776 

042402 

000000 


MOVB 

042416 

000413 




BR 

042420 

004737 

054260 


34$: 

JSR 

042424 

000412 




BR 

042426 

■•I'T'Ii'Il 




BR 

042430 




35$: 

.WORD 

042432 

005726 



36$: 

TST 

042434 

062716 

000004 



ADD 

042440 

113776 

042430 

000000 


MOVB 

042446 

162716 

000002 


37$: 

SUB 

042452 

000240 



38$: 

NOP 

042454 

000207 




RTS 

042456 

000000 



39$: 

.WORD 

042*60 

000000 



40$: 

.WORD 


#SKI ,40$ 

29$ 

RPIP.RMDSI 
38$ 

#RE CAL ! GO , RMC S 1 0 
#RMCS1 .PUTINX ; 
#200.PUTINX*1 i 
PC. PUT ; 

31$ « 

30$ 

0 

#4, (SP) 
30$-2.a<SP> 

37$ 

PC.TIMOUT 


#8IT3.39$ 

38$ 

PC .GET 

34i 

33$ 

0 

#4, (SP) 

32i.a(SP) 

37$ 

PC.RCLSTS 

38i 

36$ 

0 

<SP) + 
#4.<SP> 

3si.a(sp) 

#2,(SP) 

PC 

0 

0 


3 SET 


ERROR FROM GET SUB 
TRANSFER ERROR TO USER 


WAS SKI SET ? 

YES, GO RECALIBRATE 
IS PIP ACTIVE?? 

NO!! 

;LOAD RECALIBRATE COMMAND 
AND REGISTER INDEX 
SET TERMINATOR 
GO ISSUE RECALIBRATE 
NO ERROR 

ERROR IN REGISTER TRANSFER 
TRANSFER ERROR TO USER 


:WAIT FOR COMPLETION 


IN TASK 

; VERIFY RECALIBRATE?? 
;N0! ! 

;G0 GET STATUS 

;N0 ERROR GETTING STATUS 

; ERROR FROM GET 
.’TRANSFER ERROR TO USER 


GO CHECK RECALIBRATE 
NO ERROR DURING RECALIBRATE 

ERROR DURING RECALIBRATE 
STRIP RETURN TO SUB AND 
TRANSFER ERROR TO USER 

MOVE SP BACK BEFORE ERROR 

RETURN TO USER 

TASK/VERIFY DESCRIPTOR 
CONTAINS RMER2 


J 14 
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1 

2 

3 

4 

5 

6 

7 

8 
9 


11 


16 


21 


.S8TTL GET STATUS SUBROUTINE 

THIS SUBROUTINE SETS UP THE “GET INDEX TABLE" AND THE “GET 
BUFFER" FOR READING ALL SUBSYSTEM REGISTERS VIA THE GET SUBROUTINE 
AND THEN RETURNS TO THE USER. 


CALL: 


JSR 


PC.GETSTS 


042462 



GETSTS: 



042462 

010046 



MOV 

RO,-(SP> 

042464 

010146 



MOV 

R1,-(SP) 

042466 

010246 



MOV 

R2,-($P) 

042470 

012700 

001516 


MOV 

AGETINX.RO 

042474 

012701 

001406 


MOV 

#RMEC2I*2,I 

042500 

012702 

000046 


MOV 

#RMEC2,R2 

042504 

110220 


2$: 

MOVB 

R2.(R0)* 

042506 

005041 



CLR 

-(R1) 

042510 

162702 

000002 

3$: 

SUB 

#2,R2 

042514 

100405 



BMI 

4$ 

042516 

022702 

000022 


CMP 

#RHDB,R2 

042522 

001370 



BNE 

2$ 

042524 

005041 



CLR 

-(R1) 

042526 

000770 



BR 

3$ 

042530 

112720 

000200 

4$: 

MOVB 

#200, (RO)* 

042534 

012602 



MOV 

(SP)*,R2 

042536 

012601 



MOV 

<SP)*. R1 

042540 

012600 



MOV 

(SP) *,R0 

042542 

000240 



NOP 


042544 

000207 



RTS 

PC 


RETURN HERE 


PUSH RO ON STACK 
PUSH R1 ON STACK 
PUSH R2 ON STACK 
RO = ADDRESS OF INDEX TABLE 
R1 = ADDRESS OF GET BUFFER 
R? = REGISTER INDE 
WRITE REGISTER INDEX IN TABLE 
CLEAR CORRESPONDING LOCATION 
DECREMENT TO NEXT INDEX 
BRANCH OUT IF DONE 
DONT WRITE RMDB INDEX 


WRITE TERMINATOR 
POP STACK INTO R2 
POP STACK INTO R1 
POP STACK INTO RO 
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SEQ 0179 


1 

2 

3 

A 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 042546 

32 042550 

33 042554 

34 042560 

35 042564 
042566 
042570 
042572 
042574 
042576 
042602 

36 042606 

37 042612 

38 042616 

39 042622 

40 042630 

41 042636 

42 042644 

43 0* 2652 

44 042660 

45 042662 

46 042670 

47 042676 

48 042700 

49 042702 

50 042704 

51 042706 


000240 

062716 

105076 

162716 

010046 

010146 

010246 

010346 

010446 

013746 

013746 

013700 

012702 

012704 

012737 

012737 

016037 

016037 

032737 

001007 

062766 

112776 

000423 

105714 

100433 

111401 

042701 


000004 

000000 

000004 


001276 

001336 

001516 

042730 

000300 

000010 

000000 

004000 

000004 
0001 12 


177700 


.SBTTL GET SUBROUTINE 

THIS SUBROUTINE READS THE REGISTERS WHICH ARE LISTED IN THE 
“GET INDEX TABLE" AND STORES THEIR VALUES IN THE CORRESPONDING 
LOCATION IN THE “GET REGISTER BUFFER". FOR EXAMPLE, AN 
ENTRY OF 04 IN THE TABLE WILL CAUSE THE SUBROUTINE TO 
READ 'MBA*' AND STORE ITS CONTENTS AT THE LOCATION IN 
THE BUFFER ASSIGNED TO THAT REGISTER. THE NUMBER OF 
REGISTERS TO BE READ IS VARIABLE FROM 1 TO 22; THE INDEX 
TABLE MUST BE TERMINATED WITH A CONTROL BYTE (200) 

WHICH SHOULD FOLLOW THE LAST ENTRY. 

SUBROUTINE CALL: 

(1) “GET INDEX TABLE" HAS BEEN LOADED WITH REGISTER INDEX 
VALUES AND TERMINATED WITH A CONTROL BYTE 

(2) "GET INPUT BUFFER" IS AVAILABLE FOR USE. (NOTE THAT 
UNUSED LOCATIONS, I. E., ENTRIES IN BUFFER CORRESPONDING 
TO REGISTERS NOT READ, ARE NOT CHANGED.) 

(3) JSR PC, GET 

BR ??? RETURN HERE IF NO ERROR FOUND 

NOP RETURN HERE IF ANY ERROR FOUND 

ERROR SUB DEFINES ERROR NUMBER 

• • • 

RO = REGISTER BASE ADDRESS 
R1 = REGISTER ADDRESS 
R 2 = BUFFER BASE ADDRESS 
R3 = BUFFER ADDRESS 
R4 = POINTER TO REGISTER INDEX 


000004 

000006 

001174 

001176 

001176 

000016 

000016 


#4, (SP) 

8(SP) 

#4, (SP) 

RO,-(SP) 

RI.-(SP) 

R2.-(SP) 

R3,-(SP) 

R4.-(SP) 

ERRVEC.-(SP) 

fcRRVEC+2.-(SP) 

SBASE.RO 

#GETBUF.R2 

#GETINX.R4 

#5$.ERRVEC 

#PR6.ERRVEC*2 

RMCS<?(RO),STNPO 

RMCSKROJ.STMPI 

MA.STMPI 

3$ 

#4.16(SP) 

#ll2,816(SP) 

7 % 

(R4) 

9$ 

(R4).R1 

#*C1DXMSK,R1 


; CLEAR ERROR NUMBER IN USER'S 
.-ERROR CALL 

;;PUSH RO ON STACK 
;;PUSH R1 ON STACK 
;;PUSH R2 ON STACK 
;;PUSH R3 ON STACK 
;;PUSH R4 ON STACK 
.’.‘PUSH ERRVEC ON STACK 

.‘.‘PUSH ERRVEC *2 ON STACK 


.•SETUP FOR TIMEOUT 

;GET ’NED" STATUS 
.‘GET *t>VA" STATUS 
.‘DEVICE AVAILABLE?? 

•YES' ' 

•WRITE ERROR NUMBER IN USER'S 
.‘ERROR CALL 

.‘DONE?? 

‘YES' 1 

;R1 =* REGISTER ADDRESS 
.‘CLEAR ANY SIGN EXTENSION 




L U 



SEQ 0180 


;R3 = STORAGE ADDRESS FOR REGISTER 
; CLEAR ANY SIGN EXTENSION 

.-READ REGISTER 


.•RESTORE STACK 
; WRITE ERROR NUMBER IN 
.•USER’S ERROR CALL 

.-DONE CLEARING?? 

*YES' 1 

•CLEAR REMAINING STORAGE 
.•LOCATIONS 


;;POP STACK INTO ERRVEC+2 
.-POP STACK INTO ERRVEC 
.-POP STACK INTO R4 
.-POP STACK INTO R3 
;POP STACK INTO R 2 
;POP STACK INTO R1 
;POP STACK INTO RO 
RETURN 



— »O«000^JO'-n-*'(-rtrV>— »0'000'NjOU1.f'L*r\J— ‘o >0 00 O ^ o >0 00 ">J O \-n ■t' L*fv> -'O'OODNOv^f'WM 
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M 14 


SEQ 0181 


1 .SBTTL PUT SUBROUTINE 

THIS SUBROUTINE WRITES THE REGISTERS WHICH ARE LISTED IN THE 
“PUT INDEX TABLE" WITH THE CONTENTS OF THE CORRESPONDING 
LOCATION IN THE ’PUT REGISTER BUFFER". THE NUMBER OF 
REGISTERS WRITTEN IS VARIABLE; THE INDEX TABLE MUST 
BE TERMINATED WITH A CONTROL BYTE (200) WHICH SHOULD 
FOLLOW THE LAST ENTRY. 

SUBROUTINE CALL: 

(1) 'PUT INDEX TABLE" HAS BEEN LOADED WITH INDEX VALUES 
OF REGISTERS TO BE WRITTEN. 

(2) ’PUT REGISTER BUFFER" CONTAINS CONTENTS OF EACH 
REGISTER TO BE WRITTEN. 


JSR 

PC. PUT 



BR 

??? 

RETURN HERE 

IF NO ERROR FOUND 

NOP 


RETURN HERE 

IF ANY ERROR FOUND 

ERROR 

??? 


SUB DEFINES 

ERROR NUMBER 


RO = REGISTER BASE ADDRESS 
R1 = REGISTER ADDRESS 
R? = BUFFER BASE ADDRESS 
R3 = BUFFER ADDRESS 
R4 = POINTER TO REGISTER INDEX 


043016 

000240 



PUT: 

NOP 



043020 

010046 




MOV 

RO. -(SP) 

;;PUSH RO ON STACK 

043022 

010146 




MOV 

RI.-(SP) 

;;PUSH R1 ON STACK 

043024 

010246 




MOV 

R2.-CSP) 

;;PUSH R2 ON STACK 

043026 

010346 




MOV 

R3.-(SP) 

;;PUSH R3 ON STACK 

043030 

010446 




MOV 

R4.-CSP) 

;;PUSH R4 ON STACK 

043032 

013746 




MOV 

ERRVEC.-(SP) 

;;PUSH ERRVEC ON STACK 

043036 

013746 

000006 



MOV 

ERRVEC*2,-(SP) 

;;PUSH ERRVEC+2 ON STACK 

043042 

013700 

001276 



MOV 

S6ASE.R0 


043046 

012702 

001412 



MOV 

#PUTBUF,R2 


043052 

012704 

001545 



MOV 

RPUTINX.R4 


043056 

012737 

043176 

000004 


MOV 

fSS.ERRVEC 

.•SETUP FOR TIMEOUT 

043064 

012737 

000300 

000006 


MOV 

#PR6.ERRVEC+2 


043072 

016037 

000010 

001174 

1$: 

MOV 

RMCSZ(RO) .STMPO 

.‘GET *>IED" STATUS 

043100 

016037 


001176 


MOV 

RMCS1 (RO).STMPI 

.‘GET "DVA" STATUS 

043106 

032737 

004000 

001176 


BIT 

#DVA,$TMP1 

.‘DEVICE AVAILABLE?? 

043114 

001007 




BNE 

3J 

.‘YES!! 

043116 

062766 

000004 

000016 


ADD 

#4.16(SP) 

.'WRITE ERROR NUMBER IN 

043124 

112776 

000112 

000016 


M0V8 

#ll2.Bl6(SP) 

.USER'S ERROR CALL 

043132 

000430 




BR 

7S 


043134 

105714 



3$: 

TST8 

(R4) 

.-DONE?? 

043136 

100431 




BMI 

9$ 

;VES!! 

043140 

111401 




MOVB 

(R4),R1 

;R1 = REGISTER ADDRESS 

043142 

042701 

177700 



BIC 

#*CIDXMSK,R1 

.CLEAR ANY SIGN EXTENSION 

043146 

060001 




ADD 

R0.R1 


043150 

111403 




MOVB 

(R4).R3 

;R3 = STORAGE ADDRESS 

043152 

042703 

177700 



BIC 

#*CIDXMSK,R3 

.CLEAR ANY SIGN EXTENSION 

043156 

060203 




ADD 

R2.R3 


043160 

011311 




MOV 

<R$).(R1) 

.‘WRITE REGISTER 

043162 

122714 

000032 



CMPB 

#RM0F.(R4) 

.‘WAS RMOF JUST LOADED ? 
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N H 


SEQ 0182 


52 

043166 

001001 




BNE 

4$ 

BR IF NO 

53 

043170 

011311 




MOV 

(R3MR1) 

WRITE RMOF AGAIN, TO ENSURE 16 BIT FORMAT 
IS SET BEFORE , *SSEr’ BIT IS SET. 

54 








55 

043172 

105724 



4$: 

TSTB 

<R4) + 

ADJUST REGISTER POINTER 

56 

57 

58 

043174 

000757 




BR 

3$ 


043176 

022626 



5$: 

CMP 

(SP) + .(SPH 

ADJUST STACK 

59 

043200 

062766 

000004 

000016 


ADD 

#4,16(SP> 

WRITE ERROR NUMBER IN 

60 

043206 

112776 

000007 

000016 


MOVB 

#7.ai6(SP) 

USER'S ERROR CALL 

61 

62 

63 

043214 

162766 

000002 

000016 

7$: 

SUB 

#2,16(SP> 


043222 

043222 

012637 

000006 


9$: 

MOV 

(SPJ+.ERRVEC+2 

;;f>OP STACK INTO ERRVEC *2 



043226 

012637 

000004 



MOV 

(SPJ+, ERRVEC 

;POP STACK INTO ERRVEC 


043232 

012604 




MOV 

(SP)*,R4 

;POP STACK INTO R4 


043234 

012603 




MOV 

<SP)*,R3 

;POP STACK INTO R3 


043236 

012602 




MOV 

(SP)+. R2 

;POP STACK INTO R2 


043240 

012601 




MOV 

(SP)+. R1 

;POP STACK INTO R1 


043242 

012600 




MOV 

<SP)*,RO 

;POP STACK INTO RO 

64 

043244 

000207 




RTS 

PC 

RETURN 



SEQ 0 ; 


;;PUSH ERRVEC ON STACK 

; ; PUSH ERRVEC+2 ON STACK 
;SET UP FOR BUS TIMEOUT 

;LOAD ADDRESSES FOR KW11-L 

.•TEST FOR KW11-L PRESENT 
;YES - KW11-L IS PRESENT 
.•RESTORE SP 

.-SET UP FOR BUS TIMEOUT 

.-LOAD ADDRESSES FOR KW11-P CLOCK 

;TEST FOR KW11-P PRESENT 
;YES - KW11-P IS PRESENT 
.’RESTORE SP 
;MOVE RETURN TO ERROR 

;;PO P STACK INTO ERRVEC+2 
; ;POP STACK INTO ERRVEC 
.•RETURN TO USER 


L 



SEQ 0184 
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1 

2 

3 

4 

5 

6 

7 

8 

9 043370 
043370 
043372 
043374 
043400 

10 043404 

11 043412 

12 043420 

13 043424 

14 043430 

15 

16 043434 

17 043440 

18 043444 

19 043450 

20 043452 

21 043460 

22 043462 

23 043464 

24 043466 

25 

26 043470 

27 043472 

28 043500 

29 043506 

30 

31 043514 
043514 
043520 
043524 
043526 

32 043530 

33 

34 

35 

36 

37 

38 043532 
043532 

39 043534 

40 043540 

41 043544 

42 043546 

43 043554 

44 043560 

45 043562 


010046 

010246 

013746 

013746 

012737 

012737 

013700 

012702 

004737 

016046 

042716 

022726 

001421 

032777 

001765 

005302 

001361 

000412 

022626 

062766 

112776 

162766 


012637 

012637 

012602 

012600 

000207 


.SBTTL TIMEOUT SUBROUTINE 

; THIS SUBROUTINE WAITS FOR ROY = 1 AND GO = 0 OR FOR A TIMEOUT 
.-GREATER THAN APPROX. 500 MSEC AND THEN RETURNS. 


TIMOUT: 


000004 

000006 


000004 

C00006 

043470 

000300 

001276 

000036 

043532 

000000 

177576 

000200 


000200 136032 


000004 

000007 

000002 


000006 

000004 


000012 

000012 

000012 


JSR 

??? 

PC. TIMOUT 

RETURN HERE 

MOV 

RO. -(SP) 

.'.'PUSH RG ON STACK 

MOV 

R2.-(SP) 

.'.'PUSH R2 ON STACK 

NOV 

ERRVEC, -(SP) 

..•PUSH ERRVEC ON STACK 

MOV 

ERRVEC+2,-(SP) 

; : PUSH ERRVEC +2 ON STACK 

MOV 

MOV 

#3$, ERRVEC 
#PR6,ERRVEC+2 

.'SETUP FOR BUS TIMEOUT - 04 TRAP 

MOV 

S8ASE.R0 

,'RO-BASE ADDRESS 

MOV 

#30., R2 

;R2=NUMBER OF CLOCK CYCLES 

JSR 

PC, STIMER 

.'START CLOCK TIMER 1 

MOV 

RMCSKRO).-(SP) 

.'GET STATUS 

BIC 

#“C<RDY!GO>,(SP) 

CMP 

#RDY,(SPH 

;RDY=1.G0=0?? 

BEQ 

4$ 

; YES' 1 

BIT 

#BIT7,aCLKADR 

.•TIMER DONE?? 

BEQ 

2$ 

;N0! 

DEC 

R 2 

;DEC NUMBER OF CYCLES 

BNE 

IS 

.'CONTINUE IF NOT DONE 

;’W>Y" DID NOT SET OR “GO'* DID NOT RESEi 

,-WITHIN 500 MSEC AFTER THE COMMAND WAS ISSUED. 

BR 

4S 

CMP 

<SPH,(SP)* 

.'ADJUST STACK 

ADD 

#4,12(SP) 

.'MOVE SP TO USER'S CALL 

HOVB 

SUB 

#7,i12(SP) 

#2,12(SP) 

; WRITE ERROR NUMBER 

MOV 

( SP) ♦, ERR VEC +2 

;;POP STACK INTO ERRVEC+2 

MOV 

(SP)+, ERRVEC 

;;POP STACK INTO ERRVEC 

MOV 

(SPH.R2 

;;POP STACK INTO R2 

MOV 

<SP)*,RO 

;;POP STACK INTO RO 

RTS 

PC 

.•RETURN TO USER 


THIS ROUTINE IS USED START THE KW11-L OR THE KW11-P CLOCK. THE CLOCK 
IS STARTED TO RUN IN FLAG MODE. A CLOCK WILL BE 16.667MS FOR A 60 HZ CPU 
AND 20MS FOR A 50 HZ CPU. 


010146 

013701 001512 
020127 172540 
001003 

012761 000001 
012711 000005 

0^2601 
00Q2C7 


STIMER: 


000002 


RI.-(SP) 
CLKADR.R1 
R1 ,#17^540 

1 $ 

#1.2(R1) 


;;PUSH R1 ON STACK 
;R1-CL0CK ADDRESS 
;KW11-P CLOCK?? 
;N0! ! 

;SET COUNTER 


#BIT2!BIT0.<R1> 'START COUNTER 


<SP)*,R1 

PC 


;;POP STACK INTO R1 
.-RETURN 


SEQ 0185 
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0 15 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 043564 

40 

41 

42 043564 

43 043570 

44 043574 

45 

46 

47 043600 

48 043606 

49 043614 

50 043622 

51 043630 

52 

53 043636 

54 043640 

55 043644 

56 043652 

57 043656 


062716 

105076 

162716 


013737 

042737 

013737 

042737 

123737 

001415 

062716 

112776 

162716 

004736 


000004 

000000 

000004 


001346 

177770 

001234 

177770 

001140 


000004 

000001 

000002 


.S8TTL PRIMARY ERROR CHECK SUBROUTINE 

THE PURPOSE OF THIS SUBROUTINE IS TO VERIFY THAT STATUS IS VALID AND 
THAT FURTHER ERROR AND STATUS CHECKING SHOULD BE PERFORMED. THE 
FOLLOWING CHECKS ARE MADE: 

.CORRECT UNIT IS SELECTED. I.E., THE UNIT SELECT BITS OF RMCS2 
(BITS 0-2) EQUAL THE UNIT BEING TESTED; 

.SELECTED UNIT IS AVAILABLE, I.E.. DVA (BIT 11 OF RMCS1) IS SET 
AND NED (BIT 12 OF RMCS2) IS RESET; 

.LAST COMMAND WAS COMPLETED, I.E., THE MASSBUS CONTROLLER IS 
READY (BIT 7 OF RMCS1) AND THE GO BIT IS RESET (BIT 0 OF RMCS1) OR THE 
DRIVE READY BIT (BIT 7 OF RMDS) IS SET. 

.NO PARITY ERROR OCCURRED WHEN READING REMOTE REGISTERS, 

IE '. "SS PARITY ERROR OCCURRED WHEN WRITING REMOTE REGISTERS, 

I.E., PAR = 0, OR, PAR = DPE = 1 

THE SUBROUTINE ASSUMES THAT: 

.STATUS HAS BEEN STORED IN THE REGISTER INPUT BUFFER. 

IN PARTICULAR, RMCS1. RMCS2 AND RMDS HAVE BEEN STORED IN THEIR 
CORRESPONDING LOCATIONS OF THE ,, GET , ‘ BUFFER. 

.(SUNIT) CONTAINS THE DRIVE NUMBER 

THE SUBROUTINE IS CALLED AS FOLLOWS: 


( 1 ) 


PC.PRIERR 

777 


JSR 
BR 
NOP 
ERROR 

JSR PC,8(SP)+ 

777 


PRIERR: 


.•CLEAR USER’S ERROR CALL 
ADD #4.(SP) 

CLRB 3(SP) 

SUB #4,(SP) 


RETURN HERE IF NO ERROR 
RETURN HERE TO REPORT AN ERROR 
ERROR NUMBER DEFINED BY SUB 
GO BACK TO SUB FOR MORE ERROR CHECKS 
RETURN HERE IF NO MORE ERRORS 


MOVE (SP) TO ERROR CALL 

CLEAR ERROR NUMBER 

MOVE (SP) TO NO ERROR RETURN 


001142 

001142 

001140 

001140 

001142 


000000 


.REPORT AN ERROR IF THE WRONG UNIT IS SELECTED 


MOV 

BIC 

MOV 

BIC 

CMP8 

BEQ 

ADD 

M0V8 

SUB 

JSR 


RHCS2I,$BDDAT .-CORRECT UNIT SELECTED?? 
fCUNTMSK.SBDDAT 

SUNIT, SGDDAT .-GOOD DATA FOR TYPEOUT 

fCUNTMSK, SGDDAT 

$GDDAT,S8DDAT .-COMPARE EXPECTED AND RECEIVED 
; DRIVE NUMBERS 
; YES ! ! 


IS 

#4, (SP) 

#i,b(sp) 

#2,(SP) 

pc.a(SP)+ 


-ERROR 1 

•MOVE SP TO RETURN FOR ERROR 
; REPORT WRONG UNIT SELECTED 
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SEQ 0186 


58 045660 

59 043664 

60 045666 

61 043672 
6? 

63 

64 

65 043672 

66 043700 

67 043702 

68 043710 

69 043 7 16 

70 043724 

71 043730 

72 043736 

73 043744 

74 043746 

75 043754 

76 043762 

77 043770 

78 045776 

79 044002 

80 04^.004 

81 044C13 

82 044012 

83 044014 

84 

85 

86 044014 

87 044022 

88 044024 

89 044032 

90 044040 

91 044046 

92 044054 

93 044060 

94 044066 

95 044072 

96 044074 

97 044100 

98 044102 

99 044104 
100 


162716 000010 
000240 

000137 044406 


032737 

00104S 

013737 

052737 

013737 

062716 

112776 

032737 

001414 

013737 

013737 

042737 

112776 

162716 

H04736 

162716 

000240 

000575 


032737 

001030 

013737 

052737 

042737 

013737 

062716 

112776 

162716 

004736 

162716 

000240 

000541 


004000 001336 


001336 

004000 

001336 

000004 

000002 

010000 

001346 

001346 

010000 

000003 

000002 

000010 


001140 

001140 

001142 

000000 

001346 

001140 

001142 

001140 

000000 


001336 

000200 

160001 

001336 

00CC94 

OOOC04 

000002 

000010 


#10. (SP) 


.‘REPORT AN ERROR IF THE DEVICE 
;THE DEVICE IS NONEXISTANT 
BIT #DVA,RHCS1 I 

BNE 5$ 

NOV RNCS1I .SGDDAT 

BIS #DVA. SGDDAT 

NOV RNCS1 I, SBDDAT 

ADD #4.<SP) 

H0V8 #2,8(SP) 

BIT #NED.RMCS2I 

BEQ 2$ 

NOV RNCS2I .SGDDAT 

NOV RNCS2I .SBDDAT 

BIC #NED. SGDDAT 

NOVB #3,8 (SP) 

2$: SUB #2, (SP) 

JSR PC.i(SP)* 

SUB #10. (SP) 

NOP 

BR 10$ 


.‘RESTORE (SP) 

.‘SKIP OTHER CHECKS 


IS NOT AVAILABLE OR IF 

.‘DEVICE AVAILABLE?? 

; YES! ! 

.‘EXPECTED STATUS 

.‘RECEIVED STATUS 

; ERROR #2 
.-WAS NED SET?? 

;N0!! 

.‘EXPECTED STATUS 
.‘RECEIVED STATUS 

;YES - CHANGE cRROR NUMBER 
.-MOVE SP TO RETURN FOR ERROR 
; REPORT DEVICE NOT AVAILABLE 
.‘RESTORE (SP) 

.‘SKIP OTHER CHECKS 


000200 001336 


; REPORT AN ERROR IF NASSBUS CONTROLLER IS NOT READY 


001140 

001140 

001140 

001142 

000000 


BIT 

#RDY,RNCS1I 

.‘CONTROLLER READY?? 


BNE 

7$ 

; YES ! ! 


NOV 

BIS 

RNCS1 I. SGDDAT 
#RDY, SGDDAT 

.•EXPECTED STATUS 


BIC 

#SC ! TRC !NCPE ! GO. SGDDAT 


MOV 

ADD 

RNCS 11. SBDDAT 
#4 ,(SP) 

.•RECEIVED STATUS 


NOVB 

#4, a (SP) 

.•ERROR #4 


SUB 

#2, (SP) 

.-MOVE SP TO RETURN FOR 

ERROR 

JSR 

pc.a(sp)* 

.'REPORT CONTROLLER NOT 

READY 

SUB 

NOP 

#10. (SP) 

.•RESTORE (SP) 

BR 

10S 

.•SKIP OTHER CHECKS 



101 




.•REPORT AN ERROR IF GO IS NOT ZERO AND DRY IS NOT ONE 

102 044104 

032737 

000001 

001336 

BIT 

#G0,RMCS1I 

;G0 RESET?? 

103 044112 

001431 



BEQ 

8$ 

; YES! 1 

104 044114 

032737 

000200 

C01350 

BIT 

#DRY,RNDSI 

.•DRIVE READY?? 

105 044122 

001025 



BNE 

8$ 

; YES! ! 

106 044124 

013737 

001336 

OC1140 

NOV 

RNCS1 I. SGDDAT 

.•EXPECTED STATUS 

107 044132 

042737 

160001 

001140 

BIC 

#SC ! TRE ! NC PE ! GO. SGDDAT 

108 044140 

013737 

001336 

001142 

NOV 

RNCS1 I, SBDDAT 

.•RECEIVED STATUS 

109 044146 

062716 

000004 


ADD 

#4, (SP) 


110 04^152 

112776 

000005 

000000 

NOVB 

#5,a(SP) 

.•ERROR #5 

111 044160 

162716 

000002 


SUB 

#2, (SP) 

.-MOVE SP TO RETURN FOR ERROR 

112 044164 

004736 



JSR 

pc.a(sp)f 

.•REPORT DRIVE NOT READY 

113 044166 

162716 

0G0010 


SUB 

#10. (SP) 

.•RESTORE (SP) 

114 044172 

000240 



NOP 
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f 15 


115 

116 

117 

118 

119 

120 
121 
122 

123 

124 

125 

126 

1 27 

128 

129 

130 

131 

1 32 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 
161 


044174 

044176 


044176 

044204 

044206 

044214 

044222 

044230 

044234 

04424 

044246 

044250 

044254 

044256 

044260 


044260 

044266 

044270 

044276 

044300 

044306 

044310 

044312 

044316 

044322 

044324 

044326 

044330 

044332 

044334 

044336 

044344 

044352 

044360 

044364 

044372 

044376 

044400 

044404 

044406 

044412 

044414 


000504 


032737 

001425 

013737 

042737 

013737 

062716 

112776 

162716 

004736 

162716 

000240 

000453 


032737 

001451 

032737 

001045 

032737 

001413 

010046 

012700 

122710 

001002 

012600 

000431 

105720 

100371 

012600 

013737 

042737 

013737 

062716 

112776 

162716 

004736 

162716 

000240 

062716 

000240 

000207 


001545 

000014 


8S: 


BR 


10S 


020000 001336 

001336 001140 
160001 001140 
001336 001142 
000004 

000013 000000 

000002 

000010 


000010 001352 
000010 OOKOO 
000010 001426 


.‘REPORT AN ERROR IF THE RH CONTROLLER DETECTED BAD 
.•PARITY ON THE MASSBUS CONTRO! BUS 


9$: 


BIT 

BEQ 

nov 

BIC 

MOV 

ADD 

MOVB 

SUB 

JSR 

SUB 

NOP 

BR 


#MCPE,RMCS1I 
9$ 

RMCS1I ,$GDDAT 


PARITY ERROR ?? 
NO* * 

EXPECTED STATUS 


PinV'i ■ A . i >kn> 

#SC!TRE SMCPE !GO,$GDDAT 

RECEIVED STATUS 


RMCS1I.SBDDAT 

#4,(SP) 

#13,8(SP) 

#2.(SP) 

PC.a(SP)* 

#10, (SP) 

10 $ 


MOVE STACK TO USER'S ERROR 
ERROR #47 

MOVE SP TO RETURN FOR ERROR 
REPORT ERROR VIA USER 
RESTORE STACK 


.•REPORT AN ERROR IF THE RM80 DETECTED A CONTROL BUS PARITY ERROR 


001352 001140 
000010 001140 
001352 001142 
000004 

000050 000000 

000002 

000010 

000010 


BIT #PAR.RMER1I 

BEG 11$ 

BIT #DPE,RMER2I 

BNE 11$ 

BIT #PAR,RMER10 

BEQ 93$ 

MOV RO, -(SP) 

MOV #PUTINX,RO 

91$: CMP8 #RMER1 . (RO) 

BNE 92$ 

MOV (SP )*, RO 

BR 11$ 

92$: TST8 (R0) + 

BPL 91$ 

MOV (SP) ♦.RO 

93$: MOV RNER1I ,$GDDAT 

BIC #PAR.$GDDAT 

MOV RMER1I ,$BDDAT 

ADD #4. (SP) .‘MOVE SP 

MOVB #50,8(SP) 

SUB #2.(SP) 

JSR PC.B(SP)* 

SUB #10, (SP) 

NOP 

10$: ADD #10. (SP) 

11$: NOP 

RTS PC 


WAS THERE A PARITY ERROR?? 
NO! ! 

WAS IT THE CONTROL BUS?? 

NOT SURE!! 

DID TEST SET PAR ?? 

NO!! 

.‘PUSH RO ON STACK 
RO POINTS TO INDEX TABLE 
SEARCH TABLE FOR RMER1 

.‘POP STACK INTO RO 
PAR WAS SET BY TEST 
END OF TABLE?? 

NO!! 

.•POP STACK INTO RO 
EXPECTED STATUS 

RECEIVED STATUS 

TO USER'S ERROR CALL 

WRITE THE ERROR NUMBER 

MOVE SP TO RETURN FOR ERROR 

REPORT THE ERROR 

MOVE SP TO NO ERROR RETURN 

.•RETURN TO ERROR 
.-RETURN TO NO ERROR 


SEQ 0187 


SEQ 0188 
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1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 044416 

25 

26 

27 

28 044416 

29 044424 

30 044432 

31 044436 

32 044442 

33 

34 

35 

36 

37 

38 044446 

39 044454 

40 044456 

41 044464 

42 044472 

43 044500 

44 044504 

45 044512 

46 044516 

47 0443/0 

48 044524 

49 

50 

51 044526 

52 044534 

53 044536 

54 044544 

55 044552 

56 044556 

57 044562 


.S8TTL SECONDARY ERROR CHECK SUBROUTINE 

THE ERROR CHECK SUBROUTINE PROVIDES DETECTION OF SECONDARY ERRORS 
SUCH AS UNEXPECTED ERRORS AND UNEXPECTED REGISTER CONTENTS, THESE 
ERRORS ARE DEEMED SECONDARY IN THAT THEY ARE NOT NECESSARILY 
ASSOCIATED UITH THE OPERATION BEING PERFORMED. 

WHEN THE SUBROUTINE IDENTIFIES SUCH AN ERROR, IT MOVES THE ERROR 
NUMBER TO THE ERROR CALL IN THE TEST ROUTINE AND THEN RETURNS 
TO THE TEST ROUTINE WHICH MAKES THE ERROR CALL. AFTER THE TEST ROUTINE 
MAKES THE ERROR CALL, IT RETURNS TO THE SUBROUTINE WHICH THEN LOOKS FOR 
OTHER ERRORS. WHEN ALL ERRORS HAVE BEEN REPORTED, THE SUBROUTINE 
RETURNS TO THE ADDRESS FOLLOWING THE SUBROUTINE CALL. 


CALL: 


JSR 

BR 

NOP 

ERROR 

JSR 


PC.SECERR 


pc.a<sp>* 


RETURN HERE IF NO ERROR 
RETURN HERE TO REPORT AN ERROR 
ERROR NUMBER DEFINED BY SUB 
GO BACK TO SUB FOR MORE ERROR CHECKS 
RETURN HERE IF NO MORE ERRORS 


013737 

001412 

050556 

0 w ■ whl ■ vnw • . 

MOV 

042737 

177701 

050556 

BIC 

062716 

000004 


ADD 

105076 

000000 


CLRB 

162716 

000004 


SUB 


032737 

001024 

013737 

042737 

012737 

062716 

112776 

162716 

004736 

162716 

000240 


032737 

001423 

013737 

042737 

005037 

062716 

112776 


000200 001350 


NOTE: THE SUBROUTINE ASSUMES THAT REGISTERS HAVE BEEN STORED AT THE 
INPUT REGISTER BUFFER. 

SECERR: 

• **************************************************************** 
•STORE FUNCTION CODE AND CLEAR USER'S ERROR NUMBER 
RMCSl0.515t .-STORE FUNCTION CODE 

f*C<F0!F1!F2!F3!F4>.515$ 

#4.(SP) .-MOVE (SP) TO ERROR CALL 

3(SP) ; CLEAR ERROR NUMBER 

#4.(SP) .'MOVE (SP) TO NO ERROR RETURN 

•CHECK SECONDARY ERRORS COMMON TO ALL COMMANDS 
.'REPORT ERROR IF DRIVE IS NOT READY. I.E.. IF DRY = 0 


001350 

177577 

000200 

000004 

000010 

000002 

OOOd 0 


G01142 

001142 

001140 

000000 


BIT fDRY.RMOSI 

BNE 5$ 

MOV RMDSI.SBDDAT 

BIC #*CDRY,*8DDAT 

MOV fDRY.SGDDAT 

ADD #4.(SP) 

Move #io.a<sp) 

SUB 92. (SP) 

jsr pc.atsp)* 

SUB #10. (SP) 

NOP 


.•DRIVE READY?? 

'YES' 1 
•BAD DATA FOR TYPEOUT 

.-GOOD DATA FOR TYPEOUT 

.•ERROR NUMBER 

.'MOVE SP TO RETURN FOR ERROR 
.•REPORT NOT READY 

.'RESTORE (SP) TO ERROR N 


000001 001336 


001336 

177776 

001140 

000004 

000011 


001142 

001142 


000000 


;REPORT ERROR IF GO BIT IS NOT RESET 

5 $: BIT fGO.RMCSII .'GO BIT RESET?? 

BEO 10S ; YES! ! 

MOV RMCS1I.SBDDAT .’BAD DATA FOR TYPEOUT 

BIC fCGO.SBDDAT 

CLR $6DDAf .'GOOD DATA FOR TYPEOUT 

ADD #4.(SP) 

MOVB fll.a(SP) .'ERROR NUMBER 
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SEQ 0189 


58 044570 

162716 

000002 



SUB 

#2,(SP) 

MOVE SP TO RETURN FOR ERROR 

59 044574 

004736 




JSR 

PC.i(SP)* ; 

REPORT DEVICE NOT AVAILABLE 

60 044576 

162716 

000010 



SUB 

#10, (SP) 

.•RESTORE (SP) 

61 044602 

ALO 

000240 




NOP 



Oc 

63 




.•REPORT ERROR 

IF FUNCTION CODE READ FROM DEVICE IS NOT CORRECT 

64 044604 

013737 

001336 

001142 

10$: 

MOV 

RMCS1I ,$BDDAT 

IS FUNCTION CODE CORRECT?? 

65 044612 

042737 

177701 

001142 


BIC 

# A C76.$8DDAT 


66 044620 

013737 

050556 

001140 


MOV 

515$.$GDDAT ; 

EXPECTED FUNCTION CODE 

67 044626 

023737 

001142 

001140 


CMP 

SBDDAT.SGDDAT 


68 044634 

001*»13 




BEO 

15$ ; 

YES!! 

69 044636 

062716 

000004 



ADD 

#4. (SP) 


70 044642 

112776 

000012 

000000 


movb 

#i2,a<sp> 

ERROR NUMBER 

71 044650 

162716 

000002 



SUB 

#2, (SP) ; 

MOVE SP TO RETURN FOR ERROR 

72 044654 

004736 




JSR 

PC.i(SP)* 

REPORT WRONG FUNCTION CODE 

73 044656 

162716 

000010 



SUB 

#10, (SP) 

.•RESTORE (SP) 

74 044662 

000240 




NOP 



75 044664 




15$: 




76 




.•REPORT AN ERROR IE COMPOSITE ERROR IS SET AND NO OTHER 

77 




.ERRORS ARE SET. OR IF COMPOSITE 

ERROR IS NOT SET AND 

78 




.OTHER ERRORS 

ARE SET 


79 044664 

005037 

001140 



CLR 

SGDDAT 

EXPECT , tRR" = 0 

80 044670 

005737 

001352 



TST 

RMER1I 

IS RMER1 =0?? 

81 044674 

001003 




BNE 

20$ 

NO!! 

82 044676 

005737 

001400 



TST 

RMER2I 

IS RMERZ = 0?? 

83 044702 

001403 




BEO 

25$ 

YES!! 

84 044704 

052737 

040000 

001140 

20$: 

BIS 

#ERR,$GDDAT 

**RR" SOULD BE SET 

85 044712 

013737 

001350 

001142 

25$: 

NOV 

RMDSI ,$8DDAT 


86 044720 

042737 

137777 

001142 


BIC 

#*CERR,$8DDAT 


87 044726 

023737 

001140 

001142 


CMP 

$GDDAT,$BDDAT 

IS "ERR" OK?? 

88 044734 

001412 




BEO 

30$ 

YES!! 

89 044736 

062716 

000004 



ADD 

#4, (SP) 

MOVE SP TO USER'S ERROR 

90 044742 

112776 

000047 

000000 


MOVB 

#47.B(SP) 

WRITE ERROR NUMBER 

91 044750 

162716 

000002 



SUB 

#2,(SP) 

MOVE SP TO ERROR RETURN 

92 044754 

004736 




JSR 

pc.a(sp)* 

REPORT INVALID COMP ERROR 

93 044756 

QZ 

162716 

000010 



SUB 

#i6.(sp) 


7*» 

95 




.•REPORT AN ERROR IF "TRE" IS SET 

AND NONE OF THE BITS WHICH SET 

96 




;TRE 

IS SET. 

OR IF TRE IS NOT SET AND ONE OR MORE BITS UHICH 

97 




:SET 

TRE IS SET 


98 044762 

005037 

001140 


30$: 

CLR 

SGDDAT 

EXPECT "TRE” = 0 

99 044766 

013746 

001346 



MOV 

RMCS2I,-(SP) 

WAS DLT, WCE. UPE. NED. NEM 

100 044772 

042726 

000377 



BIC 

#377. (SP)* 

PGE, MXF OR MDPE SET 

101 044776 

001010 




BNE 

35$ 

YES!! 

102 045000 

032737 

040000 

001350 


BIT 

#ERR, RMDSI 

WAS EXCEPTION RECEIVED?? 

103 045006 

001407 




BEO 

40$ 

NO!! 

104 045010 

022737 

000030 

050556 


CMP 

#SEARCH,515S 

WAS DATA TRANSFERRED?? 

105 045016 

1 05003 




BHIS 

40$ 

NO! ! 

106 045020 

052737 

040000 

001140 

35$: 

BIS 

#TRE, SGDDAT 

"fRE" SHOULD BE SET 

107 045026 

01373 7 

001336 

001142 

40$: 

MOV 

RMCSil ,$8DDAT 

BAD DATA FOR TYPEOUT 

108 045034 

042737 

137777 

001142 


BIC 

#*CTRE,$BDDAT 


109 045042 

023737 

001140 

001142 


CMP 

SGDDAT, SBDDAT 

IS "TRE" OK?? 

110 045050 

001413 




BEO 

45$ 

YES!! 

111 045052 

062716 

000004 



ADD 

#4.(SP) 

MOVE SP TO USER'S ERROR CALL 

112 045056 

112776 

000014 

000000 


N0V8 

#u.a(SP) 

WRITE ERROR NUMBER 

113 045064 

162716 

000002 



SUB 

#2, (SP) 

MOVE SP TO RETURN FOR ERROR 

114 045070 

004736 




JSR 

pc.a(sp)* 

REPORT TRE ERROR 



SEQ 0190 
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115 045072 

116 045076 

117 045100 

118 

119 

120 
121 
122 

123 

124 

125 

126 

127 

128 045100 

129 045102 

130 045106 

131 045114 

132 

133 

134 

135 045116 

136 045124 

137 045132 

138 045134 

139 045142 

140 045150 

141 045156 

142 045164 

143 043172 

144 045174 

145 045200 

146 C43206 

147 045212 

148 045214 

149 045220 

150 045222 

151 

152 

153 

154 045222 

155 045230 

156 045236 

157 045244 

158 045252 

159 045260 

160 045262 

161 043266 

162 045274 

163 045300 

164 045302 

165 045306 

166 

167 

168 045312 

169 045316 

170 045322 

171 045330 


162716 000010 
000240 


010046 

013700 

016037 

012600 


013737 

032737 

001403 

052737 

042737 

013737 

042737 

023737 

001413 

062716 

112776 

162716 

004736 

162716 

000240 


013737 

042737 

013737 

042737 

023737 

001412 

062716 

112776 

162716 

004736 

162716 

005037 


013746 

052716 

013737 

042637 


050556 

070002 


050550 

040000 

100000 

077777 

001350 

077777 

001140 

000004 

000006 

000002 

000010 


050550 

177776 

001352 

177776 

001140 

000004 

000254 

000002 

000010 

001140 


050550 

137777 

001346 

001142 


45S: 


SUB 

NOP 


#10. (SP) 


.•RESTORE (SP) 


050550 


001140 

001350 

001140 

001140 

001142 

001142 

001142 


000000 


USING THE FUNCTION CODE TABLE. CHECK FOR THE FOLLOWING ERRORS: 

.STATUS BITS NOT SET THAT SHOULD BE SET. E.G.. ATA AND ILF 
.STATUS BITS SET THAT SHOULD NOT BE SET. E.G.. WCE AND ECH 
NOTE THAT SOME ERROR BITS ARE CONDITIONAL ON THE COMMAND AND OTHER 
STATUS CONDITIONS, E.G., WRITE LOCK ERROR SHOULD ONLY BE SET IF 
WRITE LOCK IS ON AND THE COMMAND IS A WRITE. 

;GET AND STORE THE ENTRY FROM THE FUNCTION CODE TABLE 
MOV RO.-(SP) ;;PUSH RO ON STACK 

MOV 515S.RO ;GET FUNCTION CODE 

MOV FNCDTB(RO) ,500$ .'STORE ENTRY 

MOV (SP) +.R0 ;;POP STACK INTO RO 

.•REPORT AN ERROR IF AN UNEXPECTED ATTENTION OCCURRED OR IF 
;ATA IS NOT SET AND SHOULD BE SET. 


50$: 


55$: 


MOV 500S.SGDDAT 

BIT #ERR,RMDSI 

BEO 50$ 

BIS #ATA,$GDDAT 

BIC #*CATA,$GDDAT 

MOV RMDSI .SBDDAT 

BIC #*CATA.S8DDAT 

CMP SGDDAT, SBDDAT 

BEO 55$ 

ADD #4,(SP) 

M0V8 #6,a<SP) 

SUB #2, (SP) 

JSR PC.8(SP)+ 

SUB #10. (SP) 

NOP 


GET EXPECTED ATA STATUS 
IS COMPOSITE ERROR SET ?? 

NO 1 1 

EXPECT AN ATTENTION 
STRIP DONT CARES 
GET RECEIVED ATA 
STRIP DONT CARES 
IS ATA OK ?? 

YES 1 1 

MOVE SP TO USERS ERROR CALL 
LOAD ERROR # IN CALL 
MOVE SP TO ERROR RETURN 
REPORT ERROR 
RESTORE SP 


001140 

001140 

001142 

001142 

001142 


000000 


.'REPORT ERROR IF ILF IS INCORRECT, I.E., IF ILF DOES NOT COMPARE 
,‘WITH FUNCTION CODE TABLE 


60$: 


NOV 500$, SGDDAT 

BIC #*CJLF, SGDDAT 

NOV RMER1 I, SBDDAT 

BIC #*CILF, SBDDAT 

IMP SGDDAT, SBDDAT 

BEQ 60S 

ADD #4 .(SP) 

MOVB #254.a(SP) 

SUB #2, (SP) 

JSR PC.a(SP)+ 

SUB #10. (SP) 

CLR SGDDAT 


.'GET EXPECTED ILF 
.'CLEAR ALL OTHER BITS 
.'GET RECEIVED ILF 
; CLEAR ALL OTHER BITS 
;IS ILF OK ?? 

;YES ! ! 

.'MOVE SP TO USERS ERROR CALL 
.'WRITE ERROR NUMBER IN CALL 
.'MOVE SP TO ERROR RETURN 
.•REPORT ERROR AND RETURN 
.'MOVE SP TO NO ERROR 
.'CLEAR EXPECTED STATUS 


.•REPORT AN ERROR IF WCE IS SET AND SHOULD NOT BE SET 


001142 


MOV 500$, -(SP) 

BIS #*CWCE,(SP) 

MOV RMCS2I. SBDDAT 

BIC (SP)+, SBDDAT 


GET WCE STATUS ENABLE 
SET ALL OTHER BITS 
RECEIVED STATUS 
CLEAR WCE IF ENABLED 


SEQ 0191 
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172 045324 

173 045336 

174 045342 

175 045350 

176 045354 

177 045356 

178 045362 

179 

180 

181 045362 

182 045366 

183 045372 

184 045400 

185 045404 

186 045406 

187 045412 

188 045420 

189 045424 

190 045426 

191 045432 

192 

193 

194 

195 045432 

196 045436 

197 045444 

198 045446 

199 045452 

200 045456 

201 045464 

202 045470 

203 045472 

204 045476 

205 045504 

206 045510 

207 045512 

208 045516 

209 

210 
211 
212 

213 

214 

215 

216 

217 

218 

219 

220 045516 

221 045522 

222 045530 

223 045532 

224 045540 

225 045542 

226 045546 

227 045554 

228 045560 


001412 

062716 

112776 

162716 

004736 

162716 


013746 

052716 

013737 

042637 

001412 

062716 

112776 

162716 

004736 

162716 


013746 

032737 

001402 

042716 

052716 

013737 

042637 

001412 

062716 

112776 

162716 

004736 

162716 


000004 

000026 

000002 

000010 


050550 

157777 

001352 

001142 

000004 

000164 

000002 

000010 


050550 

000100 

010000 

167777 

001400 

001142 

000004 

000165 

000002 

000010 


012746 

032737 

001404 

032737 

001002 

042716 

013737 

042637 

001412 


000000 


90$: 


BEQ 

ADD 

MOVB 

SUB 

JSR 

SUB 


90$ 

#4. (SP) 

«26,a(SP) 

#2,(SP) 

pc.acsp)* 

#10,(SP) 


001142 

000000 


.■REPORT ERROR IF OPI STATUS IS 
MOV 500$. -(SP) 

BIS # A COPI.(SP) 

MOV RMER1I,$8DDAT 

BIC (SPH.SBDDAT 

BEQ 100$ 

ADD #4 .(SP) 

MOVB #164,a(SP) 

SUB #2. (SP) 

jsr pc.a (SP)+ 

SUB #10. (SP) 

100 $: 


BRANCH IF WCE OK 

MOVE SP TO USER'S ERROR CALL 

WRITE ERROR NUMBER 

MOVE SP TO ERROR RETURN 

REPORT ERROR 

RESTORE ERROR 


SET AND SHOULD NOT BE SET 
: GET OPI STATUS ENABLE 
SET ALL OTHER PITS 
6ET RECEIVED STATUS 
CLEAR OPI IF ENABLED 
BRANCH IF OPI OK 
MOVE SP TO USER'S ERROR CALL 
WRITE ERROR NUMBER IN CALL 
MOVE SP TO ERROR RETURN 
REPORT ERROR 
RESTORE SP 


001350 

001142 

000000 


105$: 


.-REPORT ERROR IF IVC IS SET AND 
;SET AND VV IS NOT RESET 
MOV 500$. -(SP) 

BIT #VV,RMDSI 

BEQ 105i 

BIC fJVC.(SP) 

BIS # A CIVC.(SP) 

MOV RMER2I.SBDDAT 

BIC (SP) ♦,$BDDAT 

BEQ 110$ 

ADD #4. (SP) 

MOVB #165.a(SP) 

SUB #2.(SP> 

JSR PC.B(SP)* 

SUB #10, (SP) 

110 $: 


IS NOT ENABLED OR IF IVC IS 


GET IVC STATUS ENABLE 
IS VV SET 
NO 1 1 

YES- IVC SHOULD BE 0 

SET ALL OTHER BITS 

GET RECEIVED STATUS 

CLEAR IVC IF ENABLED 

BRANCH IF IVC OK 

MOVE SP TO USERS ERROR CALL 

WRITE ERROR NUMBER IN CALL 

MOVE SP TO ERROR RETURN 

REPORT ERROR 

RESTORE SP TO NO ERROR 


177777 

004000 

004000 

004000 

001352 

001142 


BIT 11 (WLE) OF THE FUNCTION CODE TABLE IS THE ENABLING BIT FOR 
ALL WRITE ERRORS. I.E.. 

RMER1 - WLE. WCF 
RMER2 - DPE 
RMCS2 - UPE 

EACH OF THESE ERRORS IS CHECKED TO SEE IF AN ERROR IS SET WHEN THE 
WRITE ERROR ENABLE BIT IS RESET. 

.•REPORT AN ERROR IF WLE IS SET AND WRITE ERRORS ARE NOT ENABLED. OR IF 
;THE DRIVE IS NOT WRITE PROTECTED 


050550 

001350 

001142 


115$: 

120 $: 


MOV #-1 ,-(SP) 

BIT #WLE.500$ 

BEQ 115$ 

BIT #WRL,RMDSI 

BNE 120$ 

BIC #WLE.(SP> 

MOV RMER1I ,$BDDAT 

BIC (SP)+.$BDDAT 

BEQ 125$ 


ASSUME WRITE ERRORS ENABLED 
ARE WRITE ERRORS ENABLED ?? 

NO 1 1 

IS THE DRIVE WRITE PROTECTED ?? 
YES 1 1 

RESET WLE ENABLE 
GET RECEIVED STATUS 
CLEAR WLE IF ENABLED 
BRANCH IF WLE OK 
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231 


K 15 


SEO 0192 


235 

236 


241 


250 

251 


261 


265 

266 


271 


275 


280 

281 


045562 

062716 

000004 


ADD 

#4. (SP) 

045566 

112776 

000023 

000000 

M0V8 

#23,i(SP) 

045574 

162716 

000002 


SUB 

#2. (SP) 

045600 

004736 



JSR 

pc.8(sph 

045602 

162716 

000010 


SUB 

#10. (SP) 

045606 




125$: 






.•REPORT ERROR 

IF WCF IS SET AND 

045606 

012746 

177777 


MOV 

f-l.-(SP) 

045612 

032737 

004000 

050550 

BIT 

#WLE.500$ 

045620 

001002 



BNE 

130$ 

045622 

042716 

000040 


BIC 

#WCF. (SP) 

045626 

013737 

001352 

001142 

130$: MOV 

RMER1I.$BDDAT 

045634 

042637 

001142 


BIC 

(SP)*.$BDDAT 

045640 

001412 



BEQ 

135$ 

045642 

062716 

000004 


ADD 

#4, (SP) 

045646 

112776 

000025 

000000 

MOVB 

#25.a(SP) 

045654 

162716 

000002 


SUB 

#2, (SP) 

045660 

004736 



JSR 

pc.a(SP)* 

045662 

162716 

000010 


SUB 

#10. (SP) 

045666 




135$: 






.-REPORT ERROR 

IF DPE IS SET AND 

045666 

012746 

177777 


MOV 

#-1.-(SP) 

045672 

032737 

004000 

050550 

BIT 

#WLE ,500$ 

045700 

001002 



BNE 

140$ 

045702 

042716 

000010 


BIC 

#DPE.(SP) 

045706 

013737 

001400 

001142 

140$: MOV 

RMER2I ,$6DDAT 

045714 

042637 

001142 


BIC 

(SP) *,$BDDAT 

045720 

001412 



BEQ 

145$ 

04f722 

062716 

000004 


ADD 

#4, (SP) 

045726 

112776 

000040 

000000 

MOVB 

#40,a(SP) 

045734 

162716 

000002 


SUB 

#2. (SP) 

045740 

004736 



JSR 

pc.a(sp)* 

045742 

162716 

000010 


SUB 

#10, (SP) 

045746 




145$: 






.•REPORT AN ERROR IF UPE IS SET 

045746 

012746 

177777 


MOV 

#-1,-(SP) 

045752 

032737 

004000 

050550 

BIT 

#WLE,500$ 

045760 

001002 



BNE 

150$ 

045762 

042716 

020000 


BIC 

#UPE.(SP) 

045766 

013737 

001346 

001142 

150$: MOV 

RMCS2l.$6DDAT 

045774 

042637 

001142 


BIC 

(SP)+, $BDDAT 

046000 

001412 



BEQ 

155$ 

046002 

062716 

000004 


ADD 

#4, (SP) 

046006 

112776 

000024 

000000 

MOVB 

#24,a(SP) 

046014 

162716 

000002 


SUB 

#2, (SP) 

046020 

004736 



JSR 

pc.a(sp)* 

046022 

162716 

000010 


SUB 

#10, (SP) 

046026 




155$: 






.REPORT AN ERROR IF IAE IS SET 

046026 

013746 

050550 


MOV 

500$. -(SP) 

046032 

052716 

175777 


BIS 

#*CIAE.(SP) 

046036 

013737 

001352 

001142 

MOV 

RMER1I.SBDDAT 

046044 

042637 

001142 


BIC 

(SP)*, SBDDAT 


MOVE SP TO USERS ERROR CALL 
WRITE ERROR NUMBER IN CALL 
MOVE SP TO ERROR RETURN 
REPORT ERROR AND RETURN 
RESTORE SP TO NO ERROR 


WRITE ERRORS ARE NOT ENABLED 
ASSUME WRITE ERRORS ENABLED 
ARE WRITE ERRORS ENABLED ?? 
YES ' 1 

DISABLE WCF ERROR 

GET RECEIVED STATUS 

RESET WCF IF ENABLED 

BRANCH IF WCF OK 

MOVE SP TO USERS ERROR CALL 

WRITE ERROR NUMBER IN CALL 

MOVE SP TO ERROR RETURN 

REPORT ERROR 

RESTORE SP TO NO ERROR 


WRITE ERRORS ARE NOT ENABLED 
ASSUME WRITE ERRORS ARE ENABLED 
ARE WRITE ERRORS ENABLED ?? 

YES ' 1 

RESET DPE ENABLE 

GET RECEIVED STATUS 

RESET DPE IF ENABLED 

BRANCH IF DPE OK 

MOVE SP TO USERS ERROR CALL 

WRITE ERROR NUMBER IN CALL 

MOVE SP TO ERROR RETURN 

REPORT ERROR 

RESTORE SP TO NO ERROR 


AND WRITE ERRORS ARE NOT ENABLED 
ASSUME WRITE ERRORS ARE ENABLED 
ARE WRITE ERRORS ENABLED ?? 

YES 1 1 

DISABLE UPE ERROR 
GET RECEIVED STATUS 
RESET UPE IF ENABLED 
BRANCH IF UPE OK 
MOVE SP TO USERS ERROR CALL 
WRITE ERROR NUMBER IN CALL 
MOVE SP TO ERROR RETURN 
REPORT ERROR AND RETURN 
MOVE SP TO NO ERROR 


GET IAE ENABLE 
SET ALL OTHER BITS 
GET RECEIVED STATUS 
CLEAR IAE IF ENABLED 



SEQ 0193 
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160$ 

#4- (SP) 
#166,a(SP) 
#2,(SP) 
PC.a(SP)* 
#10, (SP) 


L 15 


293 

294 

295 

296 

297 

298 

299 

300 

301 

302 

303 

304 

305 

306 

307 

308 

309 


046050 

001412 


BEQ 

046052 

062716 

000004 

ADD 

046056 

112776 

000166 000000 

MOVB 

04606* 

162716 

000002 

SUB 

046070 

004736 


JSR 

046072 

162716 

000010 

SUB 

046076 


160$: 



BRANCH IF IAE IS OK 
MOVE SP TO USERS ERROR CALL 
WRITE ERROR NUMBER 
MOVE SP TO ERROR RETURN 
REPORT ERROR AND RETURN 
MOVE SP TO NO ERROR 


323 

324 


338 

339 


BIT 09 (AOE) OF THE FUNCTION CODE TABLE IS THE ENABLING BIT FOR 
ALL READ/WRITE ERRORS, I.E., 

RMCS1 - TRE 
RMCS2 - DLT,NEM,MXF 
RMDS - L8T 
RMER1 - AOE 

NOTE: 

LBT IS NOT CHECKED BECAUSE IT ONLY RESETS WHEN THE DESIRED 
CYLINDER REGISTER IS WRITTEN 
NOTE: 

AOE CANNOT BE SET IF LBT IS NOT ALSO SET 

NOTE: 

TRE IS CHECKED AS A FUNCTION OF OTHER ERROR CONDITONS ABOVE 


046076 

012746 

177777 


MOV 

046102 

032737 

001000 

050550 

BIT 

046110 

001002 



BNE 

046112 

042716 

100000 


BIC 

046116 

013737 

001346 

001142 

165$: MOV 

046124 

042637 

001142 


BIC 

046130 

001412 



BEQ 

046132 

062716 

000004 


ADD 

046136 

112776 

000032 

000000 

MOVB 

046144 

162716 

000002 


SUB 

046150 

004736 



JSR 

046152 

162716 

000010 


SUB 

046156 




170$: 





.•REPORT ERROR 

046156 

012746 

177777 


MOV 

046162 

032737 

001000 

050550 

BIT 

046170 

001002 



BNE 

046172 

042716 

004000 


BIC 

046176 

013737 

001346 

001142 

175$: MOV 

046204 

042637 

001142 


BIC 

046210 

001412 



BEQ 

046212 

062716 

000004 


ADD 

046216 

112776 

000167 

000000 

MOVB 

046224 

162716 

000002 


SUB 

046230 

004736 



JSR 

046232 

162716 

000010 


SUB 

046236 




180$: 





; REPORT ERROR 

046236 

012746 

177777 


MOV 

046242 

032737 

001000 

050550 

BIT 

046250 

001002 



BNE 


;REPORT AN ERROR IF DLT IS SET 
#-1,-CSP) 
#AOE,500$ 

165$ 

#DLT t (SP) 
RHCS2I,$8DDAT 
(SP)+, $8DDAT 
170$ 

#4, (SP) 
#32,9<SP) 

#2, (SP) 

pc,a(sp)* 

#10, (SP) 


#-1.-(SP) 

#AOE , 500$ 

175$ 

#NEM.(SP) 
RMCS2I,$BDDAT 
(SP) +,$8DDAT 
180$ 

#4,(SP) 

#167,a(SP) 

#2,(SP) 

PC.3(SP)* 

#10, (SP) 


AND READ/WRITE ERRORS ARE NOT ENABLED 
ASSUME ERRORS ARE ENABLED 
ARE ERRORS ENABLED ?? 

YES ' 1 

RESET* DLT ENABLE 
GET RECEIVED STATUS 
CLEAR DLT IF ENABLED 
BRANCH IF DLT IS OK 
MOVE SP TO USERS ERROR CALL 
WRITE ERROR NUMBER IN CALL 
MOVE SP TO ERROR RETURN 
REPORT ERROR AND RETURN 
MOVE SP TO NO ERROR 


READ/URITE ERRORS ARE NOT ENABLED 
ASSUME ERRORS ARE ENABLED 
ARE ERRORS ENABLED ?? 

YES 1 1 
DISABLE NEM 
GET RECEIVED STATUS 
CLEAR NEM IF ENABLED 
BRANCH IF NEM IS OK 
MOVE SP TO USERS ERROR CALL 
WRITE ERROR NUMBER IN CALL 
MOVE SP TO ERROR RETURN 
REPORT ERROR AND RETURN 
MOVE SP TO NO ERROR 


.•REPORT ERROR IF MXF IS SET AND READ/WRITE ERRORS ARE NOT ENABLED 

* A M A _ t ■ A Jti IMF F tkMAfk M A Ml* Pill Ml P H 


#-1 ,-(SP) 
#A0E,500$ 
185$ 


ASSUME ERRORS ARE ENABLED 
ARE DATA ERRORS ENABLED ?? 
YES ! ! 
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SEQ 0194 


343 046252 

344 046256 

345 046264 

346 046270 

347 046272 

348 046276 

349 046304 

350 046310 

351 046312 

352 046316 

353 

354 

355 046316 

356 046322 

357 046330 

358 046332 

359 046340 

360 046342 

361 046346 

362 046354 

363 046360 
564 046362 

365 046366 

366 046374 
IV 046400 
568 046402 
369 046406 


376 

377 046406 

378 046414 

379 046416 

380 046424 

381 

382 

383 046424 

384 046430 

385 046436 

386 046440 

38 7 046444 

388 046452 
3^9 046456 
39J 046460 

391 046464 

392 046472 

393 046476 

394 046500 

395 046504 

396 

397 

598 046504 
399 046510 


042716 

013737 

042637 

001412 

062716 

112776 

162716 

004736 

162716 


012746 

032737 

001404 

032737 

001002 

042716 

013737 

042637 

001412 

062716 

112776 

162716 

004736 

162716 


032737 

001403 

042737 


012746 

032737 

001002 

042716 

013737 

042637 

001412 

062716 

112776 

162716 

004736 

162716 


012746 

032737 


001000 

001346 

001142 

000004 

000033 

000002 

000010 


177777 

001000 


177777 

000200 

000400 

001352 

001142 

000004 

000035 

000002 

000010 


177777 

000200 


001142 


000000 


050550 


002000 001350 


001000 

001352 

001142 

000004 

000020 

000002 

000010 


001142 


000000 


; REPORT ERROR 
MOV 
BIT 
BEQ 
BIT 
BNE 

191$: B1C 

195$: MOV 

BIC 


200 $: 


#MXF.(SP) 
rmcs2i ,$8DDAT 
(SP)*,$BDDAT 
190$ 

#4.(SP) 
#33,a(SP) 
#2,(SP) 
PC.9CSP )♦ 

#10, (SP) 


IF AOE IS SET AND 
#-1,-(SP) 
#AOE,500$ 

191$ 

#L8T,RMDSI 

195$ 

#AOE. (SP) 

RMER1I ,$8DDAT 
(SP)+,$8DDAT 
200 $ 

#4.(SP) 

#20.a<SP> 

#2.(SP) 

pc,a<sp>* 

#10, (SP) 


DISABLE MXF ERROR 
GET RECEIVED STATUS 
CLEAR MXF IF ENABLED 
BRANCH IF MXF IS OK 
MOVE SP TO USERS ERROR CALL 
WRITE ERROR NUMBER IN CALL 
MOVE SP TO ERROR RETURN 
REPORT ERROR AND RETURN 
MOVE SP TO NO ERROR 


DATA ERRORS ARE NOT ENABLED 
.‘ASSUME DATA ERRORS ARE ENABLED 
;ARE DATA ERRORS EANBLED ?? 

;N0 !! 

;IS LBT ALSO SET ?? 

• YES 1 1 
‘DISABLE AOE 
.‘GET RECEIVED STATUS 
.'CLEAR AOE IF ENABLED 
.'BRANCH IF AOE IS OK 
.‘MOVE SP TO USERS ERROR CALL 
.'WRITE ERROR NUMBER 
.‘MOVE SP TO ERROR RETURN 
.‘REPORT ERROR AND RETURN 
.'MOVE SP TO NO ERROR 


002000 001370 
000200 050550 


.-BIT 07 (HCE) OF THE FUNCTION CODE TABLE IS THE ENABLING BIT FOR 
.‘HEADER ERRORS, I.E.. 

; RMER1 - HCRC.HCE.FER 

; RMER2 - BSE.SSE 

.‘RESET THE ENABLING BIT (HCE) IF HEADER COMPARE INHIBIT IS SET 


201 $: 


#HCI,RM0 FI 
201 $ 

#HCE,500$ 


.•REPORT AN ERROR IF HCRC IS SET 


050550 


001142 205$: 


000000 


#-1.-(SP) 

#HCE,500$ 

205$ 

#HCRC,(SP) 
RMER1I.SBDDAT 
(SP)+, $BDDAT 
210 $ 

#4. (SP) 

#35.a(SP) 

#2, (SP) 

pc.a(SP)+ 

#10. (SP) 


IS HCI SET ?? 

NO ! ! 

YES - DISABLE ALL HEADER ERRORS 


AND HEADER ERRORS ARE NOT ENABLED 

.‘ASSUME ERRORS ENABLED 

.‘ARE HEADER ERRORS ENABLED ?? 

;YES !! 

.'DISABLE HCRC 
.‘GET RECEIVED STATUS 
.‘RESET HCRC IF ENABLED 
.BRANCH IF HCRC IS OK 
.-MOVE SP TO USERS ERROR CALL 
.‘WRITE ERROR NUMBER IN CALL 
.‘MOVE SP TO ERROR RETURN 
; REPORT ERROR AND RETURN 
.‘MOVE SP TO NO ERROR 


050550 


.‘REPORT ERROR IF HCE IS SET AND HEADER ERRORS ARE NOT ENABLED 
MOV #-1,-(SP) .-ASSUME ERRORS ENABLED 

BIT #HCE,500$ .‘ARE ERRORS ENABLED ?? 


N 15 


SEQ 0195 
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400 

046516 

001002 




BNE 

215$ 

YES 

401 

046520 

042716 

000200 



BIC 

#HCE, (SP) 

DISABLE HCE 

402 

046524 

013737 

001352 

001142 

215$: 

MOV 

RMER1 I ,$BDDAT 
(SP)+,$BDDAT 

GET RECEIVED STATUS 

403 

046532 

042637 

001142 



BIC 

CLEAR HCE IF ENABLED 

404 

046536 

001412 



BEQ 

220$ 

BRANCH IF HCE IS OK 

405 

046540 

062716 

000004 



ADD 

#4, (SP) 

MOVE SP TO USERS ERROR CALL 

406 

046544 

112776 

000036 

000000 


M0V8 

»36.a<sp) 

WRITE ERROR NUMBER IN CALL 

407 

046552 

162716 

000002 



SUB 

#2. (SP) 

MOVE SP TO ERROR RETURN 

408 

046556 

004736 




JSR 

pc.b(sp)* 

#10. (SP) 

REPORT ERROR AND RETURN 

409 

410 

411 

412 

046560 

046564 

162716 

000010 


220$: 

SUB 

MOVE SP TO NO ERROR 






.•REPORT 

ERROR 

IF FER IS SET AND HEADER ERRORS ARE NOT ENABLED 

413 

046564 

012746 

177777 



MOV 

#-1,-(SP) 

ASSUME FER IS ENABLED 

414 

046570 

032737 

000200 

050550 


BIT 

#HCE,500$ 

ARE HEADER ERRORS ENABLED ?? 

415 

046576 

001002 




BNE 

225$ 

YES 1 1 

DISABLE FER 

416 

046600 

042716 

000020 



BIC 

#FER,(SP) 

417 

046604 

013737 

001352 

001142 

225$: 

MOV 

RMER1I ,$BDDAT 

GET RECEIVED STATUS 

418 

046612 

042637 

001142 



BIC 

(SP) ♦,$BDDAT 

RESET FER IF ENABLED 

419 

046616 

001412 




BEQ 

230$ 

BRANCH IF FER OK 

420 

046620 

062716 

000004 



ADD 

#4. (SP) 

#37,a(SP) 

MOVE SP TO USERS ERROR CALL 

421 

046624 

112776 

000037 

000000 


Move 

WRITE ERROR NUMBER IN CALL 

422 

046632 

162716 

000002 



SUB 

#2, (SP) 

MOVE SP TO ERROR RETURN 

423 

046636 

004736 




JSR 

pc.a(SP)* 

#10, (SP) 

REPORT ERROR AND RETURN 

424 

425 

426 

427 

046640 

046644 

162716 

000010 


230$: 

sue 

MOVE SP TO NO ERROR 






.•REPORT 

ERROR 

IF BSE IS SET AND HEADER ERRORS ARE NOT ENABLED 

428 

046644 

012746 

177777 



MOV 

#-1.-(SP) 

; ASSUME ERRORS ENABLED 

429 

046650 

032737 

000200 

050550 


BIT 

#HCE,500$ 

;ARE THEY ENABLED ?? 

430 

046656 

001002 




BNE 

235$ 

;YES !.' 

431 

046660 

042716 

100000 



BIC 

#BSE.(SP) 

RMERiI ,$BDDAT 
(SP)*.$BDDAT 

.•DISABLE BSE 

432 

046664 

013737 

001400 

001142 

235$: 

MOV 

;GET RECEIVED STATUS 

433 

046672 

042637 

001142 



BIC 

.•CLEAR BSE IF ENABLED 

434 

046676 

001412 




BEQ 

240$ 

; BRANCH IF BSE OK 

435 

046700 

062716 

000004 



ADD 

#4. (SP) 

;MOVE SP TO USERS ERROR CALL 

436 

046704 

112776 

000354 

000000 


M0V8 

#354. a (SP) 

; WRITE ERROR NUMBER 

437 

046712 

162716 

000002 



SUB 

#2,(SP> 

.-MOVE SP TO ERROR RETURN 

438 

046716 

004736 




JSR 

pc.a(sp)+ 

#10. (SP) 

.•REPORT ERROR AND RETURN 

439 

440 

441 

442 

046720 

046724 

162716 

000010 


240$: 

SUB 

.-MOVE SP TO NO ERROR 





.•RESET 

THE ENABLING BIT (HCE). IF SKIP SECTOR ERROR INHIBIT (SSEI) 

443 





;SET OR FORMAT 16 (FMT) IS CLEAR 

• 

444 

046724 

010046 




MOV 

RO.-(SP) 

51$$, RO 

;PUSH RO ON STACK 

445 

046726 

013700 

050556 



MOV 

GET FUNCTION CODE 

446 

046732 

016037 

070002 

050550 


MOV 

FNCDTB(RO) ,500$ 

STORE FUNCTION TABLE ENTRY 

447 

046740 

012600 




MOV 

(SP) ♦.RO 

;POP STACK INTO RO 

448 

046742 

032737 

010000 

001370 


BIT 

#FMT16,RM0FI 

18 BIT FORMAT MODE ? 

449 

046750 

001404 




BEQ 

241$ 

BR IF YES 

450 

046752 

032737 

001000 

001370 


BIT 

#SSEI.RMOFI 

IS SSEI SET ? 

451 

046760 

001403 




BEQ 

242$ 

BR IF NO 

452 

046762 

042737 

000200 

050550 

241$: 

SIC 

#HCE,500$ 

DISABLE HEADER ERROR 

453 

454 

455 

046770 




242$: 








.•REPORT 

ERROR 

IF SSE IS SET AND HEADER ERRORS ARE N01 ENABLED 

456 

046770 

012746 

177777 



MOV 

#-1.-(SP) 

.•ASSUME ERRORS ENABLED 
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B 16 


SEO 0196 


457 046774 

458 047002 

459 047004 

460 047010 

461 047016 

462 047022 

463 047024 

464 047030 

465 047036 

466 047042 

467 047044 

468 047050 

469 

470 

471 

472 

473 

474 

475 

476 

477 

478 

479 047050 

480 047054 

481 047062 

482 047064 

483 047070 

484 047076 

485 047102 

486 047104 

487 047110 

488 047116 

489 047122 

490 047124 

491 047130 

492 

493 

494 047130 

495 047134 

496 047142 
4V7 047144 

498 047150 

499 047156 

500 047162 

501 047164 

502 047170 

503 047176 

504 047202 

505 047204 

506 047210 

507 

508 

509 

510 

511 

512 047210 

513 047214 


032737 

000200 

050550 


BIT 

001002 




BNE 

042716 

000040 



BIC 

013737 

001400 

001142 

243$: 

MOV 

042637 

001142 



BIC 

00141? 




BEQ 

062716 

000004 



ADD 

112776 

000063 

000000 


MOVB 

162716 

000002 



SUB 

004736 




JSR 

162716 

000010 



SUB 




244$: 



#HCE.500$ 

243$ 

#SSE.(SP) 

RMER2I.SBDDAT 

(SP)+,$BDDAT 

244$ 

#4, (SP) 

#6$.a(sp> 

#2,(SP) 

pc.atsp)* 

#io.(sp) 


ARE HCE'S VALID FOR THIS FUNCTION ? 

YFS ' 1 

DISABLE SSE 

GET RECIEVED STATUS 

CLEAR SSE IF NOT VALID FOR FUNCTION 

BRANCH IF SSE OK 

MOVE SP TO USERS ERROR CALL 

WRITE ERROR NUMBER 

MOVE SP TO ERROR RETURN 

REPORT ERROR AND RETURN 

MOVE SP TO NO ERROR 


012746 

032737 

001002 

042716 

013737 

042637 

001412 

062716 

112776 

162716 

004736 

162716 


012746 

032737 

001002 

042716 

013737 

042637 

001412 

062716 

112776 

162716 

004736 

162716 


177777 

000100 

000400 

001346 

001142 

000004 

000027 

000002 

000010 


177777 

000100 

100000 

001352 

001142 

000004 

000030 

000002 

000010 


012746 

032737 


BIT 06 OF THE FUNCTION CODE TABLE IS THE ENABLING BIT FOR DATA 
FIELD ERRORS, I.E.. 

RMCS2 - MOPE 
RMER1 - DCK, ECH 

N ° TE: ECH CANNOT SET UNLESS IT IS ENABLED AND ECI IS RESET AND 
DCK IS SET. 


REPORT ERROR IF MOPE IS SET AND 


050550 

001142 

000000 


245$: 


250$: 


MOV 

BIT 

BNE 

BIC 

MOV 

BIC 

BEQ 

ADD 

MOVB 

SUB 

JSR 

SUB 


050550 

001142 

000000 


.•REPORT ERROR 
MOV 
BIT 
BNE 
BIC 

255$: MOV 

BIC 
BEQ 
ADD 
MOVB 
SUB 
JSR 
SUB 


#-1.-(SP> 
#ECH,500$ 

245$ 

#MDPE.(SP) 
RMCS2I ,$BDDAT 
(SP)+,$BDDAT 
250$ 

#4, (SP) 
#27,a(SP) 

M2 ASP) 
pc.a(sp>* 

#10, (SP) 

IF DCK IS SET AND 
#-1.-(SP) 
#ECH,500$ 

255$ 

#DCK, (SP) 
RMER1I.SBDDAT 
(SP)*,$BDDAT 
260$ 

#4. (SP' 
#36.a<SP) 

M2 ASP) 
PC.a(SP)* 

#10. (SP) 


IS NOT ENABLED 
ASSUME ENABLED 

ARE DATA FIELD ERRORS ENABLED ?? 
V ES 1 ' 

DIS8ALE MDPE 
GET RECEIVED STATUS 
CLEAR MDPE IF ENABLED 
BRANCH IF MDPE OK 
MOVE SP TO USERS ERROR CALL 
WRITE ERROR NUMBER IN CALL 
MOVE SP TO ERROR RETURN 
REPORT ERROR AND RETURN 
MOVE SP TO NO ERROR 


DATA FIELD ERRORS ARE NOT ENABLED 
ASSUME ENABLED 
ARE THEY ENABLED ?? 

YES 1 1 
DISABLE DCK 
GET RECEIVED STATUS 
CLEAR DCK IF ENABLED 
BRANCH IF DCK IS OK 
MOVE SP TO USERS ERROR CALL 
WRITE ERROR NUMBER IN CALL 
MOVE SP TO ERROR RETURN 
REPORT ERROR AND RETURN 
MOVE SP TO NO ERROR 


177777 

000100 


050550 


260$: 

REPORT ERROR IF ECH IS SET AND. 

DATA FIELD ERRORS ARE NOT ENABLED, OR 
ECI IS SET. OR 

S55 15 "SIl^JsP) .-ASSUME ENABLED 

BIT #ECH,500$ ;ARE ERRORS ENABLED ?? 



C 16 



SEQ 0197 


NO ! ! 

IS ECI SET ?? 

YES 1 1 

IS DCK ALSO SET ?? 

YES 1 1 
DISABLE ECH 
GET RECEIVED STATUS 
CLEAR ECH IT ENABLED 
BRANCH IF ECH IS OK 
MOVE SP TO USERS ERROR CALL 
WRITE ERROR NUMBER IN CALL 
HOVE SP TO ERROR RETURN 
REPORT ERROR AND RETURN 
HOVE SP TO NO ERROR 
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SEQ 0198 


1 

2 

3 

4 

5 047310 

6 047316 

7 047320 


10 047324 

11 047332 

12 047334 

13 047342 

14 047344 

15 0473*0 

16 047356 

17 047362 

18 047366 

19 047370 

20 047374 

21 
22 

23 047376 

24 047404 

25 047412 

26 047416 

27 

28 047424 

29 047432 

30 047434 

31 

32 047442 

33 047450 

34 047452 

35 047460 
56 047464 

37 047472 

38 047476 

39 047500 

40 047504 

41 

42 

43 047506 

44 047510 

45 047514 

46 

47 047520 

48 047524 

49 047532 

50 047534 

51 

52 047540 

53 047544 

54 047550 

55 047552 

56 

57 


022737 

103402 

000137 


013737 

001421 

032737 

001015 

062716 

112776 

005037 

162716 

004736 

162716 

000240 


013737 

163737 

006337 

063737 

032737 

001403 

013737 

023737 

001416 

013737 

062716 

112776 

162716 

004736 

162716 

000240 


005046 

013746 

163716 

012746 

032737 

001402 

062716 

005266 

161666 

003373 

022626 


.-•PERFORM THE REMAINING ERROR CHECKS ONLY FOR DATA TRANSFER COMMANDS 


000030 050556 
050522 


001340 001142 580$: 
040000 001336 


CMP #SEARCH,515$ 

BLO 28 0$ 

JMP 355$ 

REPORT ERROR IF RMWC NOT ZERO 


000004 

000015 

001140 

000002 

000010 


001340 

001414 

001140 

001416 


000000 


MOV RMWCI ,$8DDAT 

BEQ 2 85$ 

BIT #TRE.RHCS1I 

BNE 285$ 

ADD #4. (SP) 

MOVB #15.9(SP) 

CLR $GDDAT 

SUB #2,(SP) 

JSR PC.3(SPH 

SUB #10, (SP) 

NOP 


WAS DATA TRANSFERRED ? 
BR IF YES 
NO - EXIT 


AND TRE IS ZERO 
.'WORD COUNT ZERO?? 

; YES 

.■TRANSFER ERROR DETECTED?? 

; YES.' ! 

.•ERROR NUMBER 
.-GOOD DATA FOR TYPEOUT 
.•MOVE SP TO RETURN FOR ERROR 
.•REPORT WORD COUNT NOT ZERO 
.’RESTORE (SP) 


001140 

001140 

001140 


: REPORT ERROR IF RMBA IS NOT CORRECT 

585$: MOV RMWCI. $6DDAT ;GET WORD COUNT AT END OF TRANSFER AND 

SUB RMWCO,$GDDAT .'SUBTRACT STARTING WORD COUNT. 

ASL $GDDAT ;* 2 

ADD RMBAO,$GDDAT ;ADD STARTING BUS ADDRESS 


000010 001346 
001416 001140 
001140 001342 290$: 


001342 

000004 

000016 

000002 

000010 


001340 

001414 

000400 

000002 

000002 

000004 

000002 


001142 

000000 


BIT #8AI,RMCS2I 

BEQ 290$ 

MOV RMBA0,$GDDAT 

CMP $GDDAT,RM8AI 

BEQ 2 95$ 

MOV RMBAI ,$8DDAT 

ADD #4, (SP) 

MOVB #16,8(SP) 

SUB #2, (SP) 

JSR PC.a(SP)* 

SUB #10, (SP) 

NOP 


;WAS BUS ADDRESS INHIBIT (BAI) SET ?? 

;N0 !! 

; ADDRESS SHOULD NOT HAVE CHANGED 

.'BUS ADDRESS OK?? 

; YES! ! 

;BAD DATA FOR TYPEOUT 
.•ERROR NUMBER 

.'MOVE SP TO RETURN FOR ERROR 
.'REPORT UNEXPECTED ADDRESS 
; RESTORE (SP) 


COMPUTE NUMBER OF SECTORS TRANSFERRED FROM WORD COUNT 


595$: 


001412 


-( SP ) 

RMWCI, -(SP) 
RMWCO.(SP) 

#256.. -(SP) 
#BIT1 .RMCS10 
300$ 

#2, (SP) 

4(SP) 

(SP).2(SP) 

300$ 

(SP)MSPH 


NUMBER OF SECTORS TRANSFERRED 

GET WORD COUNT AT END OF TRANSFER AND 

SUBTRACT STARTING WORD COUNT. 

ASSUME 256. WORDS PER SECTOR 
HEADER t DATA COMMAND ?? 

NO !! 

CHANGE TO 258. WORDS PER SECTOR 

INCREMENT SECTOR COUNT 
SUBTRACT ONE SECTOR’S WORTH 
CONTINUE IF NOT DONE 
RESTORE STACK 


.'COMPUTE EXPECTED SECTOR, TRACK AND CYLINDER ADDRESS FROM 


CZRNDAO RM80 FCTNL PT1 MACRO V04.00 28- JAN-82 16:24:51 PAGE 23-1 
SECONDARY ERROR CHECK SUBROUTINE 


E 16 


SEQ 0199 


58 





.■NUMBER 

OF SECTORS 


59 

047554 

013737 

001446 

050550 

NOV 

RMDC0.500$ 

STORE ORIGINAL CYLINDER 

60 

047562 

013737 

001420 

050552 


NOV 

RNDA0.505S 

STORE ORIGINAL TRACK 

61 

047570 

013737 

001420 

050554 


NOV 

RMDA0.510S 

STORE ORIGINAL SECTOR 

62 

047576 

013737 

001334 

050560 


NOV 

LSTRK,520$ 

STORE LAST TRACK, 

63 

047604 

000337 

050560 



SUAB 

520$ 

GET TRACK ADDRESS TO LO BYTE AND 

64 

65 

66 

047610 

005237 

050560 



INC 

520$ 

INCREMENT TO GET TOTL # OF TRACKS. 

047614 

042737 

000377 

050552 


bIC 

#*C<TADNSK>,505$ 

,-SAVE TRACK ADDRESS BITS AND 

67 

047622 

000337 

050552 



SWAB 

505$ 

SWAP TRACK ADDRESS TO LOW BYTE. 

68 

047626 

042737 

177400 

050554 


BIC 

#*C<SADMSK> ,510$ 

; SAVE SECTOR ADDRESS BITS 

69 

70 

71 

047634 

062637 

050554 



ADD 

(SP)*,510$ 


047640 

032737 

001000 

001444 


BIT 

#SSEI .RMOFO 

WAS SSEI SET ? 

72 

73 

74 

047646 

001411 




BEQ 

310$ 

NO !! 

047650 

023727 

050554 

0000h2 


CMP 

510$, #32. 

SECTOR OVEFLOWED?? 

75 

047656 

103417 




BLO 

315$ 

NO!! 

76 

047660 

005237 

050552 



INC 

505$ 

INCREMENT TRACK 

77 

78 

79 

047664 

162737 

000040 

050554 


SUB 

#32., 510$ 

ADJUST SECTOR 

047672 

023727 

050554 

000037 

310$: 

CMP 

510$, #31 . 

SECTOR OVERFLOWED ? 

80 

047700 

103406 




BLO 

315$ 

NO ! ! 

81 

047702 

005237 

050552 


314$: 

INC 

505$ 

INCREMENT TRACK 

82 

047706 

162737 

000037 

050554 


SUB 

#31., 510$ 

ADJUST SECTOR 

83 

84 

85 

047714 

000766 




BR 

310$ 

TRY AGAIN 

047716 

023737 

050552 

050560 

315$: 

CMP 

505$. 520$ 

TRACK OVERFLOWED?? 

86 

047724 

103407 




BLO 

320$ 

NO!! 

87 

047726 

005237 

050550 



INC 

500$ 

INCREMENT CYLINDER 

88 

047732 

163737 

050560 

050552 


SUB 

520$, 505$ 

ADJUST TRACK 

89 

047740 

000766 




BR 

315$ 

TRY AGAIN 

90 

91 

92 

047742 

000240 




NOP 







.•REPORT 

ERROR 

IF "S5EI" IS SET AFTER TRACK SWITCHING OCCURED 

93 





.-THRU DATA TRANSFER 


94 

047744 

005037 

001140 


320$: 

CLR 

SGDDAT 

; SETUP EXPECTED SSEI = 0 

95 

047750 

013737 

001370 

001142 


NOV 

RMOFI.SBDDAT 

;GET RECIEVED DATA AND 

96 

97 

98 

047756 

042737 

176777 

001142 


BIC 

#*CSSEI,$BDDAT 

;SAVE SSEI BIT FOR COMPARE. 

047764 

032737 

001000 

001444 


BIT 

#SSE1, RMOFO 

;WAS SSEI SET BEFORE DATA TRANSFER ? 

99 

047772 

001420 




BEQ 

322$ 

;N0 

100 

047774 

123737 

001421 

001345 


CMP8 

RMDAO+1 .RMDAI+1 

;DID TRACK SWITCH OCCUR ? 

101 

050002 

001411 




BEQ 

321$ 

;N0 

102 

050004 

005737 

001142 



TST 

S6DDAT 

;IS SSEI STILL SET ? 

103 

050010 

001430 




BEQ 

324$ 

;N0 

104 

050012 

062716 

000004 



ADD 

#4.(SP) 

.•POINT TO ERROR 

105 

050016 

112776 

000225 

000000 


NOVB 

#225. a (SP) 

.-DEFINE ERROR NUMBER 

106 

107 

108 

050024 

000414 




BR 

323$ 






:REP0RT 

ERROR 

IF "SSEI" IS INCORRECT 

109 

050026 

012737 

001000 

001140 

$21$: 

NOV 

#SSEI, SGDDAT 

SETUP EXPECTED SSEI = 1 

110 

050034 

023737 

001140 

001142 

322$: 

CMP 

SGDDAT, SBDDAT 

IS SSEI CORRECT ? 

111 

050042 

001413 




BEQ 

324$ 

YES 

112 

050044 

062716 

000004 



ADD 

#4. (SP) 

POINT TO ERROR 

113 

050050 

112776 

000226 

000000 


NOVB 

#226. a (SP) 

DEFINE ERROR NUMBER 

114 

050056 

162716 

000002 


323$: 

SUB 

#2, (SP) 

ADJUST RETURN TO ERROR 
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SEQ 0200 


115 050062 

116 050064 

117 050070 

118 

119 

120 050072 

121 050076 

1 22 050104 

123 050106 

124 050114 

125 050116 

126 030124 

127 050132 

128 050140 

129 050146 

130 050150 

131 050154 

132 050162 

133 050166 

134 05C170 

135 050174 

136 

137 

138 050176 

139 050202 

140 050210 

141 050212 

142 050220 

143 050222 

144 050226 

145 050230 

146 050234 

147 050236 

148 050244 

149 050246 

150 050252 

151 050254 

152 050262 

153 050266 

154 050274 

155 050302 

156 050310 

157 050316 

158 050320 

159 050324 

160 050332 

161 050336 

162 050340 

163 050344 

164 

165 

166 050346 

167 050354 

168 050356 

169 050364 

170 050370 

171 050376 


004736 

162716 

000240 


005037 

023727 

101407 

032737 

001003 

012737 

013737 

042737 

023737 

001413 

062716 

112776 

162716 

004736 

162716 

000240 


005037 

032737 

001031 

023727 

101425 

005737 

001012 

005737 

001007 

032737 

001413 

005737 

001410 

012737 

005037 

012737 

013737 

042737 

023737 

001413 

062716 

112776 

162716 

004736 

162716 

000240 


032737 

001062 

013737 

000337 

113737 

013737 


000010 


001 KO 
050550 


001060 


002000 001352 


002000 

001350 

175777 

001140 

000004 

000017 

000002 

000010 


001140 

002000 


001140 

001142 

001142 

001142 


000000 


001352 


001340 

001000 

050552 

000001 

001352 

176777 

001140 

000004 

000020 

000002 

000010 


325$: 


JSR 

PC.a(SP)* 

.•REPORT ERROR 

SUB 

#10, (SP) 

.•RESTORE (SP) 

NOP 



ERROR 

IF '1BT“ IS NOT 

CORRECT 

CLR 

$GDDAT 

.-SET GOOD DATA FOR LBT = 0 

CMP 

500$. #560. 

.•SHOULD LBT BE SET?? 

BLOS 

325$ 

;N0! ! 

BIT 

#IAE,RMER1I 

;UAS IAE SET ?? 

BNE 

325$ 

;YES - LBT SHOULD NOT BE SET 

MOV 

#L8T,$GDDAT 

.-SET GOOD DATA FOR LBT = 1 

MOV 

RMDSI ,$BDDAT 

.-BAD DATA FOR TYPEOUT 

BIC 

#*CLBT,$8DDAT 


CMP 

$GDDAT,$8DDAT 

;IS LBT CORRECT?? 

BEQ 

330$ 

; YES ! ! 

ADD 

#4, (SP) 


MOVB 

#i7.a(SP) 

; ERROR NUMBER 

SUB 

#2, (SP) 

,‘MOVE SP TO RETURN FOR ERROR 

JSR 

pc.a(sp)* 

.•REPORT LBT IS URONG 

SUB 

#10, (SP) 

.•RESTORE (SP) 

NOP 




050550 001060 

050552 

050554 

000010 050556 


001140 335$: 
050554 

001142 340$: 

001142 

001142 


000000 


•REPORT ERROR 

$30$: CLR 

BIT 
BNE 
CMP 
BLOS 
TST 
BNE 
TST 
BNE 
BIT 
BEQ 
TST 
BEQ 

335$: MOV 

CLR 

MOV 

340$: MOV 
BIC 
CMP 
BEQ 
ADD 
MOVB 
SUB 
J SR 
SUB 
NOP 


IF "AOE" IS INCORRECT 


$GDDAT 

#IAE,RMER1I 

340$ 

500$, #560. 
340$ 

505$ 

335$ 

510$ 

335$ 

#72,515$ 

340$ 

RMWCI 

340$ 

#AOE,$GDDAT 

505$ 

#1,510$ 

RMER1I.S8DDAT 

#*CAOE,$BDDAT 

$GDDAT,$BDDAT 

345$ 

#4. (SP) 

#20,a<sp) 

#2, (SP) 

pc.acsp)* 

#10, (SP) 


SET FOR AOE = 0 
UAS "IAE" DETECTED?? 

YES- ’AOE" SHOULD BE ZERO 
SHOULD AOE BE SET?? 

NO!! 

MAYBE 

YES 


UAS THIS READ OR URITE CHECK ?? 
NO ! ! 

UAS ALL DATA TRANSFERRED ?? 

YES • ' 

SET FOR AOE = 1 
CLEAR EXPECTED TRACK 
EXPECT SECTOR = 1 
BAD DATA FOR TYPEOUT 

IS AOE CORRECTY?? 

YES!! 

ERROR NUMBER 

MOVE SP TO RETURN FOR ERROR 
REPORT AOE IS URONG 
RESTORE (SP) 


002000 001352 

050552 001140 
001140 

050554 001140 
001344 001142 


■ REPORT ERROR IF RMDA IS NOT CORRECT 


#IAE,RMER1I 

355$ 

505$,$GDDAT 
SGDDAT 
510$,$GDDAT 
RMDAI SBDDAT 


UAS THERE AN IAE ERROR ?? 
YES - DONT CHECK RMDA,RMDC 
SETUP EXPECTED DISK ADDRESS 


.•SETUP RECEIVED DISK ADDRESS 
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SEQ 0201 


SGDDAT. J8DDAT ;C0MPARE EXPECTED ft RECEIVED 

350S .-8RANCH IF EQUAL 

#4.(SP) 

#2l,a(SP) .-ERROR NUMBER 

#2, CSP) .'MOVE SP TO RETURN FOR ERROR 

PC.8(SP)+ .-REPORT BAD DISK ADDRESS 

#l6,(SP) .-RESTORE (SP) 


IF RMDC IS INCORRECT 

500$,$GDDAT .SETUP EXPECTED CYLINDER 

#*C1777,$GDDAT 

RMDCI.tBDDAT .'SETUP RECEIVED CYLINDER 

SGDDAT.SBDDAT .-COMPARE CYLINDERS 

355$ .-BRANCH IF EQUAL 


#4.(SP) 
#22,a(SP) 
#2, (SP) 
pc.a(SP)+ 
#10, (SP) 


.•ERROR NUMBER 

.MOVE SP TO RETURN FOR ERROR 
.-REPORT BAD CYLINDER 
.•RESTORE (SP) 


#4, (SP) 

a(SP) 

360$ 


#4, (SP) 
36$$ 


#4, (SP) 


PC 


0 

0 

0 

0 

0 


.-MOVE (SP) TO ERROR CALL 
;UAS ERROR FOUND?? 

;MOVE (SP) TO ERROR RETURN 

.-MOVE (SP) TO NO ERROR RETURN 


CYLINDER 

TRACK 

SECTOR 

FUNCTION CODE 

TOTAL # OF TRACKS = LAST TRACK +1 


i 


j 
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SEQ 0202 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

14 

15 

16 

17 

18 

19 

20 

21 050562 

22 

23 

24 050562 

25 050570 

26 050576 

27 050602 

28 050610 

29 

30 

31 

32 050616 

33 050622 

34 050626 

35 

36 

37 050632 

38 050636 

39 050640 

40 050646 

41 050652 

42 050656 

43 050664 

44 050670 

45 050672 

46 050676 

47 050700 

48 

49 

50 

51 050700 

52 050704 

53 

54 050706 

55 050714 

56 050720 

57 050724 


013737 

047637 

062716 

013737 

047637 


062716 

105076 

162716 


005737 

001420 

013737 

005037 

062716 

112776 

162716 

004736 

162716 

000240 


•SBTTL COMPOSITE ERROR CHECK SUBROUTINE 

.-THIS SUBROUTINE CHECKS THE STORED CONTENTS OF RMER1 AND 
;RMER2 AFTER MASKIN6 EACH REGISTER WORD WITH THE USER'S STATUS 
; MASKS AND REPORTS AN ERROR IF ANT BITS ARE LEFT ON AFTER 
.-THE MASKS ARE APPLIED. 


CALL: 

( 1 ) 


JSR 

.WORD 

.WORD 

BR 

NOP 

ERROR 

JSR 


PC.CMPERRSTS 


PC.9(SPH 


MASK FOR ERROR REGISTER 1 
MASK FOR ERROR REGISTER *» 

RETURN HERE IF NO ERROR 
RETURN HERE TO REPORT AN ERROR 
ERROR NUMBER DEFINED BY SUB 
GO BACK TO SUB FOR MORE ERROR CHECKS 
RETURN HERE IF NO MORE ERRORS 


001352 

000000 

000002 

001400 

000000 


000006 

000000 

000004 


001176 

001176 

001140 

000004 

000066 

000002 

000010 


001176 

001176 

001200 

001200 


.-NOTE: BITS TO BE MASKED SHOULD BE ONE; BITS TO BE TESTED SHOULD 
;8E ZERO 

CMPERRSTS: 

.-MASK AND STORE THE CONTENTS OF RMER1 AND RMER2 


RMER1I.STMP1 
aCSP).$TMP1 
02 ASP) 
RMER2I.STMP2 
a(SP),$TMP2 


.•CLEAR USER'S ERROR CALL 
ADD #6.(SP) 

CLRB a(SP) 

SUB #4, CSP) 


STORE RMER1 AT TEMP STORAGE 
MASK RMER1 
MOVE SP TO NEXT MASK 
STORE RMER2 AT TEMP STORACE 
MASK RMER2 


MOVE SP TO USER'S ERROR CALL 

CLEAR ERROR NUMBER 

LEAVE SP AT NO ERROR RETURN 


;SEE IF THERE WERE ANY ERRORS IN RMER1 . I.E.. STMP1 


001142 


000000 


TST $TMP1 

BEO 5$ 

MOV STMP1 .S8DDAT 
CLR SGDDAT 

ADD #4, (SP) 

M0V8 #66.a(SP) 

SUB 02 ASP) 

JSR PC.a(SP)* 

SUB #10, (SP) 

NOP 


ANY ERRORS TO REPORT?? 

NO ! ! 

RECEIVED STATUS FOR 7YPE0UT 
EXPECTED STATUS FOR TYPEOUT 
MOVE SP TO USER'S ERROR CALL 
CORRECTABLE DATA CHECK ERROR 0 
MOVE SP TO RETURN FOR ERROR 
REPORT ERROR VIA USER 
MOVE SP BACK TO BRANCH 


005737 001200 
001420 

013737 001200 001142 
005037 001140 
062716 000004 
112776 000067 000000 


;SEE IF THERE ARE ANY ERRORS TO REPORT IN RMER2 (JTMP2) 
TST STMP2 ;ANY ERRORS IN RMER2? 

BEQ 10$ .‘NO! ! 


MOV $TMP2,$8DDAT 

CLR $GDDAT 

ADD #4, (SP) 

HOVB #67.3(SP) 


RECEIVED STATUS FOR TYPEOUT 
EXPECTED STATUS FOR TYPEOUT 
MOVE SP TO USER'S ERROR CALL 
WRITE ERROR NUMBER IN USER'S CALL 


SEQ 0203 
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58 

0507 

162716 

000002 


SUB 

#2.(SP) 

;MOVE SP TO RETURN FOR ERROR 

59 

050736 

004736 



JSR 

pc.acsp)* 

#10, (SP) 

.■REPORT ERROR VIA USER 

60 

050740 

162716 

000010 


SUB 

.-MOVE SP TO NO ERROR RETURN 

61 

62 

63 

64 

050744 

050746 

000240 


10S: 

NOP 






.•AUGMENT THE 

RETURN ADDRESS 

IF ANY ERROR WAS DETECTED 

65 

050746 

062716 

000004 


ADD 

#4, (SP) 

.-MOVE SP TO USER'S ERROR CALL 

66 

050752 

105776 

000000 


TSTB 

acsp) 

.-WAS THERE AN ERROR CALLED?? 

67 

050756 

001403 



BEQ 

20$ 

;N0! J 

68 

050760 

062716 

000004 


ADD 

#4, (SP) 

30$ 

; YES - MOVE SP TO ERROR RETURN 

69 

050764 

000402 



BR 


70 

050766 

162716 

000004 

20$: 

SUB 

#4, (SP) 

.-MOVE SP TO NO ERROR RETURN 

71 

050772 

000207 


30$: 

RTS 

PC 

.•RETURN TO USER 
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J 16 


SEQ 0204 


21 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 050774 

13 

14 

15 050774 

16 051000 

17 051004 

18 

19 

20 051010 
051014 
051020 
051022 

.. 051024 

22 051032 

23 051040 

24 051044 

25 

26 

27 051050 

28 051054 

29 051062 

30 

31 Pj1070 

32 051076 

33 051100 

34 051106 

35 051114 

36 

37 051116 

38 051124 

39 051126 

40 051134 

41 051142 

42 

43 

44 051144 

45 051146 

46 051154 

47 051162 

48 

49 

50 

51 051170 
051170 
051172 
051174 


062716 

105076 

162716 


013746 

013746 

010046 

010146 

012737 

012737 

013700 

013701 


111160 

016037 

016037 

032737 

001407 

062766 

112776 

000422 

032737 

001021 

062766 

112776 

000407 


022626 

062766 

112776 

162766 


000004 

000111 


.S8TTL DEVICE SELECT SUBROUTINE 

; THIS SUBROUTINE SELECTS THE DEVICE. GETTING THE DEVICE NUMBER FROM THE 
; TEST QUEUE. 


.•CALL: 

;( 1 ) 

;( 2 > 

; (3) 

; (4) 

DEVSEL 


JSR PC. DEVSEL 

BR ?? 

NOP 

ERROR 


RETURN IF NO ERROR 

RETURN IF ERROR 

ERROR DEFINED BY SUBROUTINE 


000004 

000000 

000004 


000004 

000006 


051144 

000300 

001276 

001466 


000010 

000000 

000010 


.•CLEAR USER'S ERROR CALL 
ADD #4 ASP) 

CLRB a (SP) 

SUB #4.($P> 


.-MOVE SP TO USER'S ERROR 
.•CLEAR LOW ORDER BYTE OF 
.•MOVE SP BACK 


CALL 


.-SAVE USER'S INFORMATION AND SETUP REGISTERS 


000004 

000006 


001176 

001174 


MOV ERRVEC.-(SP) 

MOV ERRVEC+2.-CS P> 

MOV RO.**(SP) 

MOV RI.-(SP) 

MOV #20$.ERRVEC 

MOV #PR6.ERRVEC+2 

MOV SBASE.RO 

MOV TST0UE.R1 


.-.-PUSH ERRVEC ON STACK 

:;PUSH ERRVEC+2 ON STACK 
;;PUSH RO ON STACK 
.-.-PUSH R1 ON STACK 
; SETUP FOR BUS TIMEOUT 

;R0 = UNIBUS ADDRESS 

;R1 POINTS TO DEVICE NUMBER 


.•SELECT DEVICE AND VERIFY THAT DEVICE IS AVAILABLE 

MOVB (R1).RMCS2<R0) .-WRITE UNIT SELECT BITS 

MOV RHCSl (R0),$TNP1 ;GET t>VA STATUS 

MOV RMCS2(R0).*TMP0 ;GET NED STATUS 


010000 001174 


000010 

000010 


004000 001176 10$: 


000004 

000112 


000004 

000113 

000002 


000010 

000010 


BIT #NED.$TMPO 

BEQ 10$ 

ADD #4.10(SP) 

MOVB #111.aiO(SP> 

BR 30$ 

BIT #DVA.$TMP1 

BNE 35$ 

ADD #4.10(SP) 

MOVB #112.810(SP) 

BR 30$ 


rHANDLE BUS TIMEOUT 
20$: CMP (SP>+, <SP>* 

000010 ADD #4.10(SP) 

000010 MOVB #ll3.aiO(SP> 

000010 30$: SUB #2.10(SP) 


;IS DEVICE NONEXISTENT ? 

•NO 1 1 

•MOVE SP TO USERS ERROR CALL 
.•WRITE ERROR NUMBER 


IS DEVICE AVAILABLE ? 

YES!! 

MOVE SP TO USERS ERROR CALL 
WRITE ERROR NUMBER 


.•ADJUST SP 

.-MOVE SP TO USERS ERROR CALL 
.•WRITE BUS TIMEOUT ERROR NUMBER 
.•ADJUST RETURN TO 'NOP' PRECEDING 
.-THE ERROR CALL 


012601 

012600 

012637 000006 


rRESTORE USERS DATA AND RETURN TO ADDRESS ON STACK 

5$ ‘ MOV CSPI+.R1 ;;POP STACK INTO R1 

MOV (SPJ+.RO ;;POP STACK INTO RO 

MOV (SPI+.ERRVEC+2 ;;POP STACK INTO ERRVEC+2 


K 16 


SEQ 0205 
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DEVICE SELECT SUBROUTINE 

MOV (SP) ♦.ERRVEC 

RTS PC 


051200 012637 000004 
52 051204 000207 


;;POP STACK INTO ERRVEC 
.‘EXIT 
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L 16 


SEQ 0206 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 051206 

20 
21 

22 051206 

23 051210 

24 051214 

25 051220 

26 051224 

27 

28 

29 

30 051230 

31 051236 

32 051240 

33 051246 

34 

35 

36 051250 

37 051254 

38 051262 

39 051266 

40 051274 

41 051300 

42 051302 

43 051306 

44 

45 

46 

47 

48 051310 

49 051316 

50 051324 

51 051332 

52 051334 

53 

54 051342 

55 051350 

56 

57 051352 


000240 

062716 

105076 

162716 

005037 


032737 

001424 

032737 

001020 


005037 

013737 

062716 

112776 

162716 

004736 

162716 

000447 


012737 

052737 

023727 

101035 

042737 

123737 

101026 

123727 


000004 

000000 

000004 

052464 


000010 

000010 


001140 

001352 

000004 

000050 

000002 

000010 


.SBTTL SEEK STATUS CHECK SUBROUTINE 

THIS SUBROUTINE VERIFIES THE RESULTS OF SEEK TESTS USING STATUS 
STORED IN THE GET BUFFER AND TEST PARAMETERS STORED IN THE PUT BUFFER. 

THE SUBROUTINE RETURNS TO THE CALLING ROUTINE IF AN ERROR IS DETECTED 
AFTER HAVING LOADED THE APPROPRIATE ERROR NUMBER IN THE , tRROR , ‘ TRAP 
OF THE CALLING ROUTINE. SEEK STATUS IS CHECKED AS FOLLOWS: 


CALL: 

(1) 


JSR 

BR 

NOP 

ERROR 

JSR 

tt') 


PC.SEKSTS 


pc.acsp)* 


RETURN HERE IF NO ERROR 
RETURN HERE TO REPORT AN ERROR 
ERROR NUMBER DEFINED BY SUB 
GO BACK TO SUB FOR MORE ERROR CHECKS 
RETURN HERE IF NO MORE ERRORS 


MOVE (SP) TO ERROR CALL 
CLEAR ERROR NUMBER 
MOVE CSP) TO NO ERROR RETURN 
CLEAR ERROR FLAGS 


001352 

001400 

001142 

000000 


SEKSTS: 

; CLEAR USERS' ERROR CALL 
NOP 

ADD #4, (SP) 

CLRB MS P) 

SUB #4, (SP) 

CLR 306 $ 

.-TEST FOR MASSBUS CONTROL BUS PARITY ERROR WHEN WRITING 
.•LOCAL REGISTERS. I.E., "PAR" = 1 AND DPE = 0 
BIT #PAR,RMER1I 

8EQ IS 

BIT #DPE,RMER2I 

BNE 1$ 

.•REPORT REGISTER PARITY ERROR VIA USER'S ERROR CALL 


;WAS PARITY ERROR DETECTED?? 
•NO* 1 

•WAS* IT DUE TO CONTROL BUS?? 
;NOT SURE!! 


CLR SGDDAT 

MOV RMER1I.SBDDAT 

ADD #4. (SP) 

MOVB #50,S<SP) 

SUB #2,(SP) 

JSR PC.8(SP)+ 

SUB #10, (SP) 

BR 3$ 


.•EXPECTED STATUS 
; RECEIVED STATUS 
;MOVE STACK TO USER'S ERROR 
.-ERROR #50 

.-MOVE SP TO RETURN FOR ERROR 

.•RESTORE STACK 
;IAE SHOULD BE ZERO 


DETERMINE THE VALUE OF ''lAE” STATUS BASED ON TRACK, SECTOR, CYLINDER 




;IF 

CYLINDER 

002000 

001140 

IS: 

MOV 

040000 

052464 


BIS 

001446 

001060 


CMP 



BHI 

040000 

052464 


BIC 

001421 

001335 


CMP8 

BHI 

001420 

000035 


CMP8 


w * w * ww 

#IAE, SGDDAT 

#SKI,300S 

RMDC0,#560. 

3S 

#SKI ,300S 


.•SETUP FOR IAE = 1 
.•SETUP FOR SKI = 1 
; GREATER THAN LAST CYLINDER ? 
•YES - CYLINDER IS INVALID 
.•CLEAR SKI ERROR FLAG 


RMDAO+1 .LSTRK+1 .-GREATER THAN LAST TRACK ? 
3$ ; YES - TRACK IS INVALID 


RMDA0,#29. 


.•SECTOR > 29. ? 



e i 


SEQ 0207 
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58 

59 

60 
61 
62 
65 

64 

65 


051360 
051362 
051370 
051372 
051400 
051402 
051410 
051412 
66 051420 
j7 

051422 


68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 
101 
102 

103 

104 

105 

106 


101420 

032737 

001416 

123727 

101410 

032737 

001406 

123727 

101002 


051426 

051434 

051442 

051450 

051452 

051460 

051462 

051462 

051466 

051474 

051500 

051502 

051506 

051510 


051510 
051516 
051520 
051524 
051532 
051536 
051544 
051552 
051554 
051562 
051566 
051 57U 
051574 


010000 

001420 

001000 

001420 


005037 001140 


051576 
051604 
_ 051612 

107 051620 

108 051626 

109 

110 

111 051630 

112 051636 

113 051640 

114 051644 


013737 

042737 

023737 

001004 

042737 

000413 


962716 

112776 

162716 

004736 

162716 

000240 


032737 

001477 

005037 

013737 

062716 

112776 

032737 

001403 

112776 

162716 

004736 

162716 

000240 

013737 

042737 

013737 

042737 

001417 


032737 

001032 

062716 

112776 


001352 

175777 

001140 


000004 

000051 

000902 

000010 


001444 

000036 

001444 

000037 


001142 

001142 

001142 


040000 052464 


000000 


010000 001400 


001140 

001400 

000004 

000060 

000100 

000061 

000002 

000010 


001400 

137777 

052464 

137777 


0400^0 

000004 

000267 


2 $: 


BLOS 2S 

BIT #FMT16,RM0F0 
BEQ 3$ 

CMP8 RMDAO.#30. 

BLOS 2$ 

BIT fSSEI.RMOFO 

BEQ 3* 

CMP8 RMDA0,#31. 

BH1 3$ 

CLR SGDDAT 


COMPARE EXPECTED AND RECIEVED 


$$ 


35$ 


MOV RMER1I,$BDDAT 

BIC #*CIAE ,$BDDAT 

CMP SGDDAT, SBDDAT 

BNE 35$ 

BIC #SKI ,300$ 

BR 5$ 


;8R IF NO 

;18 BIT FORMAT ? 

; YES - SECTOR IS INVALID FOR 18 BIT MODE 
.•SECTOR > 30. ? 

;BR IF NO 

;IS SSEI CLEAR ? 

; YES - SECTOR IS INVALID FOR 16 BIT MODE 
;SECTOR > 31 . ? 

; YES - SECTOR IS INVALID 

;‘'IAE" SHOULD 0 

'IAE" STATUS 
•IS IAE OK?'* 

•SAVE IAE BIT FOR COMPARE 
.•CORRECT ''IAE'* STATUS ? 

;BR IF NO 
; CLEAR SKI FLAG 
;G0 CHECK NEXT ERROR 


; REPORT INCORRECT "IAE” STATUS VIA USER’S ERROR CALL 


5$: 


ADD 

M0V8 

SUB 

JSR 

SUB 

NOP 


#4»(SP) 
#5i,8(SP) 
M2 ASP) 
PC.a(SP)* 
#10,(SP) 


ERROR 51 

MOVE SP TO RETURN FOR ERROR 
REPORT INCORRECT IAE 
; RESTORE (SP) 


; REPORT ANY I VC ERROR AS 

I VC ERROR WITH VOLUME VALID ZERO 
ERRONEOUS IVC ERROR, VOLUME VALID IS SET 


001142 

000000 

001350 

000000 


001142 

001142 

00114c 

001140 


001142 

000000 


BIT #IV C.RMER2I 

BEQ 52$ 

CLR $GDDAT 

MOV RMER2I f $BDDAT 

ADD #4.(SP) 

MOVB #60,a(SP) 

BIT fVV.RMDSI 

BEQ 51$ 

MOVB #61.a(SP) 

51$: SUB M2 ASP) 

JSR PC.8(SP)+ 

SUB #l6,(SP) 

NOP 

52$: MOV RMER2I,$BDDAT 

BIC # A CSKI ,$BDDAT 

MOV 300$,$GDDAT 

BIC fCSKI.$GDDAT 

BEQ 53$ 


IVC ERROR?? 

NO 1 1 

EXPECTED STATUS 
RECEIVED STATUS 
MOVE SP TO USER'S ERROR 
ERROR 60 IF VV = 0 


ERROR 61 IF VV =1 
MOVE SP TO RETURN FOR ERROR 
REPORT ERROR VIA USER 
RESTORE SP 


;RECEIVED STATUS 
.‘CLEAR DONT CARES 
;GET EXPECTED SKI STATUS 
; CLEAR DONT CARES 
.•BRANCH IF 0 EXPECTED 


.•REPORT ERROR IF SKI IS NOT SET (IAE WAS NOT DETECTED) 


BIT 

BNE 

ADD 

MOVB 


#SKI.$BDDAT 

54$ 

#4,(SP) 

#2&7,a(SP) 


WAS SKI DETECTED ?? 

YES ! ! 

MOVE SP TO USERS ERROR CALL 
WRITE ERROR NUMBER 
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C 1 


115 051652 

116 051656 

117 051660 

118 051664 

119 051666 
12C 

121 

122 051666 

123 051674 

124 051676 

125 051702 

126 051710 

127 051714 

128 051716 

129 051722 

130 

131 

132 051724 

133 051732 

134 051734 

135 051740 

136 051746 

137 051752 

138 051760 

139 051764 

140 051766 

141 051772 

142 

143 

144 

145 051774 

146 052002 

147 052004 

148 052010 

149 052016 

150 052022 

151 052030 

152 052036 

153 052040 

154 052046 

155 052052 

156 052054 

157 052060 

158 

159 

160 052062 

161 052066 

162 052072 

163 052076 

164 052100 

165 

166 

167 052104 

168 052112 

169 052114 

170 052122 

171 052124 


162716 

004736 

162716 

000443 


032737 

001413 

062716 

112776 

162716 

004736 

162716 

000240 


032737 

001420 

005037 

013737 

062716 

112776 

162716 

004736 

162716 

000240 


032737 

001427 

005037 

013737 

062716 

112776 

032737 

001403 

112776 

162716 

004736 

162716 

000240 


013746 

042716 

022726 

001002 

000137 


032737 

001030 

032737 

001024 

013737 


000002 

000010 

040000 0U1142 
000004 

000054 000000 
000002 

000010 


53$: 


SUB 

JSR 

SUB 

BR 


#2.(SP) 
PC.BCSP)* 
#10, (SP) 

6 $ 


.•REPORT ERROR IF SKI IS SET 


BIT 

6EQ 

ADD 

MOVB 

SUB 

JSR 

SUB 

NOP 


#SKI,$BDDAT 

54$ 

#4, (SP) 

#54,acsp> 
#2,(SP) 
pc.acsp)* 
#10, (SP) 


000200 001400 §4$ 
001140 

001400 001142 
000004 

000055 000000 
000002 


REPORT ANY DEVICE CHECK 


000010 


020000 

001140 

001352 

000004 

000052 

010000 

000053 

000002 

000010 


001350 

047677 

110100 

052434 


010000 001350 
020000 001352 
001350 001140 


BIT #DVC,RMER2I 

BEQ 6$ 

CLR $GDDAT 

MOV RMER2I ,$BDDAT 

ADD #4,<SP) 

MOVB #55,a<SP) 

SUB #2,(SP) 

jsr pc.a(sp)* 

SUB #10. (SP) 

NOP 


MOVE SP TO ERROR RETURN 
REPORT ERROR AND RETURN 
MOVE SP TO NO ERROR 
GO TO NEXT ERROR CHECK 


IS SKI SET ?? 

NO - SKI IS OK 

MOVE (SP) TO ERROR 

LOAD ERROR NUMBER 

MOVE SP TO RETURN FOR CRROR 

REPORT SEEK ERROR 

RESTORE (SP) 


UAS THERE DVC DURING SEEK?? 
NO! ! 

EXPECTED STATUS 
RECEIVED STATUS 

ERROR #55 

MOVE SP TO RETURN FOR ERROR 
REPORT ERiTOP VIA USER 
RESTORE SP 


.•REPORT ANY •lOPI" ERROR AS OPI WITH MOL =0, OR OPI 
.-BECAUSE ON CYLINDER LATCH DIDN'T RESET 

.••WI" ERROR?? 

*N0' 1 

•EXPECTED STATUS 
.-RECEIVED STATUS 
.-MOVE (SP) TO ERROR 
.-LOAD ERROR NUMBER 
;WAS MEDIUM ON LINE?? 

;N0!! 

;YES - CHANGE ERROR NUMBER 
.-MOVE SP TO RETURN FOR ERROR 
.•REPORT •W* ERROR 
.•RESTORE (SP) 

•SEE IF •PIP" = 0, AND "ATA". ‘MOL" AND ’W" = 1 
6$: MOV RMDSI.-(SP) 

BIC #*C<ATA!PIP!MOL! VV>,(SP) 

CMP #ATA!MOL!VV,(SP)+ 

BNE 9$ ; ERROR IN RMDS 

JMP 14$ ;RMDS IS OK 

REPORT ERROR IF MOL = 0 AND OPI = 0 


001352 

6$: 

BIT 

#0PI.RMER1I 



BEQ 

8$ 



CLR 

SGDDAT 

001142 


MOV 

RMER1 I ,$8DDAT 



ADD 

#4.(SP) 

000000 


MOVB 

#52.a(SP) 

001350 


BIT 

#MOL.RMOSI 



BEQ 

7$ 

000000 


MOVB 

#53,a(SP) 


7$: 

SUB 

#2,(SP) 



JSR 

pc.a(sp)+ 



SUB 

#10. (SP) 



NOP 



$$: BIT #MOL,RMDSI 

BNE 10$ 

BIT #0PI,RMER1I 

BNE 10$ 

MOV RMDSI,$GDDAT 


IS MOL RESET?? 

NO - MOL IS SET 
UAS OPI SET 

YES - DONT REPORT ERROR 
EXPECTED STATUS 


SEQ 0208 



SEQ 0209 
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172 052132 

173 052140 

174 052146 

175 052152 

176 052160 

177 052164 

178 052166 

179 052172 

180 
181 

182 052174 

183 052202 

184 052204 

185 052212 

186 052214 

187 052222 

188 052230 

189 052236 

190 052242 

191 052250 

192 052254 

193 052256 

194 052262 

195 


052737 

013737 

062716 

112776 

162716 

004736 

162716 

000240 


032737 

001430 

032737 

001024 

013737 

042737 

013737 

062716 

112776 

162716 

004736 

162716 

000240 


010000 

001350 

000004 

000062 

000002 

000010 


001140 

001142 

000000 


020000 001350 
040000 001400 


001350 

020000 

001350 

000004 

000056 

000002 

000010 


001140 

001142 

001142 

000000 


BIS #MOL,$GDDAT 

MOV RMDSI ,$BDDAT 

ADD #4. (SP) 

MOVB #62,i(SP) 

SUB 02. (SP) 

jsr pc.a(sp)+ 

SUt #10. (SP) 

NOP 

.•REPORT AN ERROR IF 'WP" IS 
10$: BIT #PIP, RMDSI 

BEO 11$ 

BIT #SKI .RMER2I 

BNE 11$ 

MOV RMDSI .$GDDAT 

81 C #PIP.$8DDAT 

MOV RMDSI ,$BDDAT 

ADD #4, (SP) 

MOVB #56.a(SP) 

SUB 02, (SP) 

JSR PC.a(SPH 

SUB #10. (SP) 

NOP 


RECEIVED STATUS 


.-MOVE SP TO RETURN FOR ERROR 
; REPORT ERROR VIA USER 


STIL SET AND SKI NOT SET 
; IS 'PIP" STILL SET?? 

;N0! ! 

;UAS "SKI"SET?? 

; VES-DONT REPORT PIP 
.-EXPECTED STATUS 

.•RECEIVED STATUS 
.-MOVE (SP) TO ERROR 
;LOAD ERROR NUMBER 
.’MOVE SP TO RETURN FOR ERROR 
.-REPORT 'PIP" SET AFTER SEEK 
.-RESTORE (SP) 


.-REPORT AN ERROR IF "ATA" IS NOT 


197 052264 

032737 

100000 

001350 11$: 

BIT 

#ATA. RMDSI 

WAS "ATA" SET ?? 

198 052272 

001024 



BNE 

13$ 

YES! ! 

199 052274 

013737 

001350 

001140 

NOV 

RMDSI. $GDDAT 

EXPECTED STATUS 

200 052302 

052737 

110600 

001140 

BIS 

#ATAJNOL!DPR!DRV 

$GDDAT 

201 052310 

013737 

001350 

001142 

MOV 

RMDSI. SBDDAT 

RECEIVED STATUS 

202 052316 

062716 

000004 


ADD 

#4,(SP) 

MOVE (SP) TO ERROR 

203 052322 

112776 

000057 

000000 

MOVB 

#5?.a(SP) 

LOAD ERROR NUMBER 

204 052330 

162716 

000002 


SUB 

#2.(SP> 

MOVE SP TO RETURN FOR ERROR 

205 052334 

004736 



JSR 

PC.a(SP)* 

REPORT ATTENTION NOT SET DURING 

206 






SEEK TEST 

207 C52336 

162716 

000010 


SUB 

#10. (SP) 

.-RESTORE (SP) 

208 052342 

000240 



NOP 




cvy 

210 




.-REPORT ERROR 

IF VOLUME VALID 

IS RESET AND IVC IS ZERO 

211 052344 

032737 

000100 

001350 

13$: BIT 

#VV, RMDSI 

.-is vv = o ?? 

212 052352 

001030 



BNE 

14$ 

;N0! ! 

213 052354 

032737 

010000 

001400 

BIT 

#IVC,RNER2I 

;IS IVC ALSO 0 ?? 

214 052362 

001024 



BNE 

14$ 

;N0 - IVC IS SET 

215 052364 

013737 

001350 

001140 

MOV 

RMDSI. $GDDAT 

.-EXPECTED STATUS 

216 052372 

052737 

000100 

001140 

BIS 

#VV.$GDDAT 

.-RECEIVED STATUS 

217 052400 

013737 

001350 

001142 

MOV 

RMDSI. $6DDAT 

218 052406 

062716 

000004 


ADD 

#4.(SP) 

#64,8(SP) 

.-ERROR #64 

219 052412 

112776 

000064 

000000 

MOVB 

220 052420 

162716 

000002 


SUB 

#2, (SP) 

.-MOVE SP TO RETURN FOR ERROR 

221 052*24 

004736 



JSR 

pc.a(SP)* 

#10. (SP) 


222 052426 

162716 

000010 


SUB 


223 052432 

000240 



NOP 



i 224 052434 

226 




14$: 






.-MODI FT THE RETURN ADDRESS IF 

AN ERROR WAS DETECTED 

227 052434 

000240 



NOP 


.-MOVE (SP) TO ERROR CALL 

228 052436 

062716 

000004 


ADD 

#4,(SP) 



1 


UAS ERROR CALLED?? 
NO!! 

MOVE TO ERROR RETURN 


SEQ 0210 


.-MOVE (SP) TO NO ERROR RETURN 
.•RETURN 

; ERROR F LAGS 
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F 1 


SET 0211 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 0524o6 
052466 
052470 
052472 
052476 

13 052502 

14 052510 

15 052516 

16 052522 

17 052530 

18 052534 

19 052540 

20 

21 052542 

22 052544 

23 052552 

24 052560 

25 052566 
052566 
052572 
052576 
052600 

26 052602 


010046 

010146 

013746 

013746 

012737 

012737 

013700 

012760 

013701 

111160 

000412 

022626 

062766 

112776 

162766 

012637 

012637 

012601 

012600 

000207 


.SBTTL CONTROLLER CLEAR SUBROUTINE 

THIS SUBROUTINE CLEARS THE MASS8US CONTROLLER. MASSBUS ADAPTERS. 
AND DRIVES. THEN SELECTS THE DRIVE. 


CALL: 


CNTCLR: 


000004 

C00006 

052542 

000300 

001276 

000040 

001466 

000010 


000004 

000007 

000002 

000006 

000004 


000004 

000006 

000010 


000010 

000010 

000010 


10 $: 


20 $: 


JSR 

BR 

NOP 

ERROR 


MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOVB 

BR 

CMP 

ADD 

MOVB 

SUB 

MOV 

MOV 

MOV 

MOV 

RTS 


PC. CNTCLR 


RO.-(SP) 

R1 ,-(SP) 
ERRVEC, -<SP> 
ERRVEC*2,-(SP> 
#10$.ERRVEC 
#PR6,ERRVEC*2 
$BASE,R0 
#CLR.RHCS2(R0) 
TSTQUE.R1 
(R1),RMCS2(R0) 
20 $ 

<SP)*.(SP)* 

#4,10(SP) 

#7.ai0(sp) 

#2,10(SP) 

<SP)*,ERRVEC*2 
<SP)+. ERRVEC 
(SP)*.R1 
(SPH.RO 
PC 


RETURN HERE IF NO ERROR FOUND 
RETURN HERE IF ANY ERROR FOUND 
SUB DEFINES ERROR NUMBER 


.-.-PUSH RO ON STACK 
; ; PUSH R1 ON STACK 
; ; PUSH ERRVEC ON STACK 

.-.-PUSH ERRVEC*: ON STACK 
.•SETUP FOR BUS TIMEOUT 


;R0 = UNIBUS ADDRESS 
.•CLEAR MASSBUS 
.-GET DEVICE UNDER TEST 
.•SELECT DEVICE 


ADJUST STACK 

MOVE SP TO USER'S ERROR CALL 
WRITE THE ERROR NUMBER 
ADJUST SP TO RETURN TO ERROR 

; ;POP STACK INTO ERRVEC+2 
POP STACK INTO ERRVEC 
POP STACK INTO R1 
POP STACK INTO RO 
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JEQ 0212 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 

22 052604 

23 

24 

25 052604 

26 052610 

27 052614 


.S8TTL CONTROLLER CLEAR STATUS CHECK SUBROUTINE 

THIS SUBROUTINE VERIFIES THAT THE SUBSYSTEM IS INITIALIZED BASED ON 
STATUS STORED IN THE GET BUFFER. THIS SUBROUTINE SHOULD ONLY BE 
USED FOLLOWING A CONTROLLER CLEAR OPERATION. I.E.. WRITING A 1 IN BIT 
5 OF RMCS2. BECAUSE THE ERROR MESSAGES ARE BASED ON THAT CONDITION. 

STATUS PERTINENT TO THE DEVICE IS NOT CHECKED. IN PARTICULAR. THE 
FOLLOWING STATUS BITS ARE NOT CHECKED: 

ATA, ERR, PIP, MOL, WRL,L8T,P6M,VV,QM,UNS, SKI .DVC 


CALL: 

( 1 ) 


JSR 

PC. CLRSTS 


BR 

NOP 

ERROR 

??? 

RETURN HERE IF NO ERROR 

RETURN HERE TO REPORT AN ERROR 

ERROR NUMBER DEFINED BY SUB 

JSR 

??? 

PC,3(SPH 

GO BACK TO SUB FOR MORE ERROR CHECKS 
RETURN HERE IF NO MORE ERRORS 


062716 

105076 

162716 


000004 

000000 

000004 


CLRSTS: 

.•CLEAR USER'S 
ADD 


ERROR CALL 
#4,(SP) 
a(SP> 

#4 ASP) 


IF RMCS1 NOT INITIALIZED 


29 052620 

013737 

001336 

001142 4$: 

MOV 

RMCS1I.SBDDAT 

.•VERIFY RMCS1 

30 052626 

042737 

100000 

001142 

BIC 

#SC.$6DDAT 

.•IGNORE SPECIAL CONDITION 

31 052634 

012737 

004200 

001140 

MOV 

#DVA!RDY, SGDDAT 

.•EXPECT DVA ft RDY 

32 052642 

023737 

001140 

001142 

CMP 

SGDDAT, S8DDAT 

.•COMPARE EXPECTED, RECEIVED 

33 052650 

001413 



BED 

5S 

.-BRANCH IF EQUAL 

34 052652 

062716 

000004 


ADD 

#4,.(SP) 

#i$6.a(sp) 

;MOVE SP TO USER'S ERROR CALL 

35 052656 

112776 

000126 

000000 

MOVB 

;WITE ERROR NUMBER IN CALL 

36 052664 

162716 

000002 


SUB 

02 ASP) 

.•MOVE SP TO RETURN FOR ERROR 

37 052670 

004736 



JSR 

pc.a(SP)* 

#10, (SP) 

.•REPORT ERROR VIA USER 

38 052672 

162716 

000010 


SUB 

.-MOVE SP BACK TO NO ERROR 

39 052676 

000240 



NOP 



MOVE S P TO ERROR 
CLEAR ERROR NUMBER 
MOVE SP BACK TO NO ERROR 


40 

41 052700 

42 052704 

43 052712 

44 052714 

45 052720 

46 052726 

47 052732 

48 052734 

49 052740 

50 

51 052742 

52 052750 

53 052752 

54 052754 

55 052760 

56 052762 

57 052766 


005037 

013737 

001413 

062716 

112776 

162716 

004736 

162716 

000240 

013737 

010146 

005046 

013701 

111116 

052716 

012637 


001140 

001342 

000004 

000127 

000002 

000010 


001142 


000000 


001346 001142 


001466 


000100 

001140 


; REPORT ERROR 
5$: CLR 

MOV 
BED 
ADD 
MOVB 
SUB 
JSR 
SUB 
NOP 

; REPORT ERROR 
7$: MOV 

MOV 
CLR 
MOV 
MOVB 
BIS 
MOV 


IF RMBA NOT RESET 
SGDDAT 

RMBAI.SBDDAT 

7$ 

HASP) 

#l27,a<SP> 

#2, CSP) 

pc.a(sp>+ 

#10. (SP) 


.•VERIFY RMBA IS ZERO 

.•BRANCH IF ZERO 
.-MOVE SP TO USER'S ERROR CALL 
;WITE ERROR NUMBER IN CALL 
.-MOVE SP TO RETURN FOR ERROR 
.•REPORT ERROR VIA USER 
.-MOVE SP BACK TO NO ERROR 


IF RMCS2 NOT INITIALIZED 


RMCS2I.S8DDAT 

RI.-(SP) 

-(SP) 

TSTQUE.R1 

(RI).(SP) 

#IR. (SP) 
(SPH.S6DDAT 


VERIFY RMCS2 
;PUSH R1 ON STACK 
EXPECT IR & UNIT NUMBER 
R1 = ADDRESS OF TEST QUE 


H 1 
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58 

052772 

012601 


001142 

59 

052774 

023737 

001140 

60 

053002 

001413 



61 

053004 

062716 

000004 

000000 

62 

053010 

112776 

000130 

63 

053016 

162716 

000002 


64 

053022 

004736 



65 

053024 

162716 

000010 


66 

67 

68 

053030 

000240 



053032 

005037 

001140 

001142 

69 

053036 

013737 

001352 

70 

053044 

042737 

040000 

001142 

71 

053052 

001413 



72 

053054 

062716 

000004 

000000 

73 

053060 

112776 

000131 

74 

053066 

162716 

000002 


75 

053072 

004736 



76 

053074 

162716 

000010 


77 

78 

79 

053100 

000240 



053102 

013737 

001362 

001142 

80 

053110 

042737 

000046 

001142 

81 

053116 

012737 

000010 

001140 

82 

053124 

023737 

001140 

001142 

83 

053132 

001413 



84 

053134 

062716 

000004 


85 

053140 

112776 

000133 

000000 

86 

053146 

162716 

000002 


87 

053152 

004736 



88 

053154 

162716 

000010 


89 

90 

91 

053160 

000240 



053162 

005037 

001140 


92 

053166 

013737 

001404 

001142 

93 

053174 

001413 



94 

053176 

062716 

000004 


95 

053202 

112776 

000135 

000000 

96 

053210 

162716 

000002 


97 

053214 

004736 



98 

053216 

162716 

000010 


99 

053222 

000240 



100 





101 

053224 

013737 

001376 

001142 

102 

053232 

04 , 737 

140000 

001142 

103 

053240 

012737 

011777 

001140 

104 

053246 

023737 

001140 

001142 

105 

053254 

001413 



1 06 

053256 

062716 

000004 


107 

053262 

112776 

000136 

OOOOCO 

108 

053270 

162716 

000002 


109 

053274 

004736 



110 

053276 

162716 

000010 


111 

053302 

000240 



112 





113 

053304 

005037 

001140 


114 

053310 

013737 

001400 

001142 


;REP0RT 

$S: 


.•REPORT 

13$: 


.•REPORT 

17 $: 


MOV 
CMP 
BEQ 
ADD 
MOVB 
SUB 
JSR 
SUB 
NOP 

ERROR IF RMER1 


(SP)*,R1 

$GDDAT,$BDDAT 

9$ 

#4. (SP) 
#130,8(SP) 

M2. (SP) 
PC,8(SP)+ 

#10, (SP) 


;P0P STACK INTO R1 
COMPARE EXPECTED t RECEIVED 
BRANCH IF EOUAL 
MOVE SP TO USER'S ERROR CALL 
UI TE ERROR NUMBER IN CALL 
MOVE SP TO RETURN FOR ERROR 
REPORT ERROR VIA USER 
MOVE SP BACK TO NO ERROR 


.-REPORT 

19 $: 


CLR 
MOV 
BIC 
BEQ 
ADD 
MOVB 
SUB 
JSR 
SUB 
NOP 
ERROR IF 
MOV 


NOT RESET-IGNORE UNS 


$GDDAT 
RMER1I ,$BDDAT 
#'JNS, SBDDAT 
13$ 

#4, (SP) 

#131 ,8(SP) 

#2, (SP) 
PC.8(SP)+ 

#10, (SP) 


VERIFY RMER1 

IGNORE UNSAFE 

BRANCH IF ZERO 

MOVE SP TO USER'S ERROR CALL 

UITE ERROR NUMBER IN CALL 

MOVE SP TO RETURN FOR ERROR 

REPORT ERROR VIA USER 

MOVE SP BACK TO NO ERROR 


NOT 


RMMR1 

RMMR1 I. SBDDAT 
#WC .'LSI LST ,$BDDAT 
#MWD,$GDDAT 
$GDDAT,$BDDAT 
17 $ 

#4,(SP) 

#1$3.8<SP> 

#2, (SP) 

PC.8(SPH 
#10, (SP) 


BIC 
MOV 
CM P 
BEQ 
ADD 
MOVB 
SUB 
JSR 
SUB 
NOP 

AN ERROR IF RMEC2 IS NOT RESET 


INITIALIZED-I6N0RE WC.LS.LST 
VERIFY RMMR 

.'IGNORE WORD CLOCK, SCT, 
EXPECT WRITE DATA BIT 
COMPARE EXPECTED AND RECEIVED 
BRANCH IF 0 

MOVE SP TO USER'S ERROR CALL 
WITE ERROR NUMBER IN CALL 
MOVE SP TO RETURN FOR ERROR 
REPORT ERROR VIA USER 


MOVE SP BACK TO NO ERROR 


SGDDAT 
RMEC2I.S8DDAT 
19$ 

#4 .(SP) 
#135,8(SP) 

#2, (SP) 
PC.8(SPH 
#10, (SP) 


MOV 

BIC 

MOV 

CMP 

BEQ 

ADD 

MOVB 

SUB 

JSR 

SUB 


.'EXPECT ZEROS 
.'VERIFY RMEC2 = 0 

.'MOVE SP TO USER'S ERROR CALL 
;UITE ERROR NUMBER IN CALL 
.'MOVE SP TO RETURN FOR ERROR 
.’REPORT ERROR VIA USER 
.‘MOVE SP BACK TO NO ERROR 


.•EXPECT TEST BIT ON 


CLR 
MOV 
BEQ 
ADD 
MOVB 
SUB 
JSR 
SUB 
NOP 

ERROR IF RMMR2 NOT INITIALIZED-IGNORE RQA.RQB 
RMMR2I,$BDDAT .'VERIFY RMMR2 
#RQA!RQB, SBDDAT 
#TST!1777,$GDDAT 
SGDDAT, SBDDAT 
21 $ 

;MOVE SP TO USER'S ERROR CALL 
;WITE ERROR NUMBER IN CALL 
.'MOVE SP TO RETURN FOR ERROR 
.'REPORT ERROR VIA USER 
,'MOVE SP BACK TO NO ERROR 


#4,<SP) 
#136,8(SP) 
M2. (SP) 
PC.8(SPH 
#10, (SP) 


: REPORT 
* 1 $: 


NOP 

ERROR IF RMER2 NOT RESET-IGNORE SKI.DVC 

.'EXPECT ALL ZEROS 


CLR 

MOV 


SGDDAT 

RMER2 1, SBDDAT .-VERIFY RMER2 


TRK 
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I 1 


115 053316 

116 053324 

117 053326 

118 053332 
1 ',9 053340 

120 053344 

121 053346 

122 053352 

123 

124 053354 

125 053362 

126 053370 

127 053376 

128 053404 

129 053406 

130 053412 

131 053420 

132 053424 

133 053426 

134 053432 

135 053434 

136 053440 

137 053444 

138 053446 

139 053452 

140 053454 

141 053460 

142 053462 


042737 

040200 

001142 


BIC 

001413 




BEQ 

062716 

000004 



ADD 

112776 

000174 

000000 


MOVB 

162716 

000002 



SUB 

004736 




JSR 

162716 

000010 



SUB 

000240 




NOP 




•REPORT 

ERROR 

013737 

001350 

001142 

$15$: 

MOV 

042737 

177177 

001142 


BIC 

012737 

000600 

001140 


MOV 

023737 

001140 

001142 


CMP 

001413 




BEQ 

062716 

000004 



ADD 

112776 

000134 

000000 


MOVB 

162716 

000002 



SUB 

004736 




JSR 

162716 

000010 



SUB 

000240 




NOP 

062716 

000004 

' 

22$: 

ADD 

105776 

000000 



TSTB 

001403 




BEO 

062716 

000004 



ADD 

000402 




BR 

162716 

000004 


23$: 

SUB 

000240 



24$: 

NOP 

000207 




RTS 


#SKI !DVC,$8DDAT .-IGNORE DEVICE ERRORS 

215$ .-BRANCH IF OTHER BITS 0 

#4, (SP) .-WOVE SP TO USER'S ERROR CALL 

#1?4,a(SP) ;WITE ERROR NUMBER IN CALL 

#2,(SP) .‘MOVE SP TO RETURN FOR ERROR 

PC.iCSPH .-REPORT ERROR VIA USER 

#l6.(SP) .'MOVE SP BACK TO NO ERROR 

IF RMDS NOT INITIALIZED 
RMDSI.SBDDAT ;TEST DRIVE STATUS REGISTER 
# A C <DR Y ! DPR> , JBDDAT 


#DPR!DRY,$GDDAT 
$GDDAT.$BDDAT 
22 $ 

#4. (SP) 
#iS4.a<sp) 
#2.(SP) 

pc.a<sp>* 

#10. (SP) 

#4, (SP) 

a (sp) 

23$ 

#4.(SP) 

24i 

#4,(SP) 

PC 


EXPECTED DRIVE STATUS 
COMPARE EXPECTED l RECEIVED 
BRANCH IF EQUAL 
MOVE SP TO USER'S ERROR CALL 
WRITE ERROR NUMBER 
MOVE SP TO RETURN FOR ERROR 
REPORT ERROR TO USER 
MOVE SP BACK TO NO ERROR 

MOVE SP TO ERROR CALL 
WAS AN ERROE DETECTED?? 

NO.'! 

YES - MOVE TO ERROR RETURN 
MOVE SP TO NO ERROR RETURN 



SEQ 0215 
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.S8TTL PACK ACKNOWLEDGE STATUS CHECK 

;THIS SUBROUTINE CHECKS THE RESULTS OF A PACK ACKNOWLEDGE 
.'COMMAND USING THE STATUS STORED IN THE GET BUFFER. ERRORS ARE 
.•REPORTED TO THE USER VIA THE USER'S ERROR CALL. 


CALL: 

(1) 


JSR 

BR 

NOP 

ERROR 

JSR 


PC.ACKSTS 


pc.acsp)* 


RETURN HERE IF NO ERROR 
RETURN HERE TO REPORT AN ERROR 
ERROR NUMBER DEFINED BY SUB 
GO BACK TO SUB FOR MORE ERROR CHECKS 
RETURN HERE IF NO MORE ERRORS 


14 

15 053464 

16 

17 




ACKSTS: 







.'CLEAR 

USER'S 

ERROR CALL 


18 053464 

062716 

000004 



ADD 

#4, (SP) 

.-MOVE SP TO ERROR CALL 

19 053470 

105076 

000000 



CLRB 

acsp) 

.'CLEAR LOW ORDER BYTE 

20 053474 

21 

22 

162716 

000004 



SUB 

#4, (SP) 

.'MOVE SP BACK 




.REPORT 

AN ERROR IF "VV" IS 0 


23 053500 

032737 

000100 

001350 


BIT 

#VV, RMDSI 

;IS VOLUME VALID SET?? 

24 053506 

001024 




BNE 

1$ 

; YES! ! 

25 053510 

013737 

001350 

001140 


MOV 

RMDSI. SGDDAT 

.'EXPECTED STATUS 

26 053516 

032737 

000100 

001140 


BIS 

#VV,$GDDAT 


27 053524 

013737 

001350 

001142 


MOV 

RMDSI. S6DDAT 

.'RECEIVED STATUS 

28 053532 

062716 

000004 



ADD 

#4. (SP) 
#155,8(SP) 

.•MOVE SP TO ERROR CALL 

29 053536 

112776 

000155 

000000 


M0V8 

.'WRITE NUMBER IN ERROR CALL 

30 053544 

162716 

000002 



SUB 

#2,(SP) 

.-MOVE SP TO RETURN FOR ERROR 

31 053550 

004736 




JSR 

pc.a(sp)* 

#10. (SP) 

.'REPORT THE ERROR 

32 053552 

162716 

000010 



SUB 

.'MOVE SP BACK TO BRANCH 

33 053556 

34 053560 

000240 



IS: 

NOP 

i 



35 

36 

37 053560 

38 053566 

39 053570 

40 053576 

41 053604 

42 053612 

43 053616 

44 053624 

45 053630 

46 053632 

47 053636 

48 053640 

49 

50 

51 053640 

52 053646 

53 

54 

55 053650 

56 053656 

57 053660 


032737 

001024 

013737 

052737 

013737 

062716 

112776 

162716 

004736 

162716 

000240 


032737 

001570 


032737 

001424 

013737 


010000 001350 


001350 

010000 

001350 

000004 

000041 

000002 

000010 


001140 

001140 

001142 

000000 


.•REPORT AN ERROR IF ’MOL" IS 0 
BIT #MOL. RMDSI 

BNE 2$ 

MOV RMDSI -SGDDAT 

BIS #MOL,$GDDAT 

MOV RMDSI ,!UDDAT 

ADD #4.(SP) 

M0V8 #41 ,8(SP) 

SUB #2.(SP) 

JSR PC.8CSP)* 

SUB #10. (SP) 

NOP 


IS MOL SET?? 

YES' 1 

EXPECTED STATUS 

RECEIVED STATUS 

MOVE SP TO ERROR CALL 

WRITE NUMBER OF ERROR IN CALL 

MOVE SP TO RETURN FOR ERROR 

REPORT TH ERROR 

MOVE SP TO BRANCH 


060007 001352 


040000 001352 
001352 001142 


.-SEE IF ' UNS* Vt)PI".'W, "I LR". OR "ILF" IS SET 
BIT #UNS!0PI!RHR!ILR.'ILF,RMER1I 
BEO 7$ 

.•REPORT AN ERROR IF "UNS" IS SET 

BIT #UNS.RMER1I ;WAS UNS SET?? 

8EQ 3$ ;N0! ! 

MOV RMER11.SBDDAT .-RECEIVED STATUS 


K 1 
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58 053666 

59 053674 

60 053702 

61 053706 

62 053714 

63 053720 

64 053722 

65 053726 

66 053730 

67 

68 

69 053730 

70 053736 

71 053740 

72 053746 

73 053754 

74 053762 

75 053766 

76 053774 

77 054000 

78 054002 

79 054006 

80 054010 

81 
82 

83 054010 

84 054016 

85 054020 

86 054026 

87 054034 

88 054042 

89 054046 

90 054054 

91 054060 

92 054062 

93 054066 

94 054070 


013737 

042737 

062716 

112776 

162716 

004736 

162716 

000240 


032737 

001424 

013737 

013737 

042737 

062716 

112776 

162716 

004736 

162716 

000240 


032737 

001424 

013737 

013737 

042737 

062716 

112776 

162716 

004736 

162716 

000240 


001352 

040000 

000004 

000042 

000002 

vJOOOl 0 


001140 

001140 

000000 


RMER1I.SGDDAT 

*UNS.$GDDAT 

*4.<SP) 

#42,a(SP) 

*2,(SP) 

PC.i(SP)* 

*10. (sp> 


020000 001352 


.•REPORT ANY OPI ERROR 


001352 

001352 

020000 

000004 

000043 

000002 

000010 


001142 

001140 

001140 

000000 


BIT *OPI .RNER1 I 

BEQ 4$ 

MOV RMER1I.SBDDAT 

MOV RMER11.SGDDAT 

B1C *OPI,$GDDAT 

ADD *4.(SP) 

M0V8 #43.a(SP) 

SUB 02, (SP) 

JSR PC.a(SPH 

SUB *10. (SP) 

NO P 


000004 001352 


; REPORT ANY RMR ERROR 


001352 

001352 

000004 

000004 

000044 

000002 

000010 


001142 

001140 

001140 

000000 


BIT *RMR,RMER1I 

BEQ 5$ 

NOV RMER1I.SBDDAT 

NOV RNER1I.SGDDAT 

BIC *RNR.$GDDAT 

ADD *4 t (SP) 

NOVB *44.a(SP) 

SUB *2, (SP) 

jsr pc.a(sp>+ 

SUB *10. (SP) 

NOP 


96 




.•REPORT ANY 

ILR ERROR 

97 054070 

032737 

000002 

001352 

BIT 

*ILR.RMER1I 

98 054076 

001424 



BEQ 

6$ 

99 054100 

013737 

001352 

001142 

MOV 

RNER1I.SBDDAT 

100 054106 

013737 

001352 

001140 

NOV 

RNER1I.SGDDAT 

101 054114 

042737 

000002 

001140 

BIC 

*ILR.$GDDAT 

102 054122 

062716 

000004 


ADD 

*4 .(SP) 
*45.a(SP) 

103 054126 

112776 

000045 

000000 

NOVB 

104 054134 

162716 

000002 


SUB 

*2, (SP) 

105 054140 

004736 



JSR 

pc.a(SP)+ 

*10. (SP) 

106 054142 

162716 

000010 


SUB 

107 054146 

000240 



NOP 


108 054150 




6$: 



109 

110 

111 054150 

112 054156 

113 054160 

114 054166 


032737 

001424 

013737 

013737 


000001 001352 


001352 

001352 


001142 

001140 


; REPORT ANY 
BIT 
BEQ 
NOV 
NOV 


ILF ERROR 
*ILF.RNER1I 

7$ 

RMER1I.SB0DAT 

RNER1I.SGDDAT 


SEQ 0216 


.•EXPECTED STATUS 

;NOVE SP TO ERROR CALL 
; WRITE NUNBER OF ERROR IN CALL 
.-MOVE SP TO RETURN FOR ERROR 
; REPORT THE ERROR VIA USER 
.-MOVE SP TO NO ERROR RETURN 


;WAS OPI SET ?? 

•NO 1 ' 

•RECEIVED STATUS 
.•EXPECTED STATUS 

.-MOVE SP TO ERROR CALL 
; WRITE NUNBER OF ERROR IN CALL 
.-MOVE SP TO RETURN FOR ERROR 
.•REPORT THE ERROR VIA USER 
;MOVE SP TO NO ERROR RETURN 


.•WAS RMR SET?? 

;N0! ! 

.•RECEIVED STATUS 
.•EXPECTED STATUS 

,-NOVE SP TO ERROR CALL 
.-WRITE NUNBER OF ERROR IN CALL 
.-MOVE SP TO RETURN FOR ERROR 
.•REPORT THE ERROR VIA USER 
.-MOVE SP TO NO ERROR RETURN 


WAS 1LR SET?? 

NO!! 

RECEIVED STATUS 
EXPECTED STATUS 

MOVE SP TO ERROR CALL 
WRITE NUNBER OF ERROR IN CALL 
MOVE SP TO RETURN FOR ERROR 
REPORT THE ERROR VIA USER 
MOVE SP TO NO ERROR RETURN 


WAS ILF SET?? 
NO!! 

RECEIVED STATUS 
EXPECTED STATUS 


j 


L 


1 


SEQ 0217 
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115 054174 

116 054202 

117 054206 

118 054214 

119 054220 

120 054222 

121 054226 

122 054230 

123 

124 

125 054230 

126 054234 

127 054240 

128 054242 

129 054246 

130 054250 

131 054254 

132 054256 


042737 

062716 

112776 

162716 

004736 

162716 

000240 


062716 

105776 

001403 

062716 

000402 

162716 

000240 

000207 


000001 001140 

000004 

000046 000000 
000002 

000010 


000004 

000000 

000004 

000004 


BIC 

ADD 

movb 

SUB 

JSR 

SUB 

NOP 


#ILF,*GDDAT 

#4,(SP) 

#46,a<SP) 

02, (SP) 

pc £ a<sp>+ 

#i6,(sp> 


7$: 

.•AUGMENT RETURN ADDRESS IF ERROR 


8 $: 

9$: 


ADD 

TSTB 

BEQ 

ADD 

BR 

SUB 

NOP 

RTS 


#4. (SP) 

a<sp) 

8S 

#4, (SP) 

9$ 

#4, (SP) 
PC 


MOVE SP TO ERROR CALL 
WRITE NUMBER OF ERROR IN CALL 
MOVE SP TO RETURN FOR ERROR 
REPORT THE ERROR VIA USER 
MOVE SP TO NO ERROR RETURN 


WAS FOUND 

;MOVE SP TO ERROR CALL 
;WAS ERROR FOUND?? 

;N0! ! 

; YES - MOVE TO ERROR RETURN 
.-MOVE SP TO NO ERROR RETURN 



M 1 


SEO 0218 


CZRNDAO RM80 FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PA6E 30 
RECALiaRATE STATUS CHECK SUBROUTINE 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 054260 

16 

17 

18 054260 

19 054264 

20 054270 

21 
22 

23 

24 054274 

25 054302 

26 

27 

28 

29 054304 

30 054312 

31 054314 

32 054322 

33 054324 

34 054332 

35 054340 

36 054346 

37 054352 

38 054360 

39 054364 

40 05 366 

41 054372 

42 054374 

43 

44 

45 054374 

46 054402 

47 054404 

48 054412 

49 054420 

50 054426 

51 054432 

52 054440 

53 054444 

54 054446 

55 054452 

56 054454 

57 


062716 000004 
105076 000000 
162716 000004 


032737 022011 
001553 


032737 

001430 

032737 

001024 

013737 

042737 

013737 

062716 

112776 

162716 

004736 

162716 

000240 


032737 

001424 

013737 

042737 

013737 

062716 

112776 

162716 

004736 

162716 

000240 


.S8TTL RECALIBRATE STATUS CHECK SUBROUTINE 

;THIS SUBROUTINE CHECKS THE RESULTS OF A RECALIBRATE OPERATION 
.-USING THE STATUS STORED IN THE GET BUFFER. 


CALL: 


JSR 

BR 

NOP 

ERROR 

JSR 


PC.RCLSTS 


pc.3(sp)+ 


001352 


000010 001352 
000010 001400 


001352 

000010 

001352 

000004 

000050 

000002 

000010 


001140 

001140 

001142 

000000 


001352 

000001 

001352 

000004 

000071 

000002 

000010 


RCLSTS: 

.•CLEAR USER'S ERROR NUMBER 
ADD #4, (SP) 

CLRB a<SP> 

SUB #4 , ( SP) 


.-CALL SUBROUTINE 

RETURN HERE IF NO ERROR 

RETURN HERE TO REPORT AN ERROR 

ERROR NUMBER DEFINED BY SUB 

GO BACK TO SUB FOR MORE ERROR CHECKS 

RETURN HERE IF NO MORE ERRORS 


.•CLEAR USER'S ERROR CALL 
.-MOVE SP BACK TO BRANCH 


;SEE IF "PAR” OR "ILF" OR '*OPI" OR "IAE IS SET 
BIT #OPI ! PAR! ILF IIAE.RMER1I 

BEQ 4$ .'NONE ARE SET - GO TO NEXT CHECK 


; REPORT ANY MASSBUS CONTROL BUS PARITY ERROR, I.E., 

;"PA R" = 1 AND *T)PE" = 0 

BIT #PAR,RHER1I ;WAS "PAR" SET?? 

BEQ 1$ ;N0 • 1 

BIT #DPE,RNER2I ;WAS ’DPE" SET?? 

BNE IS ;YES - NOT A REGISTER ERROR 

EXPECTED STATUS 


000001 001352 


001140 

001140 

001142 

000000 


MOV RMER11.SGDDAT 
BIC #PAR.SGDDAT 

MOV RMER I I .SBDDAT 

ADD HASP) :MOVE SP 

MOVB #50,i(SP> 

SUB M2 ASP) 

JSR PC.8CSPH 

SUB #10, (SP) 

NOP 


.•REPORT ANY "ILF" ERROR 

BIT #ILF,RNER1 I 

BEQ 2$ 

MOV RMER1I.SGDDAT 

BIC #ILF.$GDDAT 

MOV RMER1 I. SBDDAT 

ADD #4.(SP) 

MOVB #71,a<SP) 

SUB #2, (SP) 

JSR PC.a(SP>+ 

SUB #10, (SP) 

NOP 


RECEIVED STATUS 
TO USER'S ERROR CALL 
WRITE ERROR NUMBER IN CALL 
MOVE SP TO RETURN FOR ERROR 
GO REPORT ERROR 
MOVE SP BACK TO BRANCH 


WAS "ILF" SET?? 

NO 1 1 

EXPECTED STATUS 

RECEIVED STATUS 
MOVE SP TO USER'S ERROR CALL 
WRITE ERROR NUMBER IN CALL 
MOVE SP TO RETURN FOR ERROR 
REPORT ERROR VIA USER 
MOVE SP BACK TO BRANCH 


N 1 
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58 

59 

60 

61 054454 

62 054462 

63 C54464 

64 054472 

65 054500 

66 054506 

67 054512 

68 054520 

69 054526 

70 054530 

71 054536 

72 054542 

73 054544 

74 054550 

75 054552 

76 

77 

78 054552 

79 054560 

80 054562 

81 054570 

82 054576 

83 054604 

84 054610 
054616 

>2 
'4 

88 054630 

89 05^632 

90 

91 

92 054632 

93 054640 

94 

95 

96 
9 f 

98 

99 054642 

?0C 054650 
oi 054652 
i s/2 054660 


85 

86 054< 

87 054< 


032737 

001433 

013737 

042737 

013737 

062716 

112776 

032737 

001403 

112776 

162716 

004736 

162716 

000240 


03^737 

001424 

013737 

042737 

013737 

062716 

112776 

162716 

004736 

162716 

000240 


032737 

001517 


032737 010000 
001433 



REPORT ANY ”OPI” 
. OPI DUE 
OPI 


020000 

001352 

9 

BIT 

BEO 

MOV 

#OPI .RMER1I 
31$ 

RMER1I.$GDDAT 

001352 

001140 


020000 

001140 


BIC 

#0PI.$6DDAT 

001352 

000004 

001142 


MOV 

ADD 

RMER1I.S8DDAT 

#4.(SP) 

000072 

000000 


MOVB 

#72. a(SP) 

010000 

001350 


BIT 

BEO 

#MOL.RMDSI 

3$ 

000073 

000000 


MOVB 

#73.a(SP) 

000002 

000010 

• 

3$: 

31$: 

SUB 

.ISR 

SUB 

NOP 

#2,(SP) 

pc.a(SP)+ 

#10. (SP) 


K 

000010 


ERROR AS 
TO ’MOL” = 0 
BECAUSE ON CYLINDER LATCH DIDN'T RESET 

WAS OPI SET?? 

NO i * 

EXPECTED STATUS 


RECEIVED STATUS 
MOVE SP TO USER'S ERROR CALL 
WRITE ERROR NUMBER IN USER'S CALL 
WAS ’MOL" = 0?? 

YES' 1 

NO -'CHANGE ERROR NUMBER 
MOVE SP TO RETURN FOR ERROR 
REPORT ERROR VIA USER 
MOVE SP BACK TO BRANCH 


002000 001352 


.•REPORT AN ERROR IF ”IAE" IS SET 


001352 

002000 

001352 

000004 

000070 

000002 

000010 


001140 

001140 

001142 

000000 


4$: 


BIT 

BED 

MOV 

BIC 

MOV 

ADD 

M0V8 

SUB 

JSR 

SUB 

NOP 


#IAE.RMER1I 
4$ 

RMER1I.SGDDAT 

#IAE.$GDDAT 

RMER1I.SBDDAT 

#4.(SP) 

#70,aCSP) 

#2,(SP) 

pc.acsPH 

#10. (SP) 


;IS "IAE" SET?? 

;NOi! 

.•EXPECTED STATUS 

.•RECEIVED STATUS 
.-MOVE SP TO ERROR CALL 
.•WRITE ERROR NUMBER IN USER'S CALL 
.-MOVE SP TO RETURN FOR ERROR 
.•REPORT ERROR 

,‘MOVE SP BACK TO NO ERROR RETURN 


050200 001400 


.-SEE IF "SKI' 
BIT 
BEO 


OR "IVC” OR "DVC" IS SET 
#SKI IIVC! DVC , RMER2I 

8$ .-NONE OF THE BITS ARE SET 


001400 

001140 
001 140 
001142 


000000 


REPORT ANY "IVC” ERROR AS 
.IVC WITH W = 0 
.ERRONEOUS IVC ERROR 
BIT #IVC.RMER2I 

BEO 6$ 

MOV RMER2I.JGDDAT 

BIC fIVC.SfoOAT 

MOV RMER2I .88DDAT 

ADD #4. (SP) 

H0V8 #74.a(SP) 

81 T fW.RMDSI 

BEO 5S 

MOVB #75.a(SP) 

SUB #2,(SP) 

jsr pc.a(sp>+ 

SUB #10. (SP) 

NOP 


5$: 


WAS IVC SET?? 

NO' 1 

EXPECTED STATUS 

RECEIVED STATUS 
MOVE SP TO USER'S ERROR CALL 
WRITE ERROR NUMBER IN CALL 
WAS VV = 0?? 

YES’ 1 

NO -CHANGE ERROR NUMBER 
MOVE SP TO RETURN FOR ERROR 
REPORT ERROR VIA USER 
MOVE SP BACK TO BRANCH 


6$: 
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SEO 0220 


115 

116 054740 

1 17 054746 

118 05^750 

119 054756 

120 054764 

121 034772 

122 054776 

123 055004 

124 055010 

125 055012 

126 055016 

127 055020 

128 

129 

130 055020 

131 055026 

132 055030 

133 055036 

134 055044 

135 055052 

136 055056 

137 055064 

138 055070 

139 055072 

140 055076 

141 055100 

142 

143 

144 055100 

145 055104 

146 055110 

147 055114 

148 055116 

149 055122 

150 

151 

152 

153 055122 

154 055130 

155 055132 

156 055140 

157 055142 

158 055150 

159 055156 

160 055164 

161 053170 

162 055176 

163 055202 

164 055204 

165 055210 

166 055212 

167 

168 

169 055212 

170 055220 

171 055222 


032737 

001424 

013737 

042737 

013737 

062716 

112776 

162716 

004736 

162716 

000240 


032737 

001424 

013737 

042737 

013737 

062716 

112776 

162716 

004736 

162716 

000240 


013746 

042716 

022726 

001002 

000137 


032737 

001030 

032737 

001024 

013737 

0S2737 

013737 

062716 

112776 

162716 

004736 

162716 

000240 


03273? 

001030 

032737 


040000 001400 


.•REPORT ANY "SKr* ERROR 


001400 

040000 

001400 

000004 

000076 

000002 

000010 


001140 

001140 

001142 

000000 


001350 

010000 

001350 

000004 

000100 

000002 

000010 


#SKI .RMER2I 

7$ 

RMER2I ,$GDDAT 
#SKI.$GDDAT 
RMER2l,$BDDAT 
#4, (SP) 
#76,a<SP> 

02. (SP) 

pc.acsp)* 

#10, (SP) 


000200 001400 

001400 001140 
000200 001140 
001400 001142 
000004 

000077 000000 
000002 

000010 


001350 

047676 

110100 

055532 


010000 001350 
020000 001352 


.•REPORT ANY ••OVC" ERROR 


#DVC,RMER2I 

8 $ 

RMER2I ,$GDDAT 
#DVC,$GDDAT 
RMER2I.SBDDAT 
#4 .(SP) 
#77,a<SP> 

02. (SP) 
PC.a<SP>* 

#10, (SP) 


WAS SKI SET?? 

NO!! 

EXPECTED STATUS 

RECEIVED STATUS 

MOVE SP TO USER’S ERROR CALL 

WRITE ERROR NUMBER 

MOVE SP TO RETURN FOR ERROR 

REPORT ERROR VIA USER 

MOVE SP TO BRANCH 


WAS "DVC" SET?? 

NO!! 

EXACTED STATUS 

RECEIVED STATUS 

MOVE SP TO USER’S ERROR CALL 

WRITE ERROR NUMBER 

MOVE SP TO RETURN FOR ERROR 

REPORT ERROR VIA USER 

MOVE SP TO USER'S BRANCH 


;SEE IF "PIP" AND 'W ARE 0, AND "ATA’VWOL" AND ”VV‘ ARE 1 
MOV RMDSI.-(SP) ;PUT RMDS ON STACK 
BIC #*C<PIP!MOL!W!OM!ATA>,(SP) 

CMP #ATA ! MOL ! VV , ( SP) ♦ 

BNE 85$ 

JMP 13$ 

85$: 

;REPORT AN ERROR IF MOL = 0 AND OPI =0, I.E., MEDIUM WENT OFF 
.-LINE AFTER RECALIBRATE WAS INITIATED 


001140 

001140 

001142 

000000 


BIT 

BNE 

BIT 

BNE 

MOV 

BIS 

MOV 

ADD 

M0V8 

SUB 

JSR 

SUB 

NOP 


#MOL,RMDSI ;DID MOL DROP?? 

9$ *N0' 1 

fOPI.RMERII ; WAS OPI ERROR REPORTED?? 

9$ ;YES - DON’T REPORT MOL = 0 

RMDSI.$GDDAT ; EXPECTED STATUS 

#MOL,$GDDAT 

RMDSI,$BDDAT .-RECEIVED STATUS 

#4.(SP) .-MOVE SP TO USER'S ERROR CALL 


#i6o.a(SP) 

02. (SP) 
PC.d(SP )♦ 

#i6.(sp) 


WRITE ERROR NUMBER 

MOVE SP TO RETURN FOR ERROR 

REPORT ERROR VIA USER 

MOVE SP BACK TO USER'S BRANCH 


000100 001350 
010000 001400 


.-REPORT AN ERROR IF ’W" = 0 AND "IVC * = 0 

BIT fVV.RMDSI ;D1D W ’ DROP?? 

BNE 10$ .-NO!! 

BIT #IVC.RMER2I ;WAS THERE A IVC ERROR?? 


c 


2 


SEQ 0221 
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172 

055230 

001024 



BNE 

10$ 

;YES - DONT REPORT VV = 0 

173 

055232 

013737 

001350 

001140 

MOV 

RMDSI .$GDDAT 

.'EXPECTED STATUS 

174 

055240 

013737 

001350 

001142 

MOV 

RMDSI,$BDDAT 

,'RECfcIVED STATUS 

175 

055246 

052737 

000100 

001140 

BIS 

#VV,$GDDAT 


176 

055254 

062716 

000004 


ADD 

#4.(SP) 

.'MOVE SP TO USER'S ERROR CALL 

177 

055260 

112776 

000101 

000000 

MOVB 

#101 ,8(SP> 

.'WRITE ERROR NUMBER IN CALL 

178 

055266 

162716 

000002 


SUB 

#2, CSP) 

.'MOVE SP TO RETURN FOR ERROR 

179 

055272 

C04736 



JSR 

pc.acsp)* 


180 

055274 

162716 

000010 


SUB 

#10. (SP) 

.’MOVE SP BACK TO USER'S BRANCH 

181 

055300 

000240 



NOP 



182 

055302 




10$: 



lo3 

184 





.•REPORT AN ERROR IE ATA IS NOT 

SET 

185 

055302 

032737 

100000 

001350 

BIT 

#ATA. RMDSI 

;WAS ATA SET DURING RECALIBRATE?? 

186 

055310 

001024 



BNE 

11$ 

,'YESJ! 

187 

055312 

013737 

001350 

001140 

MOV 

RMDSI. $6DDAT 

.'EXPECTED STATUS 

188 

055320 

052737 

100000 

001140 

BIS 

#ATA.$GDDAT 


189 

055326 

013737 

001350 

001142 

MOV 

RMDSI ,$BDDAT 

.'RECEIVED STATUS 

190 

055334 

062716 

000004 


ADD 

#4.(SP) 

.'MOVE SP TO USER'S ERROR CALL 

191 

055340 

112776 

000102 

000000 

MOVB 

#i02.a<sp> 

.•WRITE ERROR NUMBER IN CALL 

192 

055346 

162716 

000002 


SUB 

#2, (SP) 


193 

055352 

004736 



JSR 

pc.a(sp>+ 


194 

055354 

162716 

000010 


SUB 

#i6,(sp) 

.-MOVE SP TO USER'S BRANCH 

195 

1QA 

055360 

000240 



NOP 



1 TO 

197 

1 Ofl 

055362 




11$: 



I TO 

199 





.'REPORT AN ERROR IF "DM" IS NOT ZERO BECAUSE RECALIBRATE SHOULD 

200 





.•ALWAYS CLEAR OFFSET MODE 


201 

055362 

032737 

000001 

001350 

BIT 

#0M. RMDSI 

.•WAS 'TOM” RESET?? 

202 

055370 

001424 



BEQ 

12$ 

.‘YES! ! 

203 

055372 

013737 

001350 

001140 

MOV 

RMDSI ,$GDDAT 

.'EXPECTED STATUS 

204 

055400 

042737 

000001 

001140 

BIC 

#0M.$6DDAT 


205 

055406 

013737 

001350 

001142 

MOV 

RMDSI. SBDDAT 

.'RECEIVED STATUS 

206 

055414 

062716 

000004 


ADD 

#4.(SP) 

.'MOVE SP TO USER'S ERROR CALL 

207 

055420 

112776 

000103 

000000 

MOVB 

#l63,a<SP) 

; WRITE ERROR NUMBER 

208 

055426 

162716 

000002 


SUB 

#2.C$P> 

.'MOVE SP TO RETURN FOR ERROR 

209 

055432 

004736 



JSR 

pc.acsp)* 

.•REPORT ERROR VIA USER 

210 

055434 

162716 

000010 


SUB 

#10. (SP) 

.'MOVE SP TO USER'S BRANCH 

211 

055440 

000240 



NOP 



212 

055442 




12$: 



C 1 J 

214 





.REPORT AN ERROR IE *1PIP" IS STIL ON, I.E., DRIVE NOT ON 

215 





.'CYLINDER 



216 

055442 

032737 

020000 

001350 

BIT 

#PIP, RMDSI 

;IS DRIVE OFF CYLINDER?? 

217 

055450 

001430 



BEO 

13$ 

;N0! ! 

218 

055452 

032737 

040000 

001400 

BIT 

#SKI.RMER2I 

;WAS "SKI** DETECTED?? 

219 

055460 

001024 



BNE 

13$ 

,'YES-DONT REPORT '^IP" 

220 

055462 

013737 

001350 

001140 

MOV 

RMDSI. $GDDAT 

.'EXPECTED STATUS 

221 

055470 

042737 

020000 

001140 

BIC 

#PIP,$GDDAT 


222 

055476 

013737 

001350 

001142 

MOV 

RMDSI ,$8DD AT 

.-RECEIVED STATUS 

223 

055504 

062716 

000004 


ADD 

#4. (SP) ;NOVE 

SP TO USER'S ERROR CALL 

224 

055510 

112776 

000104 

000000 

MOVB 

#104,a(SP) 

.WRITE ERROR NUMBER 

?25 

055516 

162716 

000002 


SUB 

#2, (SP) 

.•MOVE SP TO RETURN FOR ERROR 

226 

055522 

004736 



JSR 

pc.a<sp)* 


227 

055524 

162716 

000010 


SUB 

#i6,(sp) 

.'MOVE SP BACK TO USER'S BRANCH 

228 

055530 

000240 



NOP 
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SEO 0222 


229 055532 

230 

231 

232 055532 

233 055540 

234 

235 

236 055542 

237 055550 

238 055552 

239 055560 

240 055566 

241 055574 

242 055600 
24.3 055606 

244 055612 

245 055614 

246 055620 

247 055622 

248 

249 

250 055622 

251 055630 

252 055632 

253 035640 

254 055646 

255 055654 

256 055660 

257 055666 

258 055672 

259 055674 

260 055700 

261 055702 

262 

263 

264 055702 

265 055710 

266 055712 

267 055720 

268 055722 

269 055730 

270 055736 

271 055744 

272 055750 

273 055756 

274 055762 

275 055764 

276 055770 

277 055772 

278 

279 

280 055772 

281 055776 

282 056002 

283 056004 

284 056010 

285 056012 


032737 

001514 


032737 

C01424 

013737 

042737 

013737 

062716 

112776 

162716 

004736 

162716 

000243 


032737 

001424 

013737 

04273? 

013737 

062716 

112776 

162716 

004736 

162716 

000240 


032737 

001430 

032737 

001024 

013737 

042737 

013737 

062716 

112776 

162716 

004736 

162716 

000240 


062716 

105776 

001403 

062716 

000402 

162716 


040006 001352 


000002 001352 


001352 

000002 

001352 

000004 

000105 

000002 

000010 


001352 

000004 

001352 

000004 

000106 

000002 

000010 


001352 

040000 

001352 

000004 

000107 

000002 

000010 


000004 

000000 

000004 

000004 


;SEE IF •’IIR” OR * W OR "UNS” IS SET 
BIT *ILR!RMR!UNS.RMER1I 

BEO 16$ 


; REPORT AN ERROR IF 


IS SET 


001140 

001140 

001142 

000000 


*ILR.RMER1I ;WAS ILR SET DURING RECALIBRATE/? 

14$ *N0' 1 

RMER1I,$GDDAT -EXPECTED STATUS 
*ILR f $GDDAT 

RMER1I,$BDDAT .-RECEIVED STATUS 
*4.(SP) .-MOVE SP TO USER’S ERROR CALL 


\ tjr / | n 

*i05,a(sp) 
M2. (SP) 
pc.acs p)f 
*10. (SP) 


.-WRITE ERROR MWBER IN CALL 
.-MOVE SP TO RETURN FOR ERROR 

.-MOVE SP TO USER'S BRANCH 


000004 J01352 


; REPORT AN ERROR IF ’*MR" IS SET 


001140 

001140 

001142 

000000 


BIT *RMR.RMER1I 

BEO 15$ 

MOV RMiR1I.$GDDAT 

BIC *RMR.$GDDAT 

MOV RMERlI f $BDDAT 

ADD #4. (SP) 

MOVB #1 06. a (SP) 

SUB M2. (SP) 

JSR PC.a(SP)* 

SUB *10. (SP) 

NOP 


.-WAS RMR SET?? 

.-NO!! 

.-EXPECTED STATUS 

.-RECEIVED STATUS 

.-MOVE SP TO USER’S ERROR CALL 

.-WRITE ERROR NUMBER IN USER'S CALL 

.-MOVE SP TO RETURN FOR ERROR 

.-REPORT ERROR VIA USER 

.-MOVE SP TO USER’S BRANCH 


040000 001352 
000200 001400 


001140 

001140 

001142 

000000 


.-REPORT AN ERROR IF ’\JNS’’ IS SET 
BIT *UNS.RHER1I 

BEO 16$ 

BIT *DVC.RMER2I 

BNE 16$ 

MOV RMER1I.$GDDAT 

BIC *UNS.$GDDAT 

MOV RMER1I,$BDDAT 

ADD *4. (SP) 

MOVB *107,a(SP) 

SUB *2,(SP) 

JSR PC.a(SP)* 

SUB *10. (SP) 


AND *DVC” IS 0 
WAS UNSAFE ON?? 

NO 1 1 

WAS ‘THERE A DEVICE CHECK?? 

YES - DON’T REPORT UNSAFE 
EXPECTED STATUS 

RECEIVED STATUS 

MOVE SP TO USER'S ERROR CALL 

WRITE ERROR NUMBER 

MOVE SP TO RETURN FOR ERROR 

REPORT ERROR VIA USER 

MOVE SP BACK TO USER'S BRANCH 


.-AUGMENT THE RETURN ADDRESS IF ANY ERROR WAS DETECTED 


*4, (SP) .-MOVE SP TO USER'S ERROR CALL 

3(SP) .-WAS AN ERROR REPORTED?? 

17$ ;NO!J 

*4 t (SP) ;YES - AUGMENT SP RETURN 

18* 

*4, (SP) ;N0 ERROR - RETURN SP TO BRANCH 


E 2 


SEO 0223 
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286 056016 000240 

287 056020 000207 


18$: 


NOP 

RTS 


PC 


;STATUS CECK IS COMPlETE 
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F 2 


1 

2 

3 

4 

r 

O 

7 

8 


.S8TTL DRIVE CLEAR STATUS CHECK SUBROUTINE 


BR 

NOP 

ERROR 

JSR 


9 

in 

056022 




DRVSTS: 


1 u 
ii 





; CLEAR USER'S 

12 

056022 

062716 

000004 



ADD 

13 

056026 

105076 

000000 



CLRB 

14 

056032 

162716 

000004 



SUB 

15 





.•REPORT 

ERROR 

16 

056036 

013737 

001336 

001142 

4$: 

MOV 

17 

056044 

042737 

173700 

001142 


BIC 

18 

056052 

012737 

004010 

001140 


MOV 

19 

056060 

023737 

001140 

001142 


CMP 

20 

056066 

001443 




BEQ 

21 

056070 

062716 

000004 



ADD 

22 

056074 

112776 

000141 

000000 


MOVB 

23 

056102 

162716 

000002 



SUB 

24 

056106 

004736 




JSR 

25 

056110 

162716 

000010 



SUB 

26 

056114 

000240 




NOP 

27 





;REPORT 

ERROR 

28 

056116 

013737 

001350 

001142 

$S: 

NOV 

29 

056124 

042737 

021101 

001142 


BIC 

30 

056132 

012737 

010600 

001140 


MOV 

31 

056140 

023737 

001140 

001142 


CMP 

32 

056146 

001413 




BEQ 

33 

056150 

062716 

000004 



ADD 

34 

056154 

112776 

000142 

000000 


MOVB 

35 

056162 

162716 

000002 



SUB 

36 

056166 

004736 




JSR 

37 

056170 

162716 

000010 



SUB 

38 

056174 

000240 




NOP 

39 





.•REPORT 

ERROR 

40 

056176 

005037 

001140 


6S: 

CLR 

41 

056202 

013737 

001352 

001142 


MOV 

42 

056210 

001413 




BEQ 

43 

056212 

062716 

000004 



ADD 

44 

056216 

112776 

000143 

000000 


MOVB 

45 

056224 

162716 

000002 



SUB 

46 

056230 

004736 




JSR 

47 

056232 

162716 

000010 



SUB 

48 

056236 

000240 




NOP 

49 





: REPORT 

ERROR 

50 

056240 

013737 

001354 

001142 

&S: 

MOV 

51 

056246 

010146 




MOV 

52 

056250 

010246 




MOV 

53 

056252 

013701 

001466 



MOV 

54 

056256 

116102 

000001 



MOVB 

55 

056262 

042702 

177400 



BIC 

56 

056266 

005102 




COM 

57 

056270 

040237 

001142 



BIC 


in 


pc.a(sp)* 


RETURN HERE IF NO ERROR 
RETURN HERE TO REPORT AN ERROR 
ERROR NUMBER DEFINED BY SUB 
GO BACK TO SUB FOR MORE ERROR CHECKS 
RETURN HERE IF NO MORE ERRORS 


ERROR CALL 
#4, (SP) 
a(SP) 

#4, (SP) 


.•MOVE SP TO ERROR CALL 
; CLEAR ERROR CALL 
;MOVE SP TO USER'S BRANCH 
IF RMCS1 NOT INITIALIZED 
RMCS1I.SBDDAT : CHECK RMCS1 
# A C<DVA!FNCMSK>.SBDDAT .-CLEAR DONT CARES 
#DVA ! DRVCLR . SGDDAT .’EXPECT DVA 


SGDDAT. SBDDAT 
6 $ 

#4. (SP) 
#i4i.a(SP) 
#2,(SP) 

pc.a(sp)* 

#10, (SP) 


COMPARE EXPECTED l RECEIVED 
BRANCH IF EQUAL 
MOVE SP TO ERROR CALL 
WRITE NUMBER OF ERROR IN CALL 
MOVE SP TO RETURN FOR ERROR 
REPORT THE ERROR VIA USER 
MOVE SP TO NO ERROR RETURN 


IF RMDS NOT INITIALIZED 
RMDSI.S8DDAT .‘CHECK RMDS 
#PGM!OM!VV!PIP,SBDDAT .-CLEAR DONT CARES 

#MOL! DPR! DRY. SGDDAT .-EXPECT DRY l DPR 


SGDDAT. S8DDAT 
6S 

#4. (SP) 
#142.a(SP) 

02 ASP) 
pc.a(SP)* 

#10. (SP) 


COMPARE EXPECTED l RECEIVED 
BRANCH IF EQUAL 
MOVE SP TO ERROR CALL 
WRITE NUMBER OF ERROR IN CALL 
MOVE SP TO RETURN FOR ERROR 
REPORT THE ERROR VIA USER 
MOVE SP TO NO ERROR RETURN 


IF RMER1 NOT INITIALIZED 


SGDDAT 
RMER1I.SBDDAT 
8S 

#4. (SP) 

#143.a(SP) 

02 ASP) 

pc.a(sp)* 

#10. (SP) 


EXPECT 0'S 
CHECK RMER1 
BRANCH IF EQUAL 
MOVE SP TO ERROR CALL 
WRITE NUMBER OF ERROR IN CALL 
MOVE SP TO RETURN FOR ERROR 
REPORT THE ERROR VIA USER 
MOVE SP TO NO ERROR RETURN 


IF ATA NOT INITIALIZED 


RMASI.SBDDAT 

RI.-(SP) 

R2,-(SP) 

TSTQUE.R1 

1(R1).R2 

#*CATNMSK.R2 

R2 

R2.SBDDAT 


.-CHECK ATTENTION BIT 
.-.-PUSH R1 ON STACK 
.’.’PUSH R2 ON STACK 


SEQ 0224 
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SEQ 0225 


58 056274 

59 056276 

60 056300 
oi 056304 

62 056306 

63 056312 

64 056320 

65 056324 

66 056326 

67 056332 

68 

69 056334 

70 056342 

71 056350 

72 056356 

73 056364 

74 056366 

75 056372 

76 056400 

77 056404 

78 056406 

79 056412 

80 

81 056414 

82 056422 

83 056430 

84 056436 

85 056444 

86 056446 

87 056452 

88 056460 

89 056464 

90 056466 

91 056472 

92 056474 

93 

94 056500 

95 056506 

96 056510 

97 056514 

98 056522 

99 056526 

100 056530 

101 056534 

102 

103 056536 

104 056544 

105 056546 

106 056552 

107 056560 

108 056564 

109 056566 

110 056572 

111 056574 

112 

113 056574 


012602 

012601 

005737 

001413 

062716 

112776 

162716 

004736 

162716 

000240 

013737 

042737 

012737 

023737 

001413 

062716 

112776 

162716 

004736 

162716 

000240 

013737 

042737 

012737 

023737 

001413 

062716 

112776 

162716 

004736 

162716 

000240 

005037 

013737 

001413 

062716 

112776 

162716 

004736 

162716 

000240 

013737 

001413 

062716 

112776 

162716 

004736 

162716 

000240 


001142 

000004 

000144 000000 
000002 

000010 


001362 001142 
000046 001142 
000010 001140 
001140 001142 

000004 

000145 000000 
000002 

000010 


001376 001142 
140000 001142 
011777 001140 
001140 001142 

000004 

000146 000000 
000002 

000010 

001140 

001404 001142 


;REPORT 

$$: 


.•REPORT 

IIS: 


15S: 

.•REPORT 


000004 

000150 

000002 

000010 


000000 


001400 001142 


: REPORT 
i7S: 


000004 

000147 

000002 

000010 


000000 


MOV 

MOV 

TST 

BEO 

ADD 

HOVB 

SUB 

JSR 

SUB 

NOP 

ERROR 

MOV 

B1C 

MOV 

CMP 

BEO 

ADD 

HOVB 

SUB 

JSR 

SUB 

NOP 

ERROR 

MOV 

B1C 

MOV 

CMP 

BEO 

ADD 

HOVB 

SUB 

JSR 

SUB 

NOP 

CLR 

ERROR 

MOV 

BEO 

ADD 

HOVB 

SUB 

JSR 

SUB 

NOP 

ERROR 

MOV 

BEO 

ADD 

HOVB 

SUB 

JSR 

SUB 

NOP 


(SPH.R2 
(SP)*. R1 
S8DDAT 
9$ 

#4. (SP) 
#144.B(SP) 

#2. (sp> 

pc.atsp >♦ 

#10, (SP) 


;POP STACK INTO R2 
(POP STACK INTO R1 
IS ATTENTION CLEARED?? 

BRANCH IF ATTENTION CLEARED 
MOVE SP TO ERROR CALL 
WRITE NUMBER OF ERROR IN CALL 
MOVE SP TO RETURN FOR ERROR 
REPORT THE ERROR VIA USER 
MOVE SP TO NO ERROR RETURN 


IF RMMR1 NOT INITIALIZED 
RMMR1 I .SBDDAT (CHECK RMMR 
#WC ! LS ! LST .SBDDAT (CLEAR DONT CARES 


#MWD. SGDDAT 
SGDDAT. SBDDAT 
IIS 

#4. (SP) 
#145,a(SP) 

02, (SP) 

pc.a(sp)* 

#10,(SP) 


EXPECT WRITE DATA ON 
COMPARE EXPECTED AND RECEIVED 
BRANCH IF ZERO 
MOVE SP TO ERROR CALL 
WRITE NUMBER OF ERROR IN CALL 
MOVE SP TO RETURN FOR ERROR 
REPORT THE ERROR VIA USER 
MOVE SP TO NO ERROR RETURN 


IF RMMR2 NOT INITIALIZED 


RMMR2I. SBDDAT 
#RQA! ROB. SBDDAT 
#TST 11777, SGDDAT 
SGDDAT, SBDDAT 
15S 

#4.(SP) 

#146,a(SP) 

#2,(SP) 

pc.a(sp)+ 

#10, (SP) 

SGDDAT 

IF RMEC2 NOT RESET 
RMEC2I, SBDDAT 
17S 

#4.(SP) 

#l5o.a(SP) 

02, d?) 
pc.a(sp)+ 

#10. (SP) 

IF RMER2 NOT RESET 
RMER2I, SBDDAT 
18S 

#4 ASP) 
#147,B(SP) 

02, (SP) 

pc.a(sp)* 

010, (SP) 


CHECK RMMR2 
CLEAR REQA, RE 08 

(EXPECT TEST BIT ON 
COMPARE EXPECTED 8 RECEIVED 
BRANCH IF EQUAL 
MOVE SP TO ERROR CALL 
WRITE NUMBER OF ERROR IN CALL 
MOVE SP TO RETURN FOR ERROR 
REPORT THE ERROR VIA USER 
MOVE SP TO NO ERROR RETURN 

EXPECT ZEROS 

CHECK RMEC2 

BRANCH IF 0 

MOVE SP TO ERROR CALL 

WRITE NUMBER OF ERROR IN CALL 

MOVE SP TO RETURN FOR ERROR 

REPORT THE ERROR VIA USER 

MOVE SP TO NO ERROR RETURN 


CHECK RMEP2 
BRANCH IF NO ERROR 
MOVE SP TO ERROR CALL 
WRITE NUMBER OF ERROR IN CALL 
MOVE SP TO RETURN FOR ERROR 
REPORT THE ERROR VIA USER 
MOVE SP TO NO ERROR RETURN 
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H 2 


SEO 0226 


115 

116 056574 

117 056600 

118 056604 

119 056606 

120 056612 

121 056614 

12 2 056620 

123 056622 


062716 000004 
105776 000000 
001403 

062716 000004 
000402 

162716 000004 

000240 

000207 


.•AUGMENT RETURN ADDRESS IF ANY ERROR UAS FOUND 


21 $: 

23$: 


ADD 

TSTB 

BEO 

ADD 

BR 

SUB 

NOP 

RTS 


#4. (SP) 
a(SP> 
21 $ 

#4. (SP) 

23$ 

#4.(SP) 

PC 


.-MOVE SP TO ERROR CALL 
;WAS AN ERROR DETECTED?? 

; NO ! ! 

; YES - MOVE SP TO ERROR RETURN 
.-MOVE SP BACK TO NO ERROR RETURN 
.•RETURN TO USER 


SEO 0 ?27 
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1 

2 

3 

A 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 056624 

41 

42 

43 056624 062716 000004 

44 056630 105076 000000 

45 056634 162716 000004 

46 056640 005037 060206 

47 

48 

49 

50 056644 032737 000010 

51 056652 001431 

52 056654 032737 000010 

53 056662 001025 

54 

56 056664 013737 001352 

57 056672 042737 000010 


.00 28- JAN-82 16:24:51 PAGE 32 

. SBTTl SEARCH STATUS CHECK SUBROUTINE 

.-THIS SUBROUTINE VERIFIES THE RESULTS OF SEARCH OPERATIONS USING 
.•STATUS STORED IN THE GET BUFFER AND TEST CONDITIONS STORED IN THE 
.-PUT BUFFER. 

.-THE SUBROUTINE RETURNS TO THE CALLING ROUTINE IF AN ERROR IS 
•DETECTED AFTER HAVING LOADED THE APPROPRIATE ERROR NUMBER IN 
.-THE USER'S , *RROR" TRAP. 

;THE FOLLOWING CONDITIONS ARE CHECKED: 

| .ANY ERROR WHICH OCCURRED WHILE READING OR WRITING REMOTE 

.•REGISTERS IS REPORTED, I.E., *MCPE" = 1 OR ’PAR" = 1 

; ."lAE" STATUS IS CHECKED IN ACCORDANCE WITH THE VALUE DETERMINED 

;BY THE PROGRAM, WHICH IS BASED ON FORMAT AND ADDRESS. 

; .•lOPI**, IF SET, IS REPORTED AS 1) 'TOPI'* DUE TO MOL = 0, OR 2) 

;"OPI" DUE TO ON CYLINDER LATCH. 

; .••IVC”, IF SET, IS REPORTED AS 1) * , IVC'* ERROR WITH VOLUME 

.•VALID ZERO, OR 2) ERRONEOUS "IVC" ERROR WITH VOLUME VALID SET. 

!• .••SKI” IS REPORTED IF SET 

; .*DVC" IS REPORTED IF SET 

; .AN ERROR IS REPORTED IF ’MOL” = 0, OR ’VIP” = 1, OR "ATA” = 0, 


RETURN HERE IF NO ERROR 
RETURN HERE TO REPORT ERROR 
SUBROUTINE WILL LOAD ERROR # 

GO BACK FOR MORE CHECKS 
RETURN AFTER ALL ERRORS REPORTED 


OR 'VV 

* = 0 . 


CALL: 

(1) 

JSR 

PC. SCHSTS 

( 2 ) 

BR 

?? 

(3) 

NOP 


(4) 

ERROR 


(5) 

JSR 

pc.a(sp)* 

(6) 

tt 
• • 



SCHSTS: 

.‘CLEAR USER'S ERROR CALL 
ADD #4, (SP) 

CLRB d(SP) 

SUB #4.<SP) 

CLR 206s 


MOVE SP TO USER'S ERROR CALL 
CLEAR ERROR NUMBER 
MOVE SP BACK TO NO ERROR BR 
CLEAR STATUS FUGS 


001352 

001400 


001140 

001140 


.-TEST FOR MASS8US CONTROL BUS PARITY ERROR WHEN WRITING REMOTE 
.•REGISTERS. I.E., ’PAR" = 1 AND 'DPE = 0. 

Bit #PAR, RMER1 I ;WAS PARITY ERROR DETECTED?? 


10 * 

#DPE,RMER2I 

10 * 


WAS PARITY ERROR DETECTED?? 
NO' 1 

WAS* IT CONTROL BUS ERROR?? 
PROBABLY NOT!' 


.•REPORT CONTROL BUS PARITY ERROR VIA USER'S ERROR CALL 
MOV RMER1I,*GDDAT .-EXPECTED STATUS 

BIC fPAR.SGDDAT 
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3EQ 0228 


58 056700 

59 056706 

60 056712 

61 056720 

62 056724 

63 056726 

64 056732 

65 056734 

66 056736 

67 

68 

69 

70 056736 

71 056744 

72 

73 

74 056746 

75 056754 

76 056762 

77 056770 

78 056774 

79 057002 

80 057006 

81 057010 

82 057014 

83 057016 

84 057022 

85 

86 

87 

88 

89 057022 

90 057030 

91 057036 

92 057044 

93 057046 

94 

95 057054 
% 057062 

97 

98 057064 

99 057072 

100 057074 

101 057102 

102 057104 

103 057112 

104 057114 

105 057122 

106 057124 

107 057132 

108 

109 057134 

110 
111 

112 057140 

113 057146 

114 057154 


013737 001352 001142 
062716 000004 
112776 000050 000000 
162716 000002 
004736 

162716 000010 

000240 

000430 


032737 

001426 


013737 

042737 

013737 

062716 

112776 

162716 

004736 

162716 

000240 

000137 


012737 

052737 

023727 

101035 

042737 

123737 

101026 

123727 

101420 

032737 

001416 

123727 

101410 

032737 

001406 

123727 

101002 


020000 001336 


001336 

020000 

001336 

000004 

000013 

000002 

000010 

060160 


002000 

040000 

001446 


001140 

001140 

001142 

000000 


001140 

060206 

001060 


RMER1I.SBDDAT 

#4.(SP> 

#50,8<SP> 

#2, (SP) 

pc.a(sp>* 

#10, (SP) 


; RECEIVED STATUS 

.-.MOVE SP TO USER’S ERROR CALL 

; WRITE ERROR NUMBER IN CALL 

.-MOVE SP TO RETURN If ERROR 

; REPORT ERROR 

.•RESTORE SP TO NO ERROR 

.•SKIP FURTHER ERROR CHECKS 


.-TEST FOR MASSBUS CONTROL BUS PARITY ERROR WHEN READING REMOTE 
.•REGISTERS. I.E., *MCPE” = 1. 

BIT #MCPE,RHCS1I ;UAS PARITY ERROR DETECTED?? 

BEQ 20$ ;N0! ! 

.•REPORT CONTROL BUS PARITY ERROR VIA USER'S ERROR CALL. 


MOV 

BIC 

MOV 

ADD 

MOVB 

SUB 

JSR 

SUB 

NOP 

JMP 


RMCSII.SGDDAT 

#MCPE,SGDDAT 

RMCS1I.SBDDAT 

#4.<SP> 

#l3,a<SP) 

#2, (SP) 
pc.a(SP)* 

#10. (SP) 


.•EXPECTED STATUS 

.•RECEIVED STATUS 

.-MOVE SP TO USER'S ERROR CALL 

.‘WRITE ERROR NUMBER 

.-MOVE SP TO RETURN IF ERROR 

.‘REPORT ERROR AND RETURN 

; RESTORE SP TO NO ERROR 

;0MIT STATUS CHECKING 


.•DETERMINE THE VALUE OF "IAE" STATUS BASED ON TRACK, SECTOR, CYLINDER 
;AND THE STATUS OF "SSEI" DURING A SEARCH. ALSO SET "SKI" FLAG IF 


040000 060206 
001421 001335 

001420 000035 
010000 001444 
001420 000036 
001000 001444 
001420 000037 


005037 001140 


013737 001352 001142 
042737 175777 001142 
023737 001140 001142 


; CYLINDER ADDRESS IS TOO LARGE. 
MOV #1AE,SGDDAT 

BIS #SKI ,200$ 

CMP RMDC0,#560. 

SHI 30$ 

BIC #SKI,200$ 

CMPB RMDAO+1 .LSTRK+1 
BHI 30$ 

CMPB RMDA0,#29. 

BLOS 25$ 

BIT #FMT16,RM0F0 

BEQ 30$ 

CMPB RMDA0,#30. 

BLOS 25$ 

BIT #SSEI,RHOFO 

BEQ 30$ 

CMP8 RMDA0,#31. 

BHI 30$ 

25$: CLR IGDDAT 


SETUP FOR IAE * 1 
SETUP FOR SKI = 1 
GREATER THAN LAST CYLINDER ? 

YES - CYLINDER IS INVALID 
"SKI” SHOULD BE ZERO 

GREATER THAN LAST TRACK ? 

YES - TRACK IS INVALID 

SECTOR > 29. ? 

NO!! 

18 BIT FORMAT ? 

YES - SECTOR IS INVALID FOR 18 BIT MODE 
SECTOR > 30. ? 

BR IF NO 

I c ccp f ri FAR “> 

YES -SECTOR IS INVALID FOR 16 BIT MODE 
SECTOR > 31. ? 

YES - SECTOR IS INVALID 

"IAE" SHOULD = 0 


•COMPARE EXPECTED AND RECIVED "IAE" STATUS 
30$: MOV RMER1I,$8DDAT ;GET RECEIVED IAE 

BIC # A CIAE,SBDDAT 

CMP $GDDAT.$BDDAT ;IS IAE CORRECT?? 
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SEQ 0229 


115 057162 

116 057164 

117 057172 

118 057174 

119 

120 

121 057174 

122 057200 

123 057206 

124 057212 

125 057214 

126 057220 

127 057222 

128 

129 

130 057222 

131 057230 

132 

133 

134 057232 

135 057240 

136 057246 

137 057254 

138 057262 

139 057270 

140 057272 

141 057276 

142 057304 

143 057312 

144 057314 

145 057322 

146 057326 

147 057330 

148 057334 

149 057336 

150 

151 

152 

153 

154 057336 

155 057344 

156 057346 

157 057354 

158 057362 

159 057370 

160 057374 

161 057402 

162 057410 

163 057412 

164 057420 

165 057424 

166 057426 

167 057432 

168 057434 

169 

170 

171 C57434 


001004 

042737 

000413 


062716 

112776 

162716 

004736 

162716 

000240 


032737 

001531 


013737 

042737 

013737 

042737 

023737 

001422 

062716 

112776 

032737 

001403 

112776 

162716 

004736 

162716 

000240 


032737 

001433 

013737 

042737 

013737 

062716 

112776 

032737 

001403 

112776 

162716 

004736 

162716 

000240 


040000 060206 


000004 

000257 

000002 

000010 


000000 


050200 001400 


001400 

137777 

060206 

137777 

001140 

000004 

000263 

040000 

000267 

000002 

000010 


001142 

001142 

001140 

001140 

001142 


000000 

001140 

000000 


001400 

010000 

001400 

000004 

000264 

000100 

000265 

000002 

000010 


40$ 

#SKI ,200$ 
50$ 


'NO 1 1 

;SKi’ SHOULD BE ZERO 


.•REPORT INCORRECT IAE STATUS VIA USER’S ERROR CALL 

tnn «/. /ca\ .ttnuc CD rn ucco'c 


#4. (SP) 
#257.i(SP) 
#2.(SP) 
PC.a<SPH 
#10, (SP) 


MOVE SP TO USER'S ERROR CALL 
WRITE ERROR NUMBER IN CALL 
MOVE SP TO RETURN IF ERROR 
REPORT ERROR AND RETURN 
RETURN SP TO NO ERROR 


; SEE IF "SKI" OR "DVC" OR "IVC" IS SET 
BIT #SKI ! DVC ! I VC ,RMER2I 

BEG 90$ ;N0! ! 


;ARE ANY BITS SET?? 


;REPORT 

ERROR 

IF "SKI” IS SET AN! 

"SKI" FLAG IS NOT SET 


MOV 

BIC 

RMER2I ,$BDDAT 
# A CSKI ,$BDDAT 

RECEIVED "SKI" STATUS 


MOV 

BIC 

200$,$GDDAT 

# a csk:.$gddat 

EXPECTED "SKI" STATUS 


CMP 

$GDDAT,$BDDAT 

IS "SKI" OK?? 


OEQ 

60$ 

YES-CHANGE ERROR NUMBER 


ADD 

#4, (SP) 

MOVE SP TO USER’S ERROR CALL 


MOVB 

#263, a (SP) 

WRITE ERROR NUMBER 

SHOULD "SKI" BE SET?? 


BIT 

#SKI.$GDDAT 


BEQ 

55$ 

NO!! 


MOVB 

#267.a<SP) 

YES-CHANGE ERROR NUMBER 

55$: 

sue 

02 ASP) 

MOVE SP TO RETURN IF ERROR 

JSR 

pc.a(sp>* 

#10, (SP) 

REPORT ERROR AND RETURN 

60$: 

SUB 

NO P 

RESTORE SP TO NO ERROR 


010C00 001400 


REPORT 


"IVC" PflfifW AS 

.IVC DUE TO LOSS OF VOLUME VALID 
.ERRONEOUS IVC WITH VOLUME VALID SET 


001140 

001140 

001142 

000000 

001350 

000000 


BIT 

BEQ 

MOV 

BIC 

MOV 

ADD 

MOVB 

BIT> 

BEQ \ 

MOVB* 

SUB 

JSR 

SUB 

NOP 


#IVC.RMER 21 
80$ 

RHER2I.SGDDAT 

#IVC.$GDDAT 

RMER2l,$8DDAT 

#4.<SP> 

#2&4,8(SP) 

fVV.RMDSI 

70$ 

#265,8(SP) 

#2.(SP) 

pc.a<sp>* 

#i6,(sp) 


IS IVC SET?? 

NO 1 1 

EXPECTED STATUS 

RECEIVED STATUS 
MOVE SP TO USER’S ERROR CALL 
WRITE ERROR NUMBER IN CALL 
WAS VOLUME VALID?? 

NO 1 1 

YES*- CHANGE ERROR NUMBER 
MOVE SP TO RETURN IF ERROR 
REPORT ERROR AND RETURN 
RESTORE SP TO NO ERROR 


032737 000200 001400 


.•REPORT ANY DEVICE FAULT. I.E., ’DVC" =1 „ „ 

BIT JDVC.RMEtel ;WAS THERE A DEVICE FAULT?? 



SEQ 0230 
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172 057442 

173 057444 

174 057452 

175 057460 

176 057466 

177 057472 

178 057500 

179 057504 

180 057506 

181 057512 

182 057514 

183 

184 

185 


001424 

013737 

042737 

013737 

062716 

112776 

162716 

004736 

162716 

000240 


001400 

000200 

001400 

000004 

000266 

000002 

000010 


001140 

001140 

001142 

000000 


BEQ 90$ 

MOV RMER2I,SGDDAT 

BIC #DVC.$GDDAT 

MOV rmer2i,$bddat 

ADD #4,(SP) 

M0V8 «266.a(SP) 

SUB #2,(SP) 

jsr pc.a(sp)* 

SUB #10. (SP) 

NOP 


NO! ! 

EXPECTED STATUS 

RECEIVED STATUS 
MOVE SP TO USER'S ERROR CALL 
WRITE ERROR NUMBER IN CALL 
MOVE SP TO RETURN IF ERROR 
REPORT ERROR AND RETURN 
RESTORE SP TO NO ERROR 


187 057514 

032737 

020000 

001352 


BIT 

188 057522 

001433 




BEQ 

189 057524 

013737 

001352 

001140 


MOV 

190 057532 

042737 

020000 

001140 


BIC 

191 057540 

013737 

001352 

001142 


my 

192 C57546 

062716 

000004 



ADD 

193 057552 

112776 

000270 

000000 


MOVB 

194 057560 

032737 

010000 

001350 


BIT 

195 057566 

001403 




BEQ 

1% 057570 

112776 

000271 

000000 


MOVB 

197 057576 

162716 

000002 


105$: 

SUB 

198 057602 

004736 




JSR 

199 057604 

162716 

000010 



SUB 

200 057610 

000240 




NOP 

201 057612 




110$: 



REPORT ANY ' "OPI * ’ ERROR AS 

.’TOPI*’ BECAUSE MEDIUM IS NOT ONLINE 
.•TOPI" BECAUSE *t)N CYLINDER" DIDN’T DROP 


#0PI,RMER1I 

110 $ 

RMER11 ,$GDDAT 

#OPI . $GDDAT 

RMER1I,$8DDAT 

# 4 ,(Sp 5 

#270.a(SP) 

#MOL.RHDSI 

105$ 

#271,a(SP> 

#2 .(SP) 

pc.acsp)* 

#i6.csp) 


;WAS OPI SET?? 

;N0! ! 

.•EXPECTED STATUS 

.•RECEIVED STATUS 
.•MOVE SP TO USER’S ERROR CALL 
.•SETUP ERROR FOR MOL = 0 
;WAS MOL 0?? 

•YES' 1 

•MOL 'WAS 1 - CHANGE ERROR 
.-MOVE SP TO RETURN IF ERROR 
.•REPORT ERROR AND RETURN 
.-RESTORE SP TO NO ERROR 


202 

203 

204 057612 

205 057616 

206 057622 

207 057626 

208 

209 

210 057630 

211 057636 

212 057640 

213 057646 

214 057654 

215 057662 

216 057670 

217 057672 

218 057676 

219 057704 

220 057710 

221 057712 

222 057716 

223 057720 

224 

225 

226 057720 

227 057726 

228 057730 


013746 

042716 

022726 

001554 


032737 

001030 

013737 

052737 

013737 

032737 

001013 

062716 

112776 

162716 

004736 

162716 

000240 


032737 

001430 

032737 


001350 

047677 

110100 


010000 001350 


.-SEE IF "ATA" 
MOV 
BIC 
CMP 
BEQ 


= ’MOL" = ’VV" = 1 AND ‘VIP” = 0 
RMDSI.-(SP) ;GET DRIVE STATUS 

# A C<ATA!PIP!MOL ! VV>, (SP) 

#ATA!MOL!VV,(SP)+ ;IS DRIVE STATUS CORRECT?? 

150$ ;YES! ! 


001350 

010000 

001350 

020000 

000004 

000272 

000002 

000010 


001140 

001140 

001142 

001352 


000000 


.’REPORT AN ERROR IF MOL = 0 AND 
BIT fMOL.RMDSI 

BNE 120$ 

MOV RMDSJ,$GDDAT 

BIS #MOL,$GDDAT 

MOV RMDSJ,$BDDAT 

BIT fOPI.RMERII 

BNE 120$ 

ADD #4,(SP) 

MOVB #272, i(SP) 

SUB M2 ASP) 

jsr pc.a(sp)+ 

SUB #10, (SP) 

NOP 

120 $: 


OPI ERROR WAS NOT REPORTED, I.E., OPI 
;WAS MEDIUM OFF LINE?? 

;N0! ! 

; EXPECTED STATUS 

.•RECEIVED STATUS 

;UAS OPI REPORTED BEFORE?? 

; YES - DON'T REPORT MOL = 0 
.•MOVE SP TO USER'S ERROR CALL 
.-WRITE ERROR NUMBER IN CALL 
.•MOVE SP TO RETURN IF ERROR 
.‘REPORT ERROR AND RETURN 
.RESTORE SP TO NO ERROR 


020000 001350 
040000 001400 


.•REPORT AN ERROR IF PIP IS STIL SET AND SKI IS RESET 

BIT #PIP, RMDSI ;IS POSITIONING IN PROGRESS?? 

BEQ 130$ .‘NO!! 

BIT #SKI,RMER2I ;WAS "SKI" DETECTED?? 
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SEQ 0231 


229 057736 

230 057740 

231 057746 

232 057754 

233 057762 

234 057766 

235 057774 

236 060000 

237 060002 

238 060006 

239 060010 

240 

241 

242 060010 

243 060016 

244 060020 

245 060026 

246 060030 

247 060036 

248 060044 

249 060052 

250 060056 

251 060064 

252 060070 

253 060072 

254 060076 

255 060100 

256 

257 

258 060100 

259 060106 

260 060110 
261 060116 

262 060124 

263 060132 

264 060136 

265 060144 

266 060150 

267 060152 

26 8 060156 

269 060160 

270 

271 

272 060160 

273 060164 

274 060170 

275 060172 

276 060176 

277 060200 

278 060204 

279 

280 060206 


001024 

013737 

042737 

013737 

062716 

112776 

162716 

004736 

162716 

000240 


032737 

001030 

032737 

001024 

013737 

052737 

013737 

062716 

112776 

162716 

0C4736 

162716 

000240 


032737 

001024 

013737 

052737 

013737 

062716 

112776 

162716 

004736 

162716 

000240 


062716 

105776 

001403 

062716 

000402 

162716 

000207 

000000 


001350 

020000 

001350 

000004 

000273 

000002 

000010 


001140 

001140 

001142 

000000 


000100 001350 
010000 001400 


001350 

000100 

001350 

000004 

000350 

000002 

000010 


001140 

001140 

001142 

000000 


BNE 130$ 

MOV RMDSI .IGDDAT 

BIC #PIP. IGDDAT 

MOV RMDSI ,SBDDAT 

ADD #4, (SP) 

M0V8 #273, 9 (SP) 

SUB #2 .(iP) 

JSR PC,a(SP>* 

SUB #10, (SP) 

NOP 


; REPORT AN ERROR IF VOLUME IS 
BIT #VV, RMDSI 

BNE 140$ 

BIT #IVC,RMER2I 

BNE 140$ 

MOV RMDSI, IGDDAT 

BIS #VV, IGDDAT 

MOV RMDSI, I8DDAT 

ADD #4 , (SP) 

MOVB #3d0,a(SP) 

SUB #2, (SP) 

jsr Pc.a(SP)* 

SUB #10, (SP) 

NOP 

140$: 


YES-DONT REPORT PIP 
EXPECTED STATUS 

RECEIVED STATUS 
MOVE SP TO USER’S ERROR CALL 
WRITE ERROR NUMBER IN CALL 
MOVE SP TO RETURN If ERROR 
REPORT ERROR AND RETURN 
RESTORE SP TO NO ERROR 


NOT VALID AND IVC = 0 
;IS VOLUME VALID?? 

•YES' 1 

•WAS' I VC DETECTED?? 

; YES - DON’T REPORT VV = 0 
.•EXPECTED STATUS 

.•RECEIVED STATUS 
.-MOVE SP TO USERS ERROR CALl 
; WRITE ERROR NUMBER IN CALL 
;MOVE SP TO RETURN IF ERROR 
.•REPORT ERROR AND RETURN 
.•RESTORE SP TO NO ERROR 


100000 001350 


001350 

100000 

001350 

000004 

000351 

000002 

000010 


000004 

000000 

000004 

000004 


001140 

001140 

001142 

000000 


.•REPORT AN ERROR IF ATTENTION 
BIT #ATA, RMDSI 

BNE 150$ 

MOV RMDSI. IGDDAT 

BIS #ATA, IGDDAT 

MOV RMDSI, I8DDAT 

ADD #4 .(SP) 

MOVB #351,a<SP> 

SUB #2,(SP) 

JSR PC.a(SP)* 

SUB #10, (SP) 

NOP 

150$: 


IS NOT SET 
;IS ATA ON?? 

•YES' 1 

•EXPECTED STATUS 

.•RECEIVED STATUS 
.-MOVE SP TO USER'S ERROR CALL 
.‘WRITE ERROR NUMBER IN CALL 
.-MOVE SP TO RETURN IF ERROR 
.•REPORT ERROR AND RETURN 
.RESTORE SP TO NO ERROR 


.•ARGUMENT THE RETURN ADDRESS IF AN ERROR WAS DETECTED 


160$: 

170$: 


ADD 

TSTB 

BED 

ADD 

BR 

SUB 

RTS 


#4, (SP) 
a(SP) 
160$ 

#4. (SP) 

176$ 

#4, (SP) 
PC 


200$: .WORD 


.-MOVE SP TO USER'S ERROR CALL 
;WAS ERROR FOUND?? 

;NOJ ! 

;YES - CHANGE RETURN 

;N0 ERROR FOUND 
.•RETURN TO USER 

.•STORAGE FOR FLAGS 


N 2 
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1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 060210 

28 

29 

30 060210 

31 060214 

32 060220 

33 

34 060224 

35 060230 

36 060234 

37 060240 

38 

39 

40 060242 

41 060250 

42 060252 


43 060260 



062716 

105076 

162716 

013746 

042716 

022726 

001524 


032737 

001030 

032737 

052737 

013737 

062716 

112776 

162716 

004736 

162716 

000240 


.SBTTL STATIC DRIVE STATUS CHECK SUBROUTINE 

THIS SUBROUTINE LOOKS FOR UNEXPECTED CHANGES IN DRIVE 
STATUS, SUCH AS THE DRIVE LOSING VOLUME VALID. THE SUBROUTINE 
CAN BE USED BY HOUSEKEEPING AND OTHER COMMANDS DURING WHICH THERE 
SHOULD NOT BE ANY DRIVE ERRORS OR CHANGES IN STATE. 

THE FOLLOWING CONDITIONS ARE TESTED AND REPORTED AS ERRORS 
IF TRUE: 

.MOL = 0, INDICATES DRIVE WENT OFFLINE, NOTE 
THAT MOL IS ASSUMED TO HAVE BEEN SET 

.VV = O f INDICATES THE DRIVE LOST VOLUME VALID 
.PIP = 1, INDICATES THAT THE DRIVE IS OFF CYLINDER 
.SKI = 1, INDICATES THE DRIVE HAS AN UNEXPECTED SKI ERROR 
.DVC = 1, INDICATES AN UNEXPECTED DEVICE FAULT 

THE SUBROUTINE IS CALLED AFTER STORING STATUS IN THE GET BUFFER. 


JSR 

BR 

NOP 

ERROR 

JSR 


PC,STCDRVSTS 

?r> 


pc,a<sp>+ 


RETURN HERE IF NO ERROR 
RETURN HERE TO REPORT AN ERROR 
ERROR NUMBER DEFINED BY SUB 
GO BACK TO SUB FOR MORE ERROR CHECKS 
RETURN HERE IF NO MORE ERRORS 


000004 

000000 

000004 

001350 

147677 

010100 


010000 001350 
020000 001352 


STCDRVSTS: 

.•CLEAR USER'S ERROR CALL 


;SEE IF 


ADD 

CLR8 

MOV 

BIC 

CMP 

BEQ 


#4,<SP) .-MOVE SP TO USER’S ERROR CALL 

8(SP) .-CLEAR ERROR NUMBER 

44, (SP) .-MOVE SP BACK TO NO ERROR RETURN 

•VV*' = 1 . AND 'PIP” * 0 

RMDS I.-($P> .'PUT DRIVE STATUS ON STACK 

#*C<PIP!MOL!VV>,(SP) 

#NOL.'VV,(SP)+ ;ARE NOL.VV AND PIP O.K.?? 

30$ .-YES'! 


001350 

010000 

001350 

000004 

000207 

000002 

000010 


001140 

001140 

001142 

000000 


.•REPORT AN ERROR IF MOL = 0 AND 
BIT 4 M 0 L.RM 0 SI 

BNE 10 $ _ . 

BIT fOPI.RMERII 

BNE 10 $ 

MOV RHDSJ.$GDDAT 

BIS #MOL,$GDDAT 

MOV RMDSI ,$ 8 DDAT 

ADD * 4 . (SP) 

M 0 V 8 # 207 . 8 ( 5 ?) 

SUB # 2 .(SP) 

JSR PC.i(SP)* 

SUB #l 6 .(SP) 

NOP 


•TOPI" = 0 
; IS MOL ON ?? 

•YES 1 1 

jUAS'VDPI" SET?? , „ ^ 

.-YES-DONT REPORT MOL = 0 
.•EXPECTED STATUS 

.•RECEIVED STATUS 

.-MOVE SP TO USER'S ERROR CALL 

.-WRITE ERROR NUMBER IN CALL 

.-MOVE SP TO RETURN FOR ERROR 

.•REPORT ERROR VIA USER 

;MOVE SP BACK TO NO ERROR RETURN 


032737 000100 
001030 


001350 


; REPORT AN ERROR IF VOLUME VALID IS NOW, ZERO AND 
BIT fVV.RMDSI ; IS "VV" = 0 ?? 

BNE 20 $ ;N 0 ! ! 


B 


3 
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58 

060342 

032737 

010000 

001400 


BIT 

#IVC,RMER2I 

; WAS "IVC" SET?? 

59 

060350 

001024 




BNE 

20$ 

; YES-DONT REPORT ’VV" = 0 

60 

060352 

013737 

001350 

001140 


MOV 

RMDSI ,$GDDAT 

.•EXPECTED STATUS 

61 

060360 

052737 

000100 

001350 


BIS 

#VV. RMDSI 


62 

06C366 

013737 

001350 

001142 


MOV 

RMDSI ,$8DDAT 

.•RECEIVED STATUS 

63 

060374 

062716 

000004 



ADD 

#4, (SP) ;M0VE 

SP TO USER’S ERROR CALL 

64 

060400 

112776 

000210 

000000 


M0V8 

#2l0.8(SP) 

.-WRITE ERROR NUMBER IN CALL 

65 

060406 

162716 

000002 



SUB 

#2, (SP) 

.-MOVE SP TO RETURN FOR ERROR 

66 

060412 

004736 




JSR 

pc.a(SP)* 

.■REPORT ERROR VIA USER 

67 

060414 

162716 

000010 



SUB 

#10, (SP) 

.-MOVE SP BACK TO NO ERROR 

68 

060420 

000240 




NOP 



69 

7 A 

060422 




20$: 




fyj 

71 





.•REPORT 

AN ERROR IE DRIVE IS OEE CYLINDER AND ••SKI" = 0 

72 

060422 

032737 

020000 

001350 


BIT 

#PIP. RMDSI 

;IS DRIVE OEE CYLINDER?? 

73 

060430 

001430 




BEQ 

30$ 

;NOi! 

74 

060432 

032737 

040000 

001400 


BIT 

#SKI .RMER2I 

.-WAS "SKI" SET?? 

75 

060440 

001024 




BNE 

30$ 

.-YES-DONT REPORT ’PIP" = 1 

76 

060442 

013737 

001350 

001140 


MOV 

RMDSI ,$GDDAT 

.•EXPECTED STATUS 

77 

060450 

042737 

020000 

001140 


BTC 

#PIP.$GDDAT 


78 

060456 

013737 

001350 

001142 


MOV 

RMDSI. $BDDAT 

.•RECEIVED STATUS 

79 

060464 

062716 

000004 



ADD 

#4 .(SP) 

.-MOVE SP TO USER’S ERROR CALL 

80 

060470 

112776 

000211 

000000 


M0V8 

#2i1 ,8(SP) 

.-WRITE ERROR NUMBER IN USER'S CALL 

81 

060476 

162716 

000002 



SUB 

#2.(SP) 

.-MOVE SP TO RETURN FOR ERROR 

82 

060502 

004736 




JSR 

PC.8(SP)+ 

; REPORT ERROR VIA USER 

83 

060504 

162716 

000010 



SUB 

#10. (SP) 

.•MOVE SP TO NO ERROR RETURN 

84 

060510 

000240 




NOP 



85 

060512 




30$: 




86 

87 





;SEE IE 

"SKI" = 

*1>VC" = 0 


68 

060512 

013746 

001400 



MOV 

RMER2I.-(SP) 

.-PUT ERROR REG 2 ON STACK 

89 

060516 

042726 

137577 



BIC 

#*C<SKI !DVC>, <SP)« 

90 

060522 

001460 




BEQ 

60$ 

.-BRANCH IF NO ERROR 

91 

07 

060524 




40$: 




Vc 

93 





.•REPORT 

AN ERROR IF THERE IS A DEVICE FAULT 

94 

060524 

032737 

000200 

C01400 


BIT 

#DVC.RMER2I 

;ANV DEVICE FAULT?? 

95 

060532 

001424 




BEQ 

50$ 

;N0‘ ! 

96 

060534 

013737 

001400 

001140 


MOV 

RMER2I »$GDDAT 

.•EXPECTED STATUS 

97 

060542 

042737 

000200 

001140 


BIC 

#DVC.$GDDAT 


98 

060550 

013737 

001400 

001142 


MOV 

RMER2I.S8DDAT 

.•RECEIVED STATUS 

99 

060556 

062716 

000004 



ADD 

#4. (SP) 

.-MOVE SP TO USER'S CALL 

100 

060562 

112776 

000212 

000000 


MOVB 

#2l2.8(SP) 

.•WRITE NUMBER OF ERROR IN CALL 

101 

060570 

162716 

000002 



SUB 

#2.(SP) 

.-MOVE SP TO RETURN FOR ERROR 

102 

060574 

004736 




JSR 

PC.i(SP)* 

.-REPORT ERROR VIA USER 

103 

060576 

162716 

000010 



SUB 

#10. (SP) 

.‘MOVE SP BACK TO NO ERROR 

104 

060602 

000240 




NOP 



105 

060604 




50$: 




106 









107 





.•REPORT 

AN ERROR IE ’SKI” = 1 


108 

060604 

032737 

040000 

001400 


BIT 

#SKI,RMER2I 

;IS THERE A SEEK INCOMPLETE ERROR 

T09 

060612 

001424 




BEQ 

60$ 

;N0! ! 

110 

C60614 

013737 

001400 

001140 


MOV 

RMER2I «$GDDAT 

.-EXPECTED STATUS 

111 

060622 

042737 

040000 

001140 


BIC 

#SKI.$GDDAT 


112 

060630 

013737 

001400 

001142 


MOV 

RMER2l.$BDDAT 

.•RECEIVED STATUS 

113 

060636 

062716 

000004 



ADD 

#4.(SP) 

.-MOVE SP TO USER’S ERROR CALL 

114 

060642 

112776 

000213 

000000 


MOVB 

#213.8(SP) 

.’WRITE ERROR NUMBER IN USER'S ERROR CALL 
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#2 ,<SP) 
PC.8(SP)* 
#10. (SP) 


C 3 


115 

060650 

162716 

000002 


SUB 

116 

060654 

004736 



JSR 

117 

060656 

162716 

000010 


SUB 

118 

060662 

000240 



NCP 

119 

060664 



60$: 


120 

121 




; AUGMENT THE 

122 

060664 

062716 

000004 


ADD 

123 

060670 

105776 

000000 


TST8 

124 

060674 

001403 



BEQ 

125 

060676 

062716 

000004 


ADD 

126 

060702 

000402 



BR 

127 

060704 

162716 

000004 

70$: 

SUB 

128 

060710 

000240 


80$: 

NOP 

129 

060712 

000207 



RTS 


MOVE SP TO RETURN FOR ERROR 
REPORT ERROR VIA USER 
MOVE SP BACK TO NO ERROR 


; AUGMENT THE RETURN ADDRESS IF ANY ERROR WAS DETECTED 

9 1 KK Ml .ynwc CD TO MCCfilC CD 


#4. (SP) 

atsp) 

70$ 

#4, (SP) 

80 i 

#4, (SP) 
PC 


;M0VE SP TO USER’S ERROR CALL 
;UAS AN ERROR DETECTED?? 

;N0! ! 

•YES - MOVE SP TO USER’S ERROR RETURN 
;N0 - MOVE SP TO NO ERROR RETURN 
.•RETURN TO USER 
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SEQ 0235 


060714 

060714 010046 

060716 010146 
060720 010246 
060722 010346 
060724 010446 
060726 010546 
060730 016646 000022 
060734 016646 000022 
060740 016646 000022 
060744 016646 000022 
060750 000002 


060752 

060752 012666 000022 
060756 012666 000022 
060762 012666 000022 
060766 012666 000022 
060772 012605 
060774 012604 
060776 012603 
061000 012602 
061002 012601 
061004 012600 
061006 000002 


.SBTTL SAVE AND RESTORE R0-R5 ROUTINES 


•SAVE 

•CALL 

* 

•UPON 

•TOP- 
* + 2 - 

* +4— 

• + 6 - 
* + 8 - 
*♦ 10 - 
*♦ 12 - 
*♦14- 


JSAVREG: 


R0-R5 

SAVREG 

l RETURN FROM SSAVREG THE STACK WILL LOOK LIKE: 

— (♦16) 

— (♦18) 


-R5 


-R4 


-R3 


-R2 


-R1 


-RO 


’’mov 

RO.-(SP) 

MOV 

RI.-(SP) 

MOV 

R2,-(SP) 

MOV 

R3,-(SP) 

MOV 

R4,-(SP) 

MOV 

R5,-(SP) 

MOV 

22(SP).-(SP) 

MOV 

22(SP) ,-(SP) 

MOV 

22(SP).-(SP) 

MOV 

22(SP),-(SP) 

RTI 



;*RE STORE R0-R5 
; *CALL : 

;• RESREG 
iRESREG: 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

RTI 


(SP)*,22(SP) 

(SP)+,22(SP) 

(SP)+,22(SP) 

(SP)+,22(SP) 

(SP)+, R5 

(SP)+,R4 

(SP)+,R3 

(SP)+,R2 

(SP)+,R1 

(SP)+.RO 


PUSH 

PUSH 

PUSH 

PUSH 

PUSH 

PUSH 

SAVE 

SAVE 

SAVE 

SAVE 


RO ON 
R1 ON 
R2 ON 
R3 ON 
R4 ON 
R5 ON 
PS OF 
PC OF 
PS OF 
PC OF 


STACK 

STACK 

STACK 

STACK 

STACK 

STACK 

MAIN FLOW 

MAIN FLOW 

CALL 

CALL 


RESTORE PC 
RESTORE PS 
RESTORE PC 
RESTORE PS 
POP STACK 
POP STACK 
POP STACK 
POP STACK 
POP STACK 
POP STACK 


OF CALL 
OF CALL 
OF MAIN FLOW 
OF MAIN FLOW 
INTO R5 
INTO R4 
INTO R3 
INTO R2 
INTO R1 
INTO RO 
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.SBTTL BINARY TO ASCII AND TYPE ROUTINE 


♦THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 16-BIT 
•BINARY-ASCII NUMBER AND TYPE IT. 

•CALL: 


MOV 

TYP8N 


NUMBER, -(SP) 


061010 010146 

061012 016601 000006 

061016 000261 

061020 112737 000060 061062 
061026 006101 
061030 001406 
061032 105537 061062 
061036 104401 061062 

061042 000241 
061044 000765 
061046 012601 

061050 016666 000002 000004 
061056 012616 
061060 000002 
061062 000 000 


STYPBN: MOV 

RI.-(SP) 

MOV 

6(SP) ,R1 

SEC 


IS: MOVB 

#'0,$BIN 

ROL 

R1 

BEQ 

2$ 

ADCB 

S6IN 

TYPE 

.S6IN 

CLC 


BR 

IS 

2$: MOV 

(SPJ+.R1 

MOV 

2(SP).4(SP) 

MOV 

(SP>+, (SP) 

RTI 


$81 N: .BYTE 

0.0 


NUMBER TO BE TYPED 
TYPE IT 

SAVE R1 ON THE STACK 
GET THE INPUT NUMBER 

SET "C" SO CAN KEEP TRACK OF THE NUMBER OF BITS 
SET CHARACTER TO AN ASCII 'TT. 

GET THIS BIT 
DONE? 

NO— SET THE CHARACTER EQUAL TO THIS BIT 
GO TYPE THIS BIT 

CLEAR "C" SO CAN KEEP TRACK OF BITS 
GO DO THE NEXT BIT 
POP THE STACK INTO R1 
ADJUST THE STACK 

‘RETURN TO USER 

•STORAGE FOR ASCII CHAR. AND TERMINATOR 


SEG 0237 


CZRNDAO 

CONVERT 
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F 3 






;*CALL: 







; * 

MOV 

NUM.-(SP) 





• * 

0 

TYPDS 


061064 




STYPDS: 



061064 

010046 




MOV 

RO.-(SP) 

061066 

010146 




MOV 

R1 ,-(SP) 

061070 

010246 




MOV 

R2.-CSP) 

061072 

010346 




MOV 

R3,-(SP) 

061074 

010546 




MOV 

R5.-(SP) 

061076 

012746 

020200 



MOV 

#20200. -(SP) 

061102 

016605 

000020 



MOV 

20CSP) ,R5 

061106 

100004 




BPL 

IS 

061110 

005405 




NEG 

R5 

061112 

112766 

000055 

O00001 


MOVB 

f'-.KSP) 

061120 

005000 



IS: 

CLR 

RO 

061122 

012703 

061300 



MOV 

#SDBLK.R3 

061126 

112723 

000040 



M0V8 

#' .(R3)+ 

061132 

005002 



2S: 

CLR 

R 2 

061134 

016001 

061270 



MOV 

SDTBL(RO) ,R1 

061140 

160105 



3S: 

SUB 

R1.R5 

061142 

002402 




BLT 

4$ 

061144 

005202 




INC 

R2 

061146 

000774 




BR 

3S 

061150 

060105 



4S: 

ADD 

R1.R5 

061152 

005702 




TST 

R2 

061154 

001002 




BNE 

5S 

061156 

105716 




TSTB 

(SP) 

061160 

100407 




BMI 

7S 

061162 

106316 



5$: 

ASLB 

(SP) 

061164 

103003 




BCC 

6S 

061166 

116663 

000001 

177777 


MOVB 

1(SP>.-1 (R3) 

061174 

052702 

000060 


6$: 

BIS 

#'0.R2 

061200 

052702 

000040 


7$: 

BIS 

#' ,R2 

061204 

110223 




M0V8 

R2.(R3)+ 

061206 

005720 




TST 

(R0) + 

061210 

020027 

000010 



CMP 

R0.#10 

061214 

002746 




BLT 

2S 

061216 

003002 




BGT 

8S 

061220 

010502 




MOV 

R5.R2 

061222 

000764 




BR 

6S 

061224 

105726 



8$: 

TSTB 

(SP) + 

061226 

100003 




BPL 

9S 

061230 

116663 

177777 

177776 


MOVB 

-1(SP).-2(R3) 

061236 

105013 



9$: 

CLR8 

(R3) 

061240 

012605 




MOV 

(SP)*,R5 

061242 

012603 




MOV 

(SPH.R3 

061244 

012602 




MOV 

(SP)+.R2 

061246 

012601 




MOV 

(SPH.rtl 


.S8TTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 

iTHIS*ROUTINE*IS*USED TO*CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT 
•SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
•NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
•BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
•REPLACED WITH SPACES. 

;;PUT THE BINARY NUMBER ON THE STACK 
; ; GO TO THE ROUTINE 

;;PUSH RO ON STACK 
; ;PUSH R1 ON STACK 
;;PUSH R2 ON STACK 
;;PUSH R3 ON STACK 
;;PUSH R5 ON STACK 
;;SET BLANK SWITCH AND SIGN 
;;GET THE INPUT NUMBER 
;;BR IF INPUT IS POS. 

;;MAKE THE BINARY NUMBER POS. 

;;MAKE THE ASCII NUMBER NEG. 

;;ZERO THE CONSTANTS INDEX 
;;SFTUP THE OUTPUT POINTER 
;;SET THE FIRST CHARACTER TO A BLANK 
;; CLEAR THE BCD NUMBER 
;;GET THE CONSTANT 
;;FORM THIS BCD DIGIT 
;;BR IF DONE 

;; INCREASE THE BCD DIGIT BY 1 

;;ADD BACK THE CONSTANT 
;; CHECK IF BCD DIGIT=0 
;;FALL THROUGH IF 0 
;; STILL DOING LEADING O'S? 

;;8R IF YES 
; ;MSD? 

;;BR IF NO 
;; YES— SET THE SIGN 
;;MAKE THE BCD DIGIT ASCII 
;;MAKE IT A SPACE IF NOT ALREADY A DIGIT 
;;PUT THIS CHARACTER IN THE OUTPUT BUFFER 
;;JUST INCREMENTING 
;; CHECK THE TABLE INDEX 
; ; GO DO THE NEXT DIGIT 
;;G0 TO EXIT 
; ; GET THE LSD 
; ;G0 CHANGE TO ASCII 
;;WAS THE LSD THE FIRST NON-ZERO? 

* *8R IF NO 

;;YES— SET THE SIGN FOR TYPING 
; ; SET THE TERMINATOR 
;;POP STACK INTO R5 
;;POP STACK INTO R3 
;;POP STACK INTO R2 
;;POP STACK INTO R1 
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061250 

012600 



MOV 

ISP )*. RO 

;;P0P STACK INTO RO 

061252 

104401 

061300 


TYPE 

,$DBLK 

.-.-NOW TYPE THE NUMBER 

061256 

016666 

000002 000004 


MOV 

<!(SP) ,4(SP) 

; .-ADJUST THE STACK 

061264 

012616 



MOV 

(SP)+, <SP> 


061266 

000002 



RTI 


; .-RETURN TO USER 

061270 

023420 


JDTBL: 

10000. 



061272 

001750 



1000. 



061274 

000144 



100. 



061276 

000012 



10. 



061300 



$D8lK: 

•BLKW 

4 



CZRNOAO RM80 FCTNL PT1 

MACRO V04 

.00 28- JAN-82 16:24:51 

H 3 

PAGE 3* 

SEO 0239 

BINARY TO OCTAL 

(ASCII) 

AND TYPE 








S8TTL BINARY 

TO OCTAL (ASCII) 

AND TYPE 





♦THIS ROUTINE 

IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 





•OCTAL (ASCII) 

NUMBER AND TYPE 

IT. 





•JTYPOS ENTER HERE TO SETUP 

SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 





•CALL: 







• MOV 

NUM.-(SP) 

;; NUMBER TO BE TYPED 





• TYPOS 


; ; CALL FOR TYPEOUT 





• .BYTE 

N 

;;N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 





* .BYTE 

M 

;;M=1 OR 0 





* 


;;1=TYPE LEADING ZEROS 





* 


;;0-SUPPRESS LEADING ZEROS 





•STYPON ENTER HERE TO TYPE 

OUT WITH THE SAME PARAMETERS AS THE LAST 





•STYPOS OR STYPOC 






•CALL: 







• MOV 

NUM.-(SP) 

.-.NUMBER TO BE T YPED 





• TYPON 


.-.-CALL FOR TYPEOUT 





•STYPOC ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 





•CALL: 







• MOV 

NUM.-(SP) 

; .-NUMBER TO BE TYPED 





:* TYPOC 


.-.-CALL FOR TYPEOUT 

061310 

017646 

000000 


&TYPOS: MOV 

a(SP),-(SP) 

;; PICKUP THE MODE 

061314 

116637 

000001 

06153* 

MO VS 

KSP). JOFILL 

.-.-LOAD ZERO FILL SWITCH 

061322 

112637 

061535 


MOVB 

(SP)+,S0M0DE*1 

;; NUMBER OF DIGITS TO TYPE 

C61326 

062716 

000002 


ADD 

#2.(SP) 

.-.-ADJUST RETURN ADDRESS 

061332 

000406 



BP 

STYPON 


061334 

112737 

000001 

061533 : 

STYPOC: MOVB 

#1 .SOFILL 

;;SET THE ZERO FILL SWITCH 

061342 

112737 

000006 

061535 

MOVB 

#6,S0M0DE*1 

.-.-SET FOR SIX(6) DIGITS 

061350 

112737 

000005 

061532 

&TYPON: MOVB 

#5,S0CNT 

.-.-SET THE ITERATION COUNT 

061356 

010346 



MOV 

R3,-(SP) 

.-.-SAVE R3 

061360 

010446 



MOV 

R4.-ISP) 

.-.-SAVE R4 

061362 

010546 



MOV 

R5,-(SP) 

.-.-SAVE R5 

061364 

113704 

061535 


MOVB 

S0M0DE+1.R4 

.-.-GET THE NUMBER OF DIGITS TO TYPE 

061370 

005404 



NEC 

R4 


061372 

062704 

000006 


ADD 

#6,R4 

.-.-SUBTRACT IT FOR MAX. ALLOWED 

061376 

110437 

061534 


MOVB 

R4.S0M0DE 

;;SAVE IT FOR USE 

061402 

113704 

061533 


MOVB 

S0FILL.R4 

.-.-GET THE ZERO FILL SWITCH 

061406 

016605 

000012 


MOV 

12(SP) . R5 

.-.-PICKUP THE INPUT NUMBER 

061412 

005003 



CLR 

R3 

;; CLEAR THE OUTPUT WORD 

061414 

006105 



IS: ROL 

R5 

; .-ROTATE MSB INTO "C" 

061416 

000404 



BR 

3S 

;;G0 DO MSB 

061420 

006105 



2$: ROL 

R5 

.-.-FORM THIS DIGIT 

061422 

006105 



ROL 

R5 


061424 

006105 



ROL 

R5 


061426 

010503 



MOV 

R5.R3 


061430 

006103 



3S: ROL 

R3 

;;GET LSB OF THIS DIGIT 

061432 

105337 

061534 


DECS 

SOMODE 

.-.-TYPE THIS DIGIT? 

061436 

100016 



BPL 

7$ 

;;BR IF NO 

061440 

042703 

177770 


BIC 

#1 77770. R3 

.-.-GET RID OF JUNK 

061444 

001002 



8NE 

4$ 

.-.-TEST FOR 0 

061446 

005704 



TST 

m 

;; SUPPRESS THIS 0? 

061450 

001403 



BEO 

5S 

;;BR IF YES 

061452 

! 

f 

005204 



4S: INC 

R4 

;; DON'T SUPPRESS ANYMORE O'S 



I 3 


SEQ 0240 
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061454 

052703 

000060 

BIS 

#’0,R3 

061460 

052703 

000040 

5$: BIS 

#' .R3 

R3.6s 

ioCNT 

061464 

110337 

061530 

MOVB 

061470 

104401 

061530 

TYPE 

061474 

105337 

061532 

7S: DECB 

061500 

003347 


BGT 

2* 

061502 

002402 


BLT 

61 

061504 

005204 


INC 

R4 

061506 

000744 


BR 

2S 

061510 

012605 


6S: MOV 

(SPI+.R5 

061512 

012604 


MOV 

(SP)+. R4 

061514 

012603 


MOV 

(SP)+, R3 

061516 

016666 

000002 000004 

MOV 

2(SP),4(SP) 

061524 

012616 


MOV 

(SP)-MSP) 

061526 

061530 

000002 

000 


RTI 

8S: .BYTE 

0 

061 531 

000 


.BYTE 

0 

061532 

000 


SOCNT : .BYTE 

0 

061533 

000 


SOFILL: .BYTE 

0 

061534 

000000 


SOMODE: .WORD 

0 


MAKE THIS DIGIT ASCII 
MAKE ASCII If NOT ALREADY 
SAVE FOR TYPING 
GO TYPE THIS DIGIT 
COUNT 8Y 1 
BR If MORE TO DO 
BR IF DONE 

INSURE LAST DIGIT ISN'T A BLANK 
GO DO THE LAST DIGIT 
RESTORE R5 
RESTORE R4 
DCCTnOF BT 

SET THE STACK FOR RETURNING 
RETURN 

STORAGE FOR ASCII DIGIT 
TERMINATOR FOR TYPE ROUTINE 
OCTAL DIGIT COUNTER 
ZERO FILL SWITCH 
NUMBER OF DIGITS TO TYPE 
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SEQ 0241 


. S8TTL TYPE ROUTINE 

•ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 BYTE. 

•THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 

•N0TE1: SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 

•N0TE2: SF ILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 

•N0TE3: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 

* 

•CALL: 

*1) USING A TRAP INSTRUCTION 

* TYPE .MESADR ;; ME SADR IS FIRST ADDRESS OF AN ASCIZ STRING 

•OR 

* TYPE 

* MESADR 


061536 

105737 

001173 


STYPE: 

TSTB 

$TPFLG 

;IS THERE A TERMINAL? 

061542 

100002 




BPL 

1$ 

;BR IF YES 

061544 





HALT 


.-HALT HERE IF NO TERMINAL 

061546 

000430 




BR 

3$ 

.'LEAVE 

061550 

010046 



1$: 

MOV 

RO.-(SP) 

.-SAVE RO 

061552 

017600 

000002 



MOV 

82 (SP). RO 

.-GET ADDRESS OF ASCIZ STRING 

061556 

122737 

000001 

001242 


CMP8 

#APTENV,$ENV 

.•RUNNING IN APT MODE 

061564 

001011 




BNE 

62$ 

.-NO.GO CHECK FOR APT CONSOLE 

061566 

132737 

000100 

001243 


BITB 

#APTSPOOL.$ENVM 

.•SPOOL MESSAGE TO APT 

061574 

001405 




BEQ 

62$ 

.-NO.GO CHECK FOR CONSOLE 

061576 

010037 

061606 



MOV 

R0.61$ 

; SETUP MESSAGE ADDRESS FOR APT 

061602 

004737 

066260 



JSR 

PC.SATY3 

.•SPOOL MESSAGE TO APT 

061606 

000000 



61$: 

.WORD 

0 

.•MESSAGE ADDRESS 

061610 

132737 

000040 

001243 

62$: 

BITB 

#APTCSUP,$ENVM 

.-APT CONSOLE SUPPRESSED 

061616 

001003 




BNE 

60$ 

; YES. SKIP TYPE OUT 

061620 

112046 



2$: 

H0V8 

(RO)+,-(SP) 

.•PUSH CHARACTER TO BE TYPED ONTO STACK 

061622 

001005 




BNE 

4$ 

;BR IF IT ISN'T THE TERMINATOR 

061624 

005726 




TST 

(SP)4 

; IF TERMINATOR POP IT OFF THE STACK 

061626 

012600 



60$: 

MOV 

(SPJ4.R0 

.•RESTORE RO 

061630 

062716 

0000C2 


3$: 

ADD 

#2.(SP) 

.•ADJUST RETURN PC 

061634 

000002 




RTI 


.•RETURN 

061636 

122716 

000011 


4$: 

CMPB 

#HT. (SP) 

.•BRANCH IF <HT> 

061642 

001430 




BEQ 

8$ 


061644 

122716 

000200 



CMPB 

fCRLF.(SP) 

.•BRANCH IF NOT <CRLF> 

061650 

001006 




BNE 

5$ 


061652 

005726 




TST 

(SP)+ 

.-POP <CRXLF> EQUIV 

061654 

104401 




TYPE 


.•TYPE A CR AND LF 

061656 

001217 




$CRLF 



061660 

105037 

062066 



CLRB 

SCHARCNT 

.•CLEAR CHARACTER COUNT 

061664 

000755 




BR 

2$ 

.-GET NEXT CHARACTER 

061666 

004737 

061750 


5$: 

JSR 

PC,$TYP£C 

;G0 TYPE THIS CHARACTER 

061672 

123726 

001172 


6$: 

CMPB 

SFILLC. (SP) + 

;IS IT TIME FOR FILLER CHARS.? 

061676 

001350 




BNE 

2$ 

;IF NO GO GET NEXT CHAR. 

061700 

013746 

001170 



MOV 

SNULL, -(SP) 

.GET # OF FILLER CHARS. NEEDED 
.-AND THE NULL CHAR. 

061704 

105366 

000001 


7$: 

DECS 

1 (SP) 

.-DOES A NULL NEED TO BE TYPED? 

061710 

002770 




BLT 

6$ 

;BR IF NO-GO POP THE NULL OFF OF STACK 

061712 

004737 

061750 



JSR 

PC.STYPEC 

;G0 TYPE A NULL 

061716 

105337 

062066 



DECB 

SCHARCNT 

;D0 NOT COUNT AS A COUNT 

061722 

000770 




BR 

7$ 

.-LOOP 



K 
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061724 

112716 

000040 


8$: 

MOVB 

#’ .(SP) 

061730 

004737 

061750 


9$: 

JSR 

PC, STYPEC 

061734 

132737 

000007 

062066 


BITS 

#7,$CHARCNT 

061742 

001372 




BNE 

9$ 

061744 

005726 




TST 

( SP )♦ 

061746 

000724 




BR 

2$ 

061750 




STYPEC: 



061750 

105777 

117204 



TSTB 

a$TKS 

061754 

100022 




BPL 

10$ 

061756 

017746 

117200 



MOV 

a$TK8.-(SP) 

061762 

042716 

177600 



BIC 

#1 77600. (SP> 

061766 

122716 

000023 



CMP8 

«XOFF,(SP) 

061772 

001012 




BNE 

102$ 

061774 




101$: 



061774 

105777 

117160 



TSTB 

a$TKS 

062000 

100375 




BPL 

101$ 

062002 

117716 

117154 



MOVB 

a$TK8.(SP) 

062006 

042716 

177600 



BIC 

#17760o.(SP) 

062012 

122716 

00C021 



CMP8 

#$XON, (SP) 

062016 

001366 




BNE 

101$ 

062020 




102$: 



062020 

005726 




TST 

(SP) + 

062022 




10$: 



062022 

105777 

117136 



TSTB 

a$TPs 

062026 

100375 




BPL 

10$ 

062030 

116677 

000002 

117130 


MOVB 

2(SP).a$TPB 

062036 

122766 

000015 

900002 


C»B 

#CR,2(SP) 

062044 

001003 




BNE 

IS 

062046 

105037 

062066 



CLRB 

SCHARCNT 

062052 

000406 




BR 

STYPEX 

062054 

122766 

000012 

000002 

1$: 

CMPB 

#LF.2(SP) 

062062 

001402 




BEQ 

STYPEX 

062064 

105227 




INC8 

(PC)* 

062066 

000000 



$CHARCNT : .WORD 

0 

062070 

000207 



STYPEX: 

RTS 

PC 


3 


SEQ 02*2 


; .-REPLACE TAB WITH SPACE 
;;TYPE A SPACE 
;; BRANCH IF NOT at 
,*;TAB STOP 

; ; POP SPACE OFF STACK 
; ; GET NEXT CHARACTER 

; ; CHAR IN KYBD BUFFER? 

;;BR IF NOT 
; ; GE T CHAR 

; .-STRIP EXTRANEOUS BITS 
; ; WAS CHAR XOFF 
;;BR IF NOT 

;;UAIT FOR CHAR 

;;GET CHAR 
;; STRIP IT 
; ; WAS IT XON? 

;;8R IF NOT 

; ; F IX STACK 

.-.-WAIT UNTIL PRINTER IS READY 

;;LOAD CHAR TO BE TYPED INTO DATA REG. 
;;IS CHARACTER A CARRIAGE RETURN? 
.‘.‘BRANCH IF NO 

;; YES— CLEAR CHARACTER COUNT 
.-.‘EXIT 

;;IS CHARACTER A LINE FEED? 

.-.-BRANCH IF YES 

;.* COUNT THE CHARACTER 

;; CHARACTER COUNT STORAGE 
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L 3 


SEO 0243 


.S8TTL SCOPE HANDLER ROUTINE 


062072 

062072 

062074 

062100 

062106 

062110 

062114 


104410 

004737 

032777 

001402 

000137 


062114 000416 


062116 

062122 

062130 

062134 

062140 

062142 

062144 

062150 

062152 

062152 

062160 

062162 

062164 

062170 

062172 

062176 

062200 

062204 

062206 

062210 

062214 

062220 

062222 

062224 

062230 

062232 

062240 

062242 

062246 

062254 

062262 

062264 

062272 


013746 

012737 

005737 

012637 

000561 

022626 

012637 

000521 

032777 

001421 

005046 

117716 

001414 

022716 

002411 

011637 

005316 

006316 

062716 

013637 

000547 

005726 

105737 

001502 

022737 

001455 

013746 

012737 

013737 

000406 

012737 

012716 


•THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
•AND LOAD THE TEST NUMBER (STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0» 
•AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAYS 5 :08> 

•THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 


*SW14=1 
•SW1 1=1 
•SW09=1 
•SW08=1 


LOOP ON TEST 
INHIBIT ITERATIONS 
LOOP ON ERROR 
LOOP ON TEST IN SUR<7:0> 



.-•CALL 

;• 

SCOPE 

;; SCOPE 

=IOT 


SSCOPE: 

CKSUR 


;;TEST FOR CHANGE IN SOFT 

062734 


JSR 

PC, STOP 


040000 117046 

1$: 

BIT 

#8IT14,aSUR 

; ; LOOP ON PRESENT TEST? 

062540 


BEQ 

9$ 

;;N0 IF SW14sO 

A* 

JMP 

SOVER 

;;JUMP OVER SCOPE ROUTINE 


9$ 

#####START OF 


CODE FOR THE XOR 




SXTSTR: 

BR 

6$ 

000004 



MOV 

a#ERRVEC,-(SP) 

062142 

000004 


MOV 

#5$,i#ERRVEC 

177060 



TST 

B#1?7060 

000004 



MOV 

(SP) +,8#ERRVEC 




BR 

SSVLAD 



5$: 

CMP 

(SPH, (SP)* 

000004 



MOV 

(SP)+.B#ERRVEC 




BR 

7$ 



6$:;#####END 

OF CODE FOR THE X 

000400 

116774 


BIT 

#BI T08.8SWR 




BEQ 

2$ 




CLR 

-(SP) 

116764 



NOVB 

aswR,($p) 




BEQ 

8$ 

000067 



CMP 

#67. (SP) 




BLT 

8$ 

001116 



MOV 

(SP), STSTNM 




DEC 

(SP) 




ASL 

(SP) 

062556 



ADD 

#$SU08T8L,(SP) 

001122 



MOV 

a(SP)+,$LPADR 




BR 

SOVER 



8$: 

TST 

(SP)* 

001117 


2$: 

TSTB 

SERF LG 




BEQ 

3$ 

177777 

063352 


CMP 

#-1 -CPSAVE 




BEQ 

200$$ 

000004 



MOV 

ERRVEC.-(SP) 

062264 

000004 


MOV 

#2000$,ERRVEC 

177766 

063352 


MOV 

QD 

177766.CPSAVE 

0001 c 

177777 

063352 

2000$: 

ON 

MOV 

cUU 1# 

#-1 -CPSAVE 

062300 



MOV 

#2001$. (SP) 


TESTER##### 

IF RUNNING ON THE * *0R" TESTER CHANGE 
THIS INSTRUCTION TO A •NOP** (NOP=240) 

SAVE THE CONTENTS OF THE ERROR VECTOR 
SET FOR TIMEOUT 
TIME OUT ON XOR? 

RESTORE THE ERROR VECTOR 
GO TO THE NEXT TEST 
CLEAR THE STACK AFTER A TIME OUT 
RESTORE THE ERROR VECTOR 
LOOP ON THE PRESENT TEST 
TESTER##### 

LOOP ON SPEC. TEST? 

BR IF NO 

CLEAR A TEMP. LOCATION 
PICKUP THE DESIRED TEST NUMBER 
BRANCH IF BAD TEST NUMBER IN SUR 
CHECK THE NUMBER IN THE SUR 
BRANCH IF TEST NUMBER IS OUT OF RANGE 
UPDATE THE TEST NUMBER 
turnip nv dmf 

SCALE THE TEST NUMBER AS AN INDEX 
FORM THE ADDRESS OF TEST POINTER 
SET LOOP ADDRESS TO DESIRED TEST 
GO LOOP ON THE TEST 

CLEAN THE BAD TEST NUMBER OFF OF THE STACK 
HAS AN ERROR OCCURRED? 

BR IF NO 

SEE IF TIMEOUT WAS PREVIOUSLY RECORDED 
KICK AROUND ROUTINE IF SO 
SAVE CONTENTS OF ERROR VECTOR 
SETUP 'TRAP' RETURN ADDRESS 
MOVE CPU ERROR REGISTER TO CPSAVE FOR TEST 

SET CPU ERROR REGISTER TIMEOUT INDICATOR 
SETUP RETURN ADDRESS 


n 5 


SEG 0244 
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062276 

000002 



RTI 


062300 

012637 

000004 


2001$: MOV 

(SP)*, ERRVEC 

062304 

022737 

177777 

063352 

2002$: CMP 

#-1. CPSAVE 

062312 

001430 



BEQ 

2003$ 

062314 

032737 

000001 

063352 

BIT 

#BI TOO, CPSAVE 

062322 

001424 



BEQ 

2003$ 

062324 

042737 

000001 

177766 

BIC 

#81 TOO, 177766 

062332 

013746 

001154 


MOV 

SWR.-(SP) 

062336 

017646 

000000 


MOV 

3<sp).-(sp) 

062342 

012737 

000176 

001154 

MOV 

#176, SWR 

062350 

011677 

116600 


MOV 

(SP) .aswR 

062354 

042777 

001000 

116572 

BIC 

#BIT09,aSWR 

062362 

104177 



EMT 

177 

062364 

012676 

000000 


MOV 

<sp)+, a<sp> 

062370 

012637 

001154 


MOV 

(SP)*, SWR 

062374 




2003$: 


062374 

123737 

001131 

001117 

CMPB 

SERMAX.SERFLG 

062402 

101015 



BHI 

3$ 

062404 

032777 

001000 

116542 

BIT 

#8IT09,aSWR 

062412 

001404 



BEQ 

4$ 

062414 

013737 

001124 

001122 

7$: MOV 

$LPERR,$LPADR 

062422 

000446 



BR 

$OVER 

062424 

105037 

001117 


4$: CLRB 

SERFLG 

062430 

005037 

001206 


CLR 

$TIMES 

062434 

000415 



BR 

1 $ 

062436 

032777 

004000 

116510 

3$: BIT 

#8IT11,aSWR 

062444 

001011 



BNE 

1$ 

062446 

005737 

001230 


TST 

$PASS 

062452 

001406 



BEQ 

1$ 

062454 

005237 

001120 


INC 

$ICNT 

062460 

023737 

001206 

001120 

CMP 

$TIMES,$ICNT 

062466 

002024 



BGE 

$OVER 

062470 

012737 

000001 

001120 

1$: MOV 

#1 ,$ICNT 

062476 

013737 

062554 

001206 

MOV 

$MXCNT, $TIMES 

062504 

105237 

001116 


$SVLAD: INCB 

STSTNM 

062510 

113737 

001116 

001226 

M0V8 

$TSTNM.$TESTN 

062516 

011637 

001122 


MOV 

(SP) ,$LPADR 

06^522 

011637 

001124 


MOV 

(SP). SLPERR 

062526 

005037 

001210 


CLR 

$ESCAPE 

062532 

112737 

000001 

001131 

M0V8 

#1 ,$ERMAX 

062540 

013777 

001116 

116410 

$OVER: MOV 

$TSTNM.3DI SPLAY 

062546 

013716 

001122 


MOV 

SLPADR.(SP) 

062552 

000002 



RTI 


062554 

000005 



$MXCNT : 5. 


062556 




SSW08T8L: 



000067 



.REPT $TN-1 


062556 

007740 



.WORD 

TST1*2 

062560 

010140 



.WORD 

TST2*2 

062562 

010534 



.WORD 

TST3*2 

062564 

011404 



.WORD 

TST4*2 

062566 

011742 



.WORD 

TST5+2 

062570 

012150 



.WORD 

TST6*2 

062572 

012464 



.WORD 

TST7+2 

062574 

012644 



.WORD 

TST10+2 

062576 

013716 



.WORD 

TST11+2 

062600 

014216 



.WORD 

TST12*2 


.-.-RESTORE CONTENTS OF ERROR VECTOR 

; ;SEE IF CPSAVE HAS CPU ERR REG TIMEOUT INDICATION 
; .-BRANCH IF SO 

;;SEE IF THE POWER MONITOR BIT IS ON 

.-.-BRANCH TO CONTINUE ROUTINE IF CLEAR 

.-.'CLEAR THE BIT FOUND TO BE SET 

.-.-SAVE SWR ADDRESS 

.-.-SAVE SWR VALUE 

; ; GET SOFTWARE SWR ADDRESS 

;;GET CURRENT SWR VALUE 

.-.-DON'T ALLOW LOOP ON ERROR ON THIS ERROR 

.-.-CALL SPECIAL POWER FAIL BIT ERROR CALL 

.-.-RESTORE SWR TO ORIGINAL VALUE 

;; RE STORE SWR ADDRESS 

;;MAX. ERRORS FOR THIS TEST OCCURRED? 

;;BR IF NO 
.-.-LOOP ON ERROR? 

; ;BR IF NO 

.-.-SET LOOP ADDRESS TO LAST SCOPE 

.-.-ZERO THE ERROR FLAG 
.*; CLEAR THE NUMBER OF ITERATIONS TO MAKE 
-ESCAPE TO THE NEXT TEST 
;; INHIBIT ITERATIONS? 

* *BR IF YES 

;;IF FIRST PASS OF PROGRAM 

;; INHIBIT ITERATIONS 

;; INCREMENT ITERATION COUNT 

; .-CHECK THE NUMBER OF ITERATIONS MADE 

;;BR IF MORE ITERATION REQUIRED 

; .-REINITIALIZE THE ITERATION COUNTER 

.-.-SET NUMBER OF ITERATIONS TO DO 

.-.-COUNT TEST NUMBERS 

.-.-SET TEST NUMBER IN APT MAILBOX 

.-.-SAVE SCOPE LOOP ADDRESS 

.-.-SAVE ERROR LOOP ADDRESS 

;; CLEAR THE ESCAPE FROM ERROR ADDRESS 

.-.-ONLY ALLOW ONE(I) ERROR ON NEXT TEST 

;; DISPLAY TEST NUMBER 

.-.-FUDGE RETURN ADDRESS 

* -FIXES PS 

;;MAX. NUMBER OF ITERATIONS 


;; STARTING ADDRESS OF TEST 1 
;; STARTING ADDRESS OF TEST 2 
;; STARTING ADDRESS OF TEST 3 
;; STARTING ADDRESS OF TEST 4 
; .-STARTING ADDRESS OF TEST 5 
;; STARTING ADDRESS OF TEST 6 
; .-STARTING ADDRESS OF TEST 7 
.-.-STARTING ADDRESS OF TEST 10 
;; STARTING ADDRESS OF TEST 11 
.-.-STARTING ADDRESS OF TEST 12 


-OOo-vJO 
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N 3 


SEO 0245 


062602 

014426 


.U0RD 

TST13+2 

.•STARTING 

ADDRESS 

OF 

TEST 

13 

062604 

014734 


.WORD 

TST14+2 

.•STARTING 

ADDRESS 

OF 

TE<T 

14 

062606 

015244 


.WORD 

TST15+2 

.•STARTING 

ADDRESS 

OF 

TEST 

15 

062610 

015506 


.WORD 

TST16+2 

.•STARTING 

ADDRESS 

OF 

TEST 

16 

062612 

015764 


.WORD 

TST17+2 

.•STARTING 

ADDRESS 

OF 

TEST 

17 

062614 

016234 


.WORD 

TST20+2 

.•STARTING 

ADDRESS 

OF 

TEST 

20 

0626.6 

016464 


.WORD 

TST21+2 

.•STARTING 

ADDRESS 

OF 

TEST 

21 

062620 

017010 


.WORD 

TST22+2 

.•STARTING 

ADDRESS 

OF 

TEST 

22 

062622 

017430 


.WORD 

TST23+2 

.•STARTING 

ADDRESS 

OF 

TEST 

23 

062624 

017774 


.WORD 

TST24+2 

.•STARTING 

ADDRESS 

OF 

TEST 

24 

062626 

020366 


.WORD 

TST25+2 

.•STARTING 

ADDRESS 

OF 

TEST 

25 

062630 

021056 


.WORD 

TST26+2 

.•STARTING 

ADDRESS 

OF 

TEST 

26 

062632 

021424 


.WORD 

TST27+2 

.•STARTING 

ADDRESS 

OF 

TEST 

27 

062634 

021746 


.WORD 

TST30+2 

.•STARTING 

ADDRESS 

OF 

TEST 

30 

062636 

022330 


.WORD 

TST3H2 

.•STARTING 

ADDRESS 

OF 

TEST 

31 

062640 

022646 


.WORD 

TST32+2 

.•STARTING 

ADDRESS 

OF 

TEST 

32 

062642 

023432 


.WORD 

TST33 *2 

.•STARTING 

ADDRESS 

OF 

TEST 

33 

062644 

024156 


.WORD 

TST34+2 

.•STARTING 

ADDRESS 

OF 

TEST 

34 

062646 

024746 


.WORD 

TST35+2 

.•STARTING 

ADDRESS 

OF 

TEST 

35 

062650 

025532 


.WORD 

TST36+2 

; STARTING 

ADDRESS 

OF 

TEST 

36 

062652 

026064 


.WORD 

TST37+2 

STARTING 

ADDRESS 

OF 

TEST 

37 

062654 

026524 


.WORD 

TST40+2 

.•STARTING 

ADDRESS 

OF 

TEST 

40 

062656 

026744 


.WORD 

TST41+2 

.•STARTING 

ADDRESS 

OF 

TEST 

41 

062660 

027302 


.WORD 

TST42+2 

.•STARTING 

ADDRESS 

OF 

TEST 

42 

062662 

027574 


.WORD 

TST43+2 

.•STARTING 

ADDRESS 

OF 

TEST 

43 

062664 

030066 


.WORD 

TST44+2 

.•STARTING 

ADDRESS 

OF 

TEST 

44 

062666 

030400 


.WORD 

TST45+2 

.•STARTING 

ADDRESS 

OF 

TEST 

45 

062670 

030706 


.WORD 

TST46+2 

.•STARTING 

ADDRESS 

OF 

TEST 

46 

062672 

031174 


.WORD 

TST47+2 

.STARTING 

ADDRESS 

OF 

TEST 

47 

062674 

031476 


.WORD 

TST50 *2 

.•STARTING 

ADDRESS 

OF 

TEST 

50 

062676 

032002 


.WORD 

TST5 m 

; STARTING 

ADDRESS 

OF 

TEST 

51 

062700 

032420 


.WORD 

TST52+2 

.•STARTING 

ADDRESS 

OF 

TEST 

52 

062702 

033016 


.WORD 

TST53+2 

STARTING 

ADDRESS 

OF 

TEST 

53 

062704 

033410 


.WORD 

TST54+2 

.•STARTING 

ADDRESS 

OF 

TEST 

54 

062706 

033750 


.WORD 

TST55+2 

.‘STARTING 

ADDRESS 

OF 

TEST 

55 

062710 

034312 


.WORD 

TST56+2 

.•STARTING 

ADDRESS 

OF 

TEST 

56 

062712 

034636 


.WORD 

TST57+2 

.•STARTING 

ADDRESS 

OF 

TEST 

57 

062714 

035356 


.WORD 

TST60+2 

.•STARTING 

ADDRESS 

OF 

TEST 

60 

062716 

036000 


.WORD 

TST61+2 

STARTING 

ADDRESS 

OF 

TEST 

61 

062720 

036442 


.WORD 

TST62+2 

.‘STARTING 

ADDRESS 

OF 

TEST 

62 

062722 

037042 


.WORD 

TST63+2 

.•STARTING 

ADDRESS 

OF 

TEST 

63 

062724 

037422 


.WORD 

TST64+2 

.•STARTING 

ADDRESS 

OF 

TEST 

64 

062726 

037776 


.WORD 

TST65+2 

.‘STARTING 

ADDRESS 

OF 

TEST 

65 

062730 

040356 


.WORD 

TST66+2 

.•STARTING 

ADDRESS 

OF 

TEST 

66 

062732 

040722 


.WORD 

TST67+2 

.•STARTING 

ADDRESS 

OF 

TEST 

67 




.-DROP PRIORITY 

TO ALLOW CONSOLE INTERRUPT 





062734 



STOP: 







062734 

012746 

000140 

MOV 

#PR3.-(SP> 

.-PUT NEW PS ON STACK 



062740 

012746 

062746 

MOV 

#64$,- (SP) 

.-PUT NEW PC ON STACK 


062744 

000002 


RTI 


.-POP NEW PC AND PS 



062746 



64$: 










.•RAISE PRIORITY 

TO INHIBIT CONSOLE INTERRUPT 




062746 

012746 

000240 

MOV 

#PR5,-(SP) 

;PUT NEW PS ON STACK 




8 4 


SEQ 0246 
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062752 

062756 

062760 

012746 062760 
000002 

65$: 

MOV 

RTI 

#65$, -(SP) 

10 062760 

000207 


RTS 

PC 


;;PUT NEW PC ON STACK 
; ; POP NEW PC AND PS 

.•RETURN 
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C 4 


SEQ 


.S3TTL ERROR HANPLFR ROUTINE 


♦THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
♦SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
♦AND GO TO ERRTYP ON ERROR 

♦THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 


*SW15=1 

*SW13=1 

*SW10=1 

♦SW09-1 

♦CALL 

* 


HALT ON 
INHIBIT 
BELL ON 
LOOP ON 


ERROR 

ERROR 

ERROR 

ERROR 


TYPEOUTS 


ERROR N 


062762 

105037 

063354 


(ERROR: 

CLRB 

IBSAVE 

062764 

104410 




CKSWR 


062770 

105237 

001117 


7$: 

INCB 

SERFLG 

062774 

001775 




BEQ 

7$ 

062776 

013777 

001116 

116152 


MOV 

STSTNM.3DI SPLAY 

063004 

032777 

002000 

116142 


BIT 

#81T10,3SWR 

063012 

001402 




BEQ 

1$ 

063014 

104401 

001212 



TYPE 

.(SELL 

063020 

005237 

001126 


1$: 

INC 

SERTTL 

063024 

011637 

001132 



MOV 

(SP). SERRPC 

063030 

162737 

000002 

001132 


SUB 

#2,$ERRPC 

063036 

117737 

116070 

001130 


MOVB 

3SERRPC. SITEMB 

063044 

032777 

001000 

116102 


BIT 

#8IT09,3SWR 

063052 

001060 




BNE 

1004$ 

063054 

122737 

000177 

001130 


CMPB 

#177. SITEMB 

063062 

001454 




BEO 

1004i 

063064 

105737 

063354 



TSTB 

IBSAVE 

063070 

001047 




BNE 

1003$ 

063072 

022737 

177777 

063352 


CMP 

#-1. CPSAVE 

063100 

001445 




BEQ 

ioo4s 

C63102 

013746 

000004 



MOV 

ERRVEC.-(SP) 

063106 

012737 

063124 

000004 


MOV 

flOOOS.ERRVEC 

063114 

013737 

177766 

063352 


MOV 

177766.CPSAVE 

063122 

000406 




BR 

1001$ 

063124 

012737 

177777 

063352 

1000$: 

MOV 

f-1. CPSAVE 

063132 

012716 

063140 



MOV 

#1001$, (SP) 

063136 

000002 




RTI 


063140 

012637 

000004 


1001$: 

MOV 

<SP)*,ERRVEC 

063144 

022737 

177777 

063352 

1002$: 

CMP 

f-1. CPSAVE 

063152 

001420 




BEQ 

1004$ 

063154 

052737 

000001 

063352 


BIT 

#81 TOO, CPSAVE 

063162 

001414 




BEQ 

1004$ 

063164 

042737 

000001 

177766 


BIC 

#BI TOO, 177766 

063172 

113737 

001130 

063354 


MOVB 

SITEMB, IBSAVE 

063200 

112737 

000177 

001130 


MOVB 

#1 77.51 TEMB 

063206 

000*02 




BR 

1004i 

063210 

105037 

065354 


1003$: 

CLRB 

IBSAVE 

063214 




1004$: 



063214 

032777 

020000 

115732 


BIT 

081T13.3SWR 

063222 

001004 




BNE 

20$ 

063224 

004 757 

063356 



JSR 

PC. ERRTYP 


;;ERROR=EMT AND N=ERROR ITEM NUMBER 

r: CLEAR THE ITEM BYTE SAVE LOCATION 
;TEST FOR CHANGE IN SOFT-SWR 
;SET THE ERROR FLAG 
.•DON’T LET THE FLAG GO TO ZERO 
.•DISPLAY TEST NUMBER AND ERROR FLAG 
.‘BELL ON ERROR? 

;NO - SKIP 
.-RING BELL 

.‘COUNT THE NUMBER OF ERRORS 
;GET ADDRESS OF ERROR INSTRUCTION 

.•STRIP AND SAVE THE ERROR ITEM CODE 
.‘SEE IF LOOP ON ERROR IS SET 
.•BRANCH AROUND ROUTINE IF SO 
;SEE IF THIS IS THE POWER FAIL CALL 
.‘BRANCH AROUND ROUTINE IF IT IS 
.•SEE IF THIS IS THE 2ND ERROR CALL IN THIS ROUTINE 
‘BRANCH IF SO 

‘SEE IF CPSAVE HAS CPU ERR REG TIMEOUT INDICATION 
.‘BRANCH IF SO 

.‘SAVE CONTENTS OF ERROR VECTOR 
; SETUP ’TRAP* RETURN ADDRESS 
.‘MOVE CPU ERROR REGISTER TO CPSAVE FOR TEST 

.‘.‘SET CPU ERROR REGISTER TIMEOUT INDICATOR 
.‘.’SETUP RETURN ADDRESS 

.-.‘RESTORE CONTENTS OF ERROR VECTOR 

.‘.‘SEE IF CPSAVE HAS CPU ERR REG TIMEOUT INDICATION 
* ‘BRANCH IF SO 

;;SEE IF POWER MONITOR BIT IS SET IN CPU ERR REG 
; .‘BRANCH IF OK 
;; CLEAR THE BIT FOUND SET 
.‘.’MAKE IBSAVE NON-ZERO FOR DUAL ERROR CALL 
.‘.‘SET SITEMB TO SPECIAL POWER FAIL POINTER 
.-.BRANCH OVER IBSAVE CLEARING 

.‘.‘CLEAR IBSAVE SO 2ND TIME THROUGH EXITS 

.‘.‘SKIP TYPEOUT IF SET 
.‘.‘SKIP TYPEOUTS 
; ; GO TO USER ERROR ROUTINE 


D 


4 
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063230 

104401 

001217 



TYPE 

.SCRLF 


063234 




20$: 




063234 

122737 

000001 

001242 


CM Pfi 

fAPTENV.SENV 

.-.-RUNNING IN APT MODE 

063242 

001007 




3NE 

2$ 

; ;NO,SKIP APT ERROR REPORT 

063244 

',13737 

001130 

063256 


wove 

$1 TEMB.21S 

;;SET ITEM NUMBER AS ERROR NUMBER 

063252 

004737 

066270 



JSR 

PC.SATY4 

;; REPORT FATAL ERROR TO APT 

063256 

000 



21$: 

.BYTE 

0 


063257 

000 




.BYTE 

0 


063260 

000777 



22$: 

BR 

22$ 

; ;APT ERROR LOOP 

063262 

105737 

063354 


2$: 

TSTB 

IBSAVE 

.-.-SEE IF IBSAVE IS LOADED 

063266 

001005 




BNE 

3$ 

; .‘BRANCH IF NOT - NO HALT ON PUR MON BIT ERROR 

063270 

005777 

115660 



TST 

asuR 

.-.-HALT ON ERROR 

063274 

100002 




BPL 

3$ 

.-.-SKIP IF CONTINUE 

063276 

000000 




HALT 


.-.-HALT ON ERROR! 

063300 

104410 




CKSWR 


.-.-TEST FOR CHANGE IN SOFT-SWR 

063302 




3$: 




06330? 

032777 

001000 

115644 


BIT 

«8IT09,aSUR 

.-.-LOOP ON ERROR SWITCH SET? 

063310 

001402 




BEO 

4$ 

; ;8R IF NO 

063312 

013716 

001124 



MOV 

$LPERR, (SP) 

;. -FUDGE RETURN FOR LOOPING 

063316 

005737 

001210 


4$: 

TST 

$ESCAPE 

.-.-CHECK FOR AN ESCAPE ADDRESS 

063322 

00140? 




BEQ 

5$ 

; ;8R IF NONE 

063324 

013716 

001210 



MOV 

SESCAPE.(SP) 

.-.-FUDGE RETURN ADDRESS FOR ESCAPE 

063330 




5$: 




063330 

022737 

041512 

000042 


UV> 

#$ENDAD.8#42 

; .-ACT-11 AUTO-ACCEPT? 

063336 

001001 




BNE 

6$ 

;; BRANCH IF NO 

063340 

000000 




HALT 


;;YES 

063342 




6$: 




063342 

105737 

063354 



TSTB 

IBSAVE 

;;SEE IF ITEM BYTE SAVE LOCATION HAS AN ERROR CALL 

063346 

001210 




BNE 

7$ 

.-.-BRANCH BACK TO CALL ORIGINAL ERROR 

063350 

000002 




RTI 


.-.-RE1URN 

063352 

000000 



CPSAVE: 

.WORD 

0 

; .-LOCATION TO SAVE CPU ERROR REG CONTENTS 

063354 

000000 



IBSAVE: 

.WORD 

0 

;; LOCATION TO SAVE ITEM BYTE 


SEQ 
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E 4 


SEQ 0249 


.S8TTL ERROR TYPEOUT ROUTINE 


•THE ERROR TYPEOUT ROUTINE ASSEMBLES AND PRINTS INFORMATION 
•REGARDING THE DETECTION OF AN ERROR AS FOLLOWS: 

* .UNIT NUMBER. DRIVE TYPE. TEST NUMBER. ERROR NUMBER AND 
•PR06RAM COUNTER ARE PRINTED ON THE FIRST LINE; 

* .ERROR MESSAGE IS ASSEMBLED. FORMATTED AND PRINTED ON 
•ONE OR MORE SUCCEEDING LINES; 

* .PAIRED LINES OF ERROR HEADERS AND ERROR DATA ARE PRINTED 
•AFTER THE ERROR MESSAGE. 


13 063356 

104414 


ERRTYP: SAVREG 



14 063360 

032777 

020000 

115566 BIT 

#sui3.aswR 

.•INHIBIT TYPEOUTS?? 

15 063366 

001402 


BEQ 

1$ 

;N0! ! 

16 063370 

000137 

064166 

JMP 

27$ 

; YES* * 


17 

18 

19 

20 063374 

21 063400 

22 063404 


104401 

104401 

013746 


001217 

064202 

001234 


.•TYPE UNIT NUMBER. DRIVE TYPE. TEST NUMBER. ERROR NUMBER. AND 
; PROGRAM COUNTER 


.SCRLF 

.ERTYOO 

iUNIT.-(SP) 


063410 

104403 



TYPOS 

063412 

003 



.BYTE 

063413 

000 



.BYTE 

23 





24 



.-TYPE 

'DRIVE 

25 063414 

013700 

001276 


MOV 

26 063420 

016000 

000026 


MOV 

27 063424 

042700 

177740 


BIC 

28 063430 

012737 

067130 063452 


MOV 

29 063436 

022700 

000026 


CMP 

30 063442 

001004 



BNE 

31 063444 

104401 

064237 

2$: 

TYPE 

32 063450 

104401 



TYPE 

33 063452 

000000 


3S: 

.WORD 


34 

35 

36 063454 

37 063460 

38 063466 

39 063472 

063476 

063500 

063501 

40 063502 

41 063506 

42 063514 

43 063516 

44 063522 

063526 

063530 

063531 

45 063532 


005037 

013737 

104401 

013746 

104403 

003 

000 

C05037 

113737 

001406 

104401 

013746 

104403 

0C3 

000 

104401 


064172 

001226 

064207 

064172 


064174 

001130 

064217 

064174 


064226 


064172 


S8ASE.R0 
RMDT(RO).RO 
#1 77740.R0 
#$RM80.3S 
#26. RO 
4$ 

.ERTY05 


.-TYPE TEST NUMBER. ERROR NUMBER 
4$: CLR TSTNMB 

MOV STESTN. TSTNMB 

TYPE .ERTV01 

MOV TSTNMB, -(SP) 


064174 


TYPOS 

.BYTE 

.BYTE 

CLR 

MOVB 

BEO 

TYPE 

MOV 

TYPOS 

.BYTE 

.BYTE 

TYPE 


3 

0 

ERRNM8 

SITEMB.ERRNMB 

St 

.ERTY02 

ERRNMB.-'“P) 


3 

0 

.ERTY03 


TYPE ’DRV#" 

.-SAVE SUNIT FOR TYPEOUT 
.•TYPE DRIVE NUMBER 
;G0 TYPE— OCTAL ASCII 
.-TYPE 3 DIGIT(S) 
.•SUPPRESS LEADING ZEROS 


.GET RM BASE ADDRESS 
.-GET DRIVE TYPE REGISTER 
.-SAVE DRIVE TYPE BITS ANO 
;GET ASCII DRIVE TYPE 
;IS DEVICE AN RM80 ? 

;N0 !! 

.-TYPE " - ” 

.•TYPE DRIVE TYPE 

; DRIVE TYPE MESSAGE IS STORED HERE 

AND PROGRAM COUNTER 
.-LOAD TEST NUMBER FOR 


TYPE "TST#" 

.-SAVE TSTNMB FOR TYPEOUT 
.•TYPE TEST NUMBER 
;G0 TYPE— OCTAL ASCII 
.-TYPE 3 DIGIT(S) 

; SUPPRESS LEADING ZEROS 
LOAD ERROR NUMBER FOR 
TYPEOUT 

SKIP IF NO ERROR CALLED 
TYPE , tRR#" 

.‘SAVE ERRfflB FOR TYPEOUT 
.•TYPE ERROR NUMBER 
;G0 TYPE— OCTAL ASCII 
.•TYPE 3 DIGIT(S) 

; SUPPRESS LEADING ZEROS 
tYPE 


F 4 
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46 063556 013746 001132 


063542 

063544 

063545 

47 

48 

49 063546 

50 063552 

51 063554 

52 

53 063560 

54 063564 

55 063570 

56 063574 

57 063600 

58 063604 

59 065606 

60 063612 

61 063614 

62 063616 

63 063620 

64 063622 

65 063626 

66 

67 063630 

68 

69 

70 063632 

71 063634 

72 063636 

73 063642 

74 063646 

75 063650 

76 063652 

77 063656 

78 063660 

79 065664 

80 06.3666 

81 063672 

82 063674 

83 063700 

84 063702 

85 063706 

86 063714 

87 063716 

88 063720 

89 063724 

90 063730 

91 063732 

92 063736 

93 063744 

94 063746 

95 063752 

96 063754 

97 063760 

98 063764 


104403 

006 

001 


005737 

001002 

000137 

104401 

105037 

105037 

013700 

122700 

001003 

012700 

000405 

006300 

006300 

006300 

062700 

011001 

001507 


012102 

001505 

010237 

005037 

112203 

001454 

122703 

001003 

105037 

000770 

122703 

001765 

122703 

001007 

105237 

132737 

001372 

000407 

105237 

122703 

001002 

010237 

122737 

103340 

013704 

001007 

104401 

105037 

013702 


064174 

064166 

001217 

064200 

064201 

064174 

000177 

064244 


001564 


064004 

064176 


000015 

064201 

000012 

000011 

064201 

000007 


064201 

000040 

064176 

000100 

064176 

001217 

064201 

064004 


NOV $ERRPC,-(SP> 

TYPOS 
.BYTE 6 

.BYTE 1 

.-GENERATE POINTER TO ERROR TABL 
6$: TST ERRNM6 

BNE 7$ 

JMP 27$ 


064201 


7$: 

TYPE 

,$CRLF 


CLRB 

BOTFLG 


CLRB 

CHRCNT 


MOV 

ERRNMB.RO 


CMP8 

#177. RO 


BNE 

8$ 


MOV 

#PFECH.RO 


BR 

9$ 

8$: 

ASL 

RO 


ASL 

RO 


ASL 

RO 


ADD 

#$ERRTB-8.,R0 

9$: 

MOV 

(RO).RI 


BEQ 

19$ 

.-TYPE 

THE ERROR MESSAGE 

10$: 

MOV 

(RD + .R2 


BEQ 

19$ 


MOV 

R2,18$ 


CLR 

BOTADR 

11$: 

M0V8 

<R2)+,R3 


BEQ 

17$ 


CMPB 

#CR.R3 


BNE 

12$ 


CLRB 

CHRCNT 


BR 

11$ 

12$: 

CMPB 

#LF,R3 


BEQ 

11$ 


CMPB 

#HT,R3 


BNE 

14$ 

13$: 

INCB 

CHRCNT 


BITS 

#7, CHRCNT 


BNE 

13l 


BR 

15$ 

14$: 

INCB 

CHRCNT 


064201 


CMPB 

BNE 

NOV 

CNPB 

BHIS 

MOV 

BNE 

TYPE 

CLRB 

MOV 


#’ ,R3 
15$ 

R2.80TADR 
#64. .CHRCNT 
11 $ 

B0TADR.R4 

16$ 

,$CRLF 
CHRCNT 
18$. R2 


SEO 0250 


.-.-SAVE $ERRPC FOR TYPEOUT 
.-.-TYPE PROGRAM COUNTER 
;;G0 TYPE— OCTAL ASCII 
.-.-TYPE 6 DIGIT (S) 

;; TYPE LEADING ZEROS 

UNLESS ERROR NUMBER IS 0 
.-WAS AN ERROR CALLED? 

;BR IF YES 
; NO— EXIT 

; YES-TYPE CRLF 
.-CLEAR BOT FLAG 
.-CLEAR CHARACTER COUNTER 
;R0 POINTS TO FIRST OF 

.-SEE IF THIS ERROR CALL IS SPECIAL POWER FAIL CALL 
.-BRANCH IF NOT 

;MOVE POWER FAIL ERROR CAI L TABLE TO RO 

.-FOUR ENTRIES IN ERROR 
; TABLE 


R1 POINTS TO ERROR MESSAGE 
TABLE 

BRANCH IF NO ERROR MESSAGE 


R2=ADDRESS OF MESSAGE STRING 
BRANCH IF END OF MESSAGE 
LOAD ADDRESS OF STRING 
CLEAR BOT ADDRESS 
END OF STRING?? 

YES' ' 

CARRIAGE RETURN?? 

NO 1 1 

YES-CLEAR CHAR COUNT 
GET NEXT CHARACTER 
LINE FEED?? 

YES-GET NEXT CHARACTER 
HORIZONTAL TAB?? 

NO 1 1 

ADJUST CHARACTER COUNT 


INCREMENT CHARACTER COUNT 
SPACE?? 

NO!! 

SAVE ADDRESS OF SPACE 
END OF LINE?? 

NO!! 

GET ADDRESS OF LAST SPACE 
BRANCH IF SPACE DETECTED 
TYPE CRLF 

CLEAR CHARACTER COUNT 
SET UP R2 FOR TESTING 


u •« 


SEG 025 1 
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99 063770 

100 063772 

101 063774 

102 064002 

103 064004 

104 064006 

105 064012 

106 064014 

107 064020 

108 064024 

109 0640*0 

110 064034 

111 064040 

112 064044 
111 06404* 

114 

115 

116 064050 

117 064054 

118 064056 

119 064062 

120 064066 

121 064072 

122 064076 

123 

124 064100 

125 064102 

126 064104 

127 064110 

128 064112 

129 064114 

130 064116 

131 064120 

132 064122 

133 064124 

134 064126 

135 064130 

136 06413? 

137 064134 

138 064136 

139 064140 

140 064142 

141 064144 

142 064146 

143 064150 

144 064152 

145 064156 

146 064160 

147 064164 

148 064166 

149 064170 

150 

151 064172 

152 064174 

153 064176 

154 064200 

155 064201 


000726 

112?37 177777 
104401 
000000 

105737 064200 
001707 

104401 001217 

105037 O64200 
105037 064201 
013 7 02 064176 
010237 064004 
112742 000040 
105722 
000677 


177777 064200 


016001 

001444 

104401 

016002 

016003 

012137 

001433 

104401 

000000 

104401 

005702 

001767 

012204 

012305 

105725 

100407 

001403 

013446 

104405 

000405 

013446 

104402 

000402 

013446 

104406 

005714 

001403 

104401 

000760 

104401 

000742 

104415 

000207 

000000 

000000 

000000 

000 

000 


000002 

001217 

000004 

000006 

064102 


001217 


064234 

001217 



BR 

11$ 

16$: 

CLRS 

-(R4) 


Move 

f-1 .80TFLG 

17$: 

TYPE 


18$: 

.WORD 



TSTB 

BOTFLG 


BEG 

10$ 


TYPE 

CLR8 

,$CRL F 
BOTFLG 


CLR8 

CHRCNT 


MOV 

B0TADR.R2 


MOV 

R2,18$ 


MOVB 

#' ,-(R2) 


TSTB 

(R2)* 


BR 

11$ 

; TYPE 

ERROR HEADER AND ERR 

19$: 

MOV 

2(R0),R1 


BEQ 

27$ 


TYPE 

.$CRLF 


MOV 

4(R0),R2 


MOV 

6<R0).R3 

20$: 

MOV 

(R1)+,21$ 


BEQ 

27$ 


TYPE 

.WORD 

C 

TYPE 

.SCRLF 

TST 

R2 

BEQ 

20$ 

NOV 

(R2)*.R4 

NOV 

(R3)*.R5 

TSTB 

<R5) + 

BMI 

24$ 

BEQ 

23$ 

NOV 

a(R4)*.-(SP) 

TYPDS 

BR 

25$ 

NOV 

a<R4)*,-<SP) 

TYPOC 

BR 

25$ 

MOV 

a(R4)+,-(SP) 

TYPBN 

TST 

(R4) 

BEQ 

26$ 

TYPE 

.ERTY04 

BR 

i2% 

TYPE 

,$CRLF 

BR 

$0$ 

RESREG 

RTS 

PC 

.WORD 

0 

.WORD 

0 

.WORD 

0 

.BYTE 

0 

.BYTE 

0 


REPLACE SPACE 
SET BOT FLAG 

TYPE ERROR MESSAGE STRING 
STRING ADDRESS GOES HERE 
WAS STRING TRUNCATED?? 
NO!! 

YES-TYPE CRLF 
CLEAR BOT FLAG 
CLEAR CHARACTER COUNT 
SETUP R2 FOR TESTING 
SETUP 18$ FOR TYPING 
RESTORE SPACE 
RESTORE R2 
TYPE REST OF STRING 


;R1 POINTS TO ERROR HEADER TABLE 
; BRANCH IF NO HEADER 
; (ASSUME NO DATA) 

;R2 POINTS TO DATA ADDRESS TABLE 
;R3 POINTS TO FORMAT TABLE 
;PUT HEADER ADDRESS FOR TYPE 
; BRANCH IF END OF HEADERS 
.’(ASSUME END OF DATA) 

.-HEADER ADDRESS GOES HERE 


DATA WITH HEADER?? 

NO 1 1 

R4’ POINTS TO DATA ADDRESS 
R5 POINTS TO FORMAT 
WHAT KIND OF DATA?? 

BINARY 

OCTAL 

DECIMAL 


MORE DATA?? 

NO!! 

YES-TYPE 2 SPACES 
AND CONTINUE 
TYPE ONE BLANK LINE 
BEFORE NEXT HEADER 


TEST NUMBER 
ERROR NUMBER 

BEGINNING OF TEXT ADDRESS 
BOT FLAG 
CHARACTER COUNT 
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SEQ 0252 


157 064202 

158 06420 7 

159 064217 

160 064226 

161 064234 

162 064237 
I6i 

164 064244 

165 064254 

166 064260 

167 

168 064342 

169 064346 

170 

171 064360 

172 064362 

173 064366 

174 064370 


104 

122 

126 

ERTYOO: .ASCJZ 

aoRV«a 

054 

040 

124 

ERTY01: .ASCI2 

a. TESTta 

054 

040 

105 

ERTY02: .ASCIZ 

a. ERR#a 

054 

040 

120 

ERTY03: .ASCIZ 

a. pc=a 

040 

040 

000 

ERTY04: .ASCIZ 

a a 

040 

055 

040 

ERTY05: .ASCIZ 

a - a 


064254 

064260 

120 

064346 

103 

064362 

063352 

064370 

000 


064342 

000000 

117 

000000 

120 


000000 


064360 


.EVEN 
PFECH: 
PF E CHI: 


.ASCJZ 
.EVEN 
PFECH2: .+4,0 
.ASCJZ 
.EVEN 

PFECH3: .*2 
.WORD 

PFECH4: .*2 
.BYTE 


PFECH1 .PFECH2.PFECH3.PFECH4 .-WORDS DEFINING TABLES BELOW 
.•*■4,0 

.ASCJZ 7P0WER MONITOR BIT IN CPU ERROR REGISTER FOUND SET? 


7CPUERREG? 


CPSAVE.O 
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I 4 


SEQ 0253 


064372 

000000 

.SBTTL 

'.ENABL 

STKCNT: 

064374 

000000 

STKQIN: 

064376 

000000 

stkqout 

06440C 


STKQSHT 

064401 

STKCEND 



.EVEN 


S8TTL TTY INPUT ROUTINE 


JORD 0 
tfORD 0 
•WORD 0 
.BLKB 1 


; .’NUMBER OF ITEMS IN QUEUE 
;; INPUT POINTER 
; .’OUTPUT POINTER 
;;TTY KEYBOARD QUEUE 


*TK INITIALIZE ROUTINE 

•THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT OUEUE 
•SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT 


•CALL: 

* J3R 

RETURN 


064402 

005037 

064372 


iTKINT: CLR 

064406 

012737 

064400 

064374 

MOV 

064414 

013737 

064374 

064376 

MOV 

064422 

012737 

064452 

000060 

MOV 

064430 

012737 

000200 

000062 

MOV 

064436 

005777 

114520 


TST 

064442 

012777 

000100 

114510 

MOV 

064450 

000207 



RTS 


PC.STKINT 


STKCNT 

#$TKOSRT.$TKQIN 

STKQIN.STKQOUT 

#$TKSRV.8#TKVEC 

#200,8#TKVEC*2 

BSTKB 

flOO.aSTKS 

PC 


;; CLEAR COJNT OF ITEMS IN QUEUE 
.-.-MOVE THE STARTING ADDRESS OF THE 
; .’OUEUE INTO THE INPUT t OUTPUT POINTERS. 
.’.’INITIALIZE THE KEYBOARD VECTOR 
;;'BR" LEVEL 4 
.’.’CLEAR DONE FLAG 
.* .’ENABLE TTY KEYBOARD INTERRUPT 
; .’RETURN TO CALLER 


•TK SERVICE ROUTINE 

•THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT 
•BY READING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING 
•IT IN THE QUEUE 

•IF THE CHARACTER IS A "CONTROL-C" <*C> STKINT IS CALLED AND 
•UPON RETURN EXIT JS HADE TO THE "CONTROL-C'* RESTART ADDRESS (SHUT) 


064452 

117746 

114504 


iTKSRV: 

M0V8 

aSTKB.-(SP) 

.-.PICKUP THE CHARACTER 

064456 

042716 

177600 



BIC 

l*C1?MSP) 

;; STRIP THE JUNK 

064462 

021627 

000021 



CMP 

(SP).fSXON 

;;IS IT A RANDOM XON? 

064466 

001002 




BNE 

30$ 

.’.’BRANCH IF NO 

064470 

005726 




TST 

(SP)* 

; .-CLEAN RANDOM XON OFF 

064472 

000002 




RTI 


;; RETURN 

064474 




30S: 




064474 

021627 

000003 



CMP 

(SP) .#3 

; .* I S IT A CONTROL C? 

064500 

001007 




BNE 

IS 

; .-BRANCH IF NO 

064502 

104401 

065600 



TYPE 

.SCNTLC 

.’.’TYPE A CONTROL-C (*C> 

064506 

004737 

064402 



JSR 

PC.STKINT 

;;INIT THE KEYBOARD 

064512 

005726 




TST 

(S P>* 

;; CLEAN UP STACK 

064514 

000137 

065642 



JMP 

SHUT 

;; CONTROL C RESTART 

06a 520 

021627 

000007 


IS: 

CMP 

(SP) .#7 

;;IS IT A CONTROL G? 

064524 

001004 




BNE 

2$ 

; .-BRANCH IF NO 

064526 

022737 

000176 

001154 


CMP 

fSWREG.SWR 

;;IS SOFT-SWR SELECTED? 

064534 

001500 




BEO 

6$ 

;;G0 TO SWR CHANGE 

064536 




21: 




064536 

022757 

000001 

064372 


CM° 

#1. STKCNT 

;;IS THE QUEUE FULL? 

064544 

001004 




BNE 

3$ 

.’.•BRANCH IF NO 

064546 

104401 

001212 



TYPE 

.S8ELL 

.-.’RING THE TTY BELL 
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J 


4 


SEO 0254 


064552 

005726 




TST 

(SP)* 

064554 

000451 




BR 

5$ 

064556 

021627 

000023 


3$: 

CMP 

(SP) .#23 

064562 

00 1 021 




BNE 

32$ 

064564 

005077 

114370 



CLR 

asiKS 

064570 

005726 




TST 

(SP)* 

064572 

105777 

114362 


31$: 

TSTB 

BSTKS 

064576 

100375 




BPL 

31$ 

064600 

117746 

114356 



M0V3 

8$TKB,-(SP) 

064604 

042716 

177600 



BIC 

#*C177, (SP) 

064610 

022627 

000021 



CMP 

(SP)+.#21 

064614 

0013^6 




BNE 

31$ 

064616 

012777 

000100 

114334 


MOV 

#100. BSTKS 

064624 

000002 




RTI 


064626 

005237 

064372 


32$: 

INC 

STKCNT 

064632 

021627 

000140 



CMP 

(SP) .#140 

064636 

002405 




BLT 

4$ 

064640 

021627 

000175 



CMP 

(SP) ,#175 

064644 

003002 




BGT 

4$ 

064646 

042716 

000040 



BIC 

#40. (SP) 

064652 

112677 

177516 


4$: 

MOVB 

(SP) ♦.BSTKQIN 

064656 

005237 

064374 



INC 

STKQIN 

064662 

023727 

064374 

064401 


CMP 

$TKQIN,#$TKQEND 

064670 

001003 




BNE 

5$ 

064672 

012737 

064400 

064374 


MOV 

#$TKQSRT, STKQIN 

064700 

000002 



5$: 

RTI 



CLEAN CHARACTER OFF OF STACK 
EXIT 

IS IT A CONTROL-S? 

BRANCH I F NO 

DISABLE TTY KEYBOARD INTERRUPTS 

CLEAN CHAR OFF STACK 

UAIT FOR A CHAR 

LOOP UNTIL ITS THERE 

6ET THE CHARACTER 

MAKE IT 7-BIT ASCII 

IS IT A CONTROL -0? 

BRANCH IF NO 

REENABLE TTY KEYBOARD INTERRUPTS 
RETURN 

COUNT THIS CHARACTER 
IS IT UPPER CASE? 

BRANCH IF YES 

IS IT A SPECIAL CHAR? 

BRANCH IF YES 
MAKE IT UPPER CASE 
AND PUT IT IN OUEUE 
UPDATE THE POINTER 
GO OFF THE END? 

BRANCH IF NO 
RESET THE POINTER 
RETURN 


***** 


•SOFTWARE SWITCH REGISTER CHANGE ROUTINE. 

•ROUTINE IS ENTERED FROM THE TRAP HANDLER. AND WILL 
•SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP 


064702 

022737 

000176 001154 

( - vru.w antri i 

SCKSWR: CMP 

064710 

001124 


BNE 

064712 

105777 

114242 

TSTB 

064716 

100121 


BPL 

064720 

117746 

114236 

MOVB 

064724 

042716 

177600 

BIC 

064730 

021627 

000007 

CMP 

064734 

001300 


BNE 


fSWREG.SWR 

15$ 

BSTKS 

15$ 

a$TKB.-(SP> 

#*C177.(SP) 

<SP>,#7 

2 $ 


IS THE SOFT-SWR SELECTED 

EXIT IF NOT 

IS A CHAR WAITING? 

IF NOT. EXIT 
YES 

MAKE IT 
IS IT A 
IF NOT. PUT IT 
AND EXIT 


7-BIT ASCII 
CONTROL-G? 

IN THE TTY OUEUE 


•CONTROL IS PASSED TO THIS POINT FROM EITHER THE TTY INTERRUPT SERVICE 






.-•CONTROL-G B 

064736 

123727 

001150 

000001 

6$: 

CMPB 

064744 

001674 




BEQ 

064746 

005726 




TST 

064750 

004737 

064402 



JSR 

064754 

005077 

114200 



CLR 

064760 

112737 

000001 

001151 


MOVB 

064766 

104401 

065612 



TYPE 

064772 

104401 

065617 


SGTSWR: 

TYPE 

064776 

013746 

000176 



MOV 

065002 

104402 




TYPOC 


iAuroe.fi 

2 $ 

(SP)* 

PC.$TKINT 

BSTKS 

fl.JlNTAG 

.SCNTLG 

.SMSWR 

SWREG.-(SP) 


:ARE WE RUNNING IN AUTO-MODE? 
.•BRANCH IF YES 
.'CLEAR CONTROL-G OFF STACK 
.•FLUSH THE TTY INPUT QUEUE 
.'DISABLE TTY KEYBOARD INTERRUPTS 
.'SET INTERRUPT MODE INDICATOR 

ECHO THE CONTROL-G <*G) 

TYPE CURRENT CONTENTS 

SAVE SWREG FOR TYPEOUT 

GO TYPE— OCTAL ASCII (ALL DIGITS) 


4 


SCO 025^ 


K 
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065004 

104401 

065630 



TYPE 

.$MNEW 

065010 

005046 



19$: 

CLR 

-(SP) 

065012 

005046 




CLR 

-(SP) 

065014 

105777 

114140 


7$: 

TSTB 

i$TKS 

065020 

100375 




BPL 

7$ 

065022 

117746 

114134 



MOVB 

a$TKB.-(SP> 

065026 

042716 

177600 



BIC 

#*C177, (SP) 

065032 

021627 

000003 



CMP 

(SP) ,#3 

065036 

001015 




BNE 

9$ 

065040 

104401 

065600 



TYPE 

.SCNTLC 

065044 

062706 

000006 



ADD 

#6,SP 

065050 

123727 

001151 

000001 


CMP8 

$INTAG.#1 

065056 

001003 




BNE 

8$ 

065060 

012777 

000100 

114072 


MOV 

fioo,a$TKs 

065066 

000137 

065642 


8$: 

JMP 

SHUT 

065072 

021627 

000025 


9$: 

CMP 

(SP) ,#25 

065076 

001005 




BNE 

10$ 

065100 

104401 

065605 



TYPE 

,$CNTLU 

065104 

062706 

000006 


20$: 

ADD 

#6.sp 

065110 

000737 




BR 

19$ 

065112 

021627 

000015 


10$: 

CMP 

(SP). #15 

065116 

001022 




BNE 

16$ 

065120 

005766 

000004 



TST 

4 (SP) 

065124 

001403 




BEG 

11$ 

065126 

016677 

000002 

114020 


MOV 

2(SP),aSWR 

065134 

062706 

000006 


11$: 

ADD 

#6 .SP 

065140 

104401 

001217 


14$: 

TYPE 

•SCRLF 

065144 

123727 

001151 

000001 


CMPB 

$INTAG.#1 

065152 

001003 




BNE 

15$ 

065154 

012777 

000100 

113776 


MOV 

#ioo,a$TKS 

065162 




15$: 

RTI 


065164 

004737 

061750 


16$: 

J SR 

PC.$TYPEC 

065170 

021627 

000060 



CMP 

(SP) ,#60 

065174 

002420 




8LT 

18$ 

065176 

021627 

000067 



CMP 

(SP) ,#67 

065202 

003015 




BGT 

18$ 

065204 

042726 

000060 



BIC 

#60. (SP)+ 

065210 

005766 

000002 



TST 

2(SP) 

065214 

001403 




BEQ 

17$ 

065216 

006316 




ASL 

(SP) 

065220 

006316 




ASL 

(SP) 

065222 

006316 




ASL 

(SP) 

065224 

005266 

000002 


17$: 

INC 

2(SP) 

065230 

056616 

177776 



BIS 

-2(SP), (SP) 

065234 

000667 




BR 

7$ 

065236 

104401 

001216 


18$: 

TYPE 

,$OUES 

065242 

000720 




BR 

20$ 





.DSA8L LSB 



; ; PROMPT FOR NEW SWR 
;; CLEAR COUNTER 
; ; THE NEW SWR 
; ; CHAR THERE? 

; ; IF NOT TRY AGAIN 

;;PICK UP CHAR 
.-.MAKE IT 7-BI* ASCII 

; ; IS IT A CONTROL-C? 

;; BRANCH IF NOT 

,-;YES, ECHO CONTROL-C ( A C) 

;; CLEAN UP STACK 

; .-REENABLE TTY KEYBOARD INTERRUPTS? 
; .BRANCH IF NO 

; .-ALLOW TTY KEYBOARD INTERRUPTS 
;; CONTROL-C RESTART 


; ; IS IT A CONTROL -U? 

;; BRANCH IF NOT 
;; YES. ECHO CONTROL-U (*U) 
;; IGNORE PREVIOUS INPUT 
;; LET'S TRY IT AGAIN 


;;IS IT A <CR>? 

.-.-BRANCH IF NO 

;; YES. IS IT THE FIRST CHAR? 

.-.-BRANCH IF YES 

; ; SAVE NEW SWR 

;; CLEAR UP STACK 

.-.-ECHO <CR> AND <LF> 

;; RE-ENABLE TTY KBD INTERRUPTS? 
.-.-BRANCH IF NOT 

;; RE-ENABLE TTY KBD INTERRUPTS 
; .-RETURN 
.-.-ECHO CHAR 
.-.-CHAR < 0? 

;; BRANCH IF YES 
.-.-CHAR > 7? 

; .-BRANCH IF YES 
; .-STRIP-OFF ASCII 
;;IS THIS THE FIRST CHAR 
;. -BRANCH IF YES 
;;NO. SHIFT PRESENT 
;; CHAR OVER TO HAKE 

;; ROOM FOR NEW ONE. 

;;KEEP COUNT OF CHAR 
.-.-SET IN NEW CHAR 
.-.-GET THE NEXT ONE 
.-.-TYPE ?<CRXLF> 

;; SIMULATE CONTROL-U 


; »**t*m**«mmn*tt*t**»«»*»»***m(i*»**»t*»«»*»********tt«* 
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SEO 0256 

TTY INPUT ROUTINE 











;*THIS 

ROUTINE 

WILL INPUT A SINGLE CHARACTER FROM THE TTY 





;*CALL 



l 





; * 

RDCHR 


;;GET A CHARACTER FROM THE QUEUE 





• n 

RETURN HERE 

;; CHARACTER IS ON THE STACK 





• * 

• 



;;WITH PARITY BIT STRIPPED OFF 

065244 

011646 



SRDCHR 

MOV 

(SP),-(SP) 

.’.‘PUSH DOWN THE PC AND 

065246 

016666 

000004 

000002 


MOV 

4(SP),2(SP) 

; ; THE PS 

065254 

005066 

000004 



CLR 

4(SP) 

; ; GE f READY FOR A CHARACTER 

065260 

005046 




CLR 

-(SP) 

; ;PUT NEW PS ON STACK 

065262 

012746 

065270 



MOV 

#64$. -(SP) 

; ; PUT NEW PC ON STACK 

065266 

000002 




RTI 


;;POP NEW PC AND PS 

065270 




64$: 




065270 

005737 

064372 


1$: 

TST 

STKCNT 

;;WAIT ON A CHARACTER 

065274 

001775 




BEQ 

1$ 


065276 

005337 

064372 



DEC 

stkcnt 

; .-DECREMENT THE COUNTER 

065302 

117766 

177070 

000004 


M0VB 

3$TKQ0UT.4(SP) 

.’.’GET ONE CHARACTER 

065310 

005237 

064376 



INC 

$TKQ0UT 

;; UPDATE THE POINTER 

065314 

023727 

064376 

064401 


CMP 

STKQOUT .#$TKQEND ;;DID IT GO OFF OF THE END? 

065322 

001003 




BNE 

2$ 

; .‘BRANCH IF NO 

065324 

012737 

064400 

064376 


MOV 

#$TKQSRT.$TKOOUT ;;RESET THE POINTER 

065332 

000002 



2$: 

RTJ 


;; RETURN 





;*THIS 

ROUTINE WILL INPUT A STRING FROM THE TTY 





.-•CALL 

• 







;* 

RDLIN 


;; INPUT A STRING FROM THE TTY 





;* 

RETURN HERE 

; .’ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 





;* 



;; TERMINATOR WILL BE A BYTE OF ALL 0’S 

065334 

010346 



SROLIN 

: MOV 

R3.-(SP) 

.-.-SAVE R3 

065336 

005046 




CLR 

-(SP) 

;; CLEAR THE RUBOUT KEY 

065340 

012703 

065570 


1$: 

NOV 

#$TTYIN,R3 

;;GET ADDRESS 

065344 

022703 

065600 


2$: 

CMP 

#$TTYIN«-8..R3 

;;BUFFER FULL? 

065350 

101456 




BLOS 

4$ 

;;8R IF YES 

065352 

104411 




RDCHR 


;;G0 READ ONE CHARACTER FROM THE TTY 

065354 

112613 




NOVB 

(SPH.(R3) 

;;GET CHARACTER 

065356 

122713 

000177 


10$: 

CMP8 

#177. (R3> 

;;IS IT A RUBOUT 

065362 

001022 




BNE 

5$ 

;;BR IF NO 

065364 

005716 




TST 

(SP) 

;;IS THIS THE FIRST RUBOUT? 

065366 

001007 




BNE 

6$ 

;;BR IF NO 

065370 

112737 

000134 

065566 


NOVB 

r\,9$ 

.-.’TYPE A BACK SLASH 

065376 

104401 

065566 



TYPE 

*9$ 


065402 

012716 

177777 



MOV 

#-1,<SP) 

.’.’SET THE RUBOUT KEY 

065406 

005303 



6$: 

DEC 

R3 

; .-BACKUP BY ONE 

065410 

020327 

065570 



CMP 

R3.#$TTYIN 

;; STACK EMPTY? 

065414 

103434 




BLO 

4$ 

;;BR IF YES 

065416 

111337 

065566 



MOVB 

(R3) ,9$ 

;; SETUP TO TYPEOUT THE DELETED CHAR. 

065422 

104401 

065566 



TYPE 

a 9$ 

; ; GO TYPE 

065426 

000746 




BR 

2$ 

;;G0 READ ANOTHER CHAR. 

065430 

005716 



5$: 

TST 

(SP) 

;. -RUBOUT KEY SET? 

065432 

001406 




BEQ 

7$ 

; ;8R IF NO 

065434 

112737 

000134 

065566 


MOVB 

r\,9$ 

; ,* TYPE A BACK SLASH 

065442 

104401 

065566 



TYPE 

,9$ 


065446 

005016 




CLR 

(SP) 

;; CLEAR THE RUBOUT KEY 

065450 

122713 

000025 


7$: 

CMPB 

#25. (R3) 

;;IS CHARACTER A CTRL U? 

065454 

i 

I 

001003 




BNE 

8$ 

;;BR IF NO 


H <• 



SFC 0257 


; ; TYPE A CONTROL 'V* 

; ; GO START OVER it ti 
; ; J S CHARACTER A R ? 

;; BRANCH IF NO 
;; CLEAR THE CHARACTER 
• TYPE A "CR" t 
;;TVPE THE INPUT STRING 
;;GO PICKUP ANOTHER CHACTER 
• ’TYPE A * 

••CLEAR THE BUFFER AND LOOP 
;;ECHO THE CHARACTER 

; .-CHECK FOR RETURN 
;;LOOP IF NOT RETURN 
; .'"CLEAR RETURN (THE 15) 

;;TYPE A LINE FEED 

;; CLEAN RUBOUT KEY FROM THE STACK 

; .RESTORE R3 

; .-ADJUST THE STACK AND PUT ADDRESS OF THE 
;; FIRST ASCII CHARACTER ON IT 

* -RETURN 

••STORAGE FOR ASCII CHAR. TO TYPE 
;; TERMINATOR 

;; RESERVE 8 BYTES FOR TTY INPUT 
;; CONTROL "C" 

;; CONTROL *ll M 
;; CONTROL "G" 


ANY MONITOR PRESENT ? 
BR IF YES 
GO TO START 

FUDGE NO DRIVES IN MAP 
RETURN TO $EOP 
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READ AN OCTAL NUMBER FROM THE TTY 


N 4 


SEQ 0258 


1 


.S8TTL READ AN OCTAL NUMBER FROM THE TTY 


•THIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 
•CHANGE it TO BINARY. 

•CALL: 

* RDOCT 

* RETURN HERE 

* 


065664 011646 

065666 016666 000004 000002 

C65674 010046 

065676 010146 

065700 010246 

065702 104412 

065704 012600 

065706 005001 

065710 005002 

065712 112046 

065714 001412 

065716 006301 

065720 006102 

065722 006301 

065724 006102 

065726 006301 

065730 006102 

065732 042716 177770 

065736 062601 

065740 000764 

065742 005726 

065744 010166 000012 

065750 010237 065764 

065754 012602 

065756 012601 

065760 012600 

065762 000002 

065764 000000 


SRDOCT: 


IS: 


2 $: 


3$: 


SHIOCT: 


MOV 

MOV 

MOV 

MOV 

MOV 

RDLIN 

MOV 

CLR 

CLR 

MOVB 

BEG 

ASL 

ROL 

ASL 

ROL 

ASL 

ROL 

BIC 

ADD 

BR 

TST 

MOV 

MOV 

MOV 

MOV 

MOV 

RTI 

.WORD 


(S P).-(SP) 

4(SP).2(SP> 

RO.-(SP) 

RI.-(SP) 

R2,-(SP> 

(SP) +.R0 

R1 

R2 

(RO)+.-(SP> 

3$ 

R1 

R2 

R1 

R2 

R1 

R2 

#*C7, (SP) 
(SP)*,R1 

2 $ 

(SP)* 

R1 ,12(SP) 
R2.SHI0CT 
(SP) + .R2 
(SP)*, R1 
(SP)*,RO 


;;READ AN OCTAL NUMBER 

;;LOW ORDER BITS ARE ON TOP OF THE STACK 

;;HIGH ORDER BITS ARE IN SHIOCT 

;; PROVIDE SPACE FOR THE 

;; INPUT NUMBER 

;;PUSH RO ON STACK 

;;PUSH R1 ON STACK 

; ; PUSH R 2 ON STACK 

; ; READ AN ASCIZ LINE 

;;GET ADDRESS OF 1ST CHARACTER 

;; CLEAR DATA WORD 

;;PICKUP THIS CHARACTER 

;;IF ZERO GET OUT 

;;*2 

; ; *4 

;;*8 

;; STRIP THE ASCII JUNK 
;;ADD IN THIS DIGIT 
;;LOOP 

;; CLEAN TERMINATOR FROM STACK 
; ; SAVE THE RESULT 

;;POP STACK INTO R2 
;;POP STACK INTO R1 
;;P0 P STACK INTO RO 
* 'RETURN 

••HIGH ORDER BiTS GO HERE 


SEQ 0259 
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TRAP DECOOER 

.S8TTL TRAP DECODER 


065766 

065772 

065776 

066002 

066004 

066006 

066012 

066014 

066016 

066020 

066024 


016646 

042716 

012746 

000002 

010046 

016600 

005740 

111000 

006300 

016000 

000200 


000002 

000020 

066004 


000002 


066040 


• THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE •'TRAP" INSTRUCTION 
•AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
•OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
•GO TO THAT ROUTINE. 


STRAP: NOV 
BIC 


2(SP).-(SP) 
*20, (SP) 
m,-(SP> 

RO,-(SP) 

2(SP) ,R0 
-(RO) 

(RO),RO 

RO 

STRPAD(RO) ,R0 
RO 


ASSUME THE STATUS OF 
THE CALLER— DO NOT ALLOW 
T-8IT TRAPS 
SET THE NEW STATUS 
SAVE RO 

GET TRAP ADDRESS 
BACKUP BY 2 
GET RIGHT BYTE OF TRAP 
POSITION FOR INDEXING 
INDEX TO TABLE 
GO TO ROUTINE 


; ; THI S IS USE TO HANDLE THE "GETPRI" MACRO 


066026 011646 
066030 016666 000004 
066036 000C02 


066040 

066042 

066044 

066046 

066050 

066052 

066054 


066026 

061536 

061334 

061310 

061350 

061064 

061010 


066056 064772 


066060 

066062 

066064 

066066 

066070 

066072 


064702 

065244 

065334 

065664 

060714 

060752 


STRAP2: MOV (SP).-(SP) 

000002 MOV 4(SP).2(SP) 

RTI 

.S8TTL TRAP TABLE 


MOVE THE PC DOWN 
MOVE THE PSW DOWN 
RESTORE THE PSW 


.-•THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
;*BY THE •‘TRAP** INSTRUCTION. 


STRPAD: 


ROUTINE 

Tword 

STYPE 

STYPOC 

STYPOS 

STYPON 

STYPDS 

STYP8N 


STRAP2 

;;CALL*TYPE 

;;CALL=TYPOC 

;;CALL=TYPOS 

;;CALL=TYPON 

;;CALL s TYPDS 

;;CALL=TYP8N 


TRAP+1 (104401) 
TRAP+2( 104402) 
TRAP+3( 104403) 
TRAP*4( 104404) 
TRAP*5(104405) 
TRAP+6( 104406) 


TTY TYPEOUT ROUTINE 

TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
TYPE OCTAL NUMBER (NO LEADING ZEROS) 
TYPE OCTAL NUMBER (AS PER LAST CALL) 
TYPE DECIMAL NUMBER (WITH SIGN) 

TYPE BINARY (ASCII) NUMBER 


SGTSWR ;;CALL=GTSWR TRAP+7(104407) GET SOFT-S^R SETTING 


SCKSWR 

SRDCHR 

SRDLIN 

SRDOCT 

SSAVREG 

SRESREG 


;;CALL=CKSWR 

;;CALL=RDCHR 

;;CALL=RDLIN 

; ; CALL s RDOCT 

;;CALL=SAVREG 

;;CALL=RESREG 


TRAP+1 0(1 04410) 
TRAP+11 (104411) 
TRAP*12(104412) 
TRAP+13(104413) 
TRAP*14(104414) 
TRAP+1 5(1 04415) 


TEST FOR CHANGE IN SOFT-SWR 
TTY TYPEIN CHARACTER ROUTINE 
TTY TYPEIN STRING ROUTINE 
READ AN OCTAL NUMBER FROM TTY 
SAVE R0-R5 ROUTINE 
RESTORE R0-R5 ROUTINE 


SEQ 0260 
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POWER DOWN AND UP ROUTINES 


C 5 


066074 

066102 

066110 

066112 

066114 

066116 

066120 

066122 

066124 

066130 

066134 

066142 

066144 


066146 

066154 

066160 

066164 

066170 

066172 

066176 

066200 

066202 

066204 

066206 

066210 

066212 

066220 

066226 

066230 

066232 

066234 

066236 

066240 

066242 


.S8TTL POWER DOWN AND UP ROUTINES 


012737 

012737 

010046 

010146 

010246 

010346 

010446 

010546 

017746 

010637 

012737 

000000 

000776 


012737 

013706 

005037 

005237 

001375 

012677 

012605 

012604 

012603 

012602 

012601 

012600 

012737 

012737 

104401 

066242 

000002 

000000 

000776 

000000 

015 


066234 

000340 


; POWER DOWN ROUTINE 

000024 JPWRDN: MOV #SILLUF>,a#PWRVEC ;;$EX 


000026 


113024 

066240 

066146 


066234 

066240 

066240 

066240 

112756 


000024 


000024 


MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

HALT 

BR 


#340,a#PWRVEC+2 ;;PRIO 


RO,-<$P> 

R1 ,-CSP) 

R2.-CSP) 

R3,-(SP> 

R4,-<$P) 

R5.-CSP) 

aSWR.-(SP) 

SP. SSAVR6 


;;PUSH 

;;PUSH 

;;PUSH 

;;PUSH 

;;PUSH 

;;PUSH 

;;PUSH 

;;SAVE 


#SPWRUP.a#PWRVEC ;;SET 


FOR FAST UP 
7 

RO ON STACK 
R1 ON STACK 
R 2 ON STACK 
R3 ON STACK 
R4 ON STACK 
R5 ON STACK 
aSWR ON STACK 
SP 

UP VECTOR 


.-2 


;;HANG UP 


: POWER UP ROUTINE 
iPWRUP: MOV #$ILLUP.a#PWRVEC 


066074 

000340 


000024 

000026 


MOV 
CLR 

IS: INC 

BNE 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
TYPE 

JPWRMG : .WORD 
RTI 

SILLUP: HALT 


012 


120 


SSAVR6: 

SPOWER: 


BR 

0 

.ASCIZ 

.EVEN 


SSAVR6.SP 
SSAVR6 ; 

SSAVR6 
IS 

(SPI+.aSWR 

(SPJ+.R5 

(SP ) + .R4 

(SPI+.R3 

(SP)+,R2 

(SP)+.R1 

(SPH.RO 

#$PVRDN.a*PWRVEC 
#340 , a#PWR VE C +2 , 

SPOWER 


.-2 

<15><12>"POWER' 


;;SEf FOR FAST DOWN 
;GET SP 

.-WAIT LOOP FOR THE TTY 
.-WAIT FOR THE INC 
;0F WORD 

;POP STACK INTO aSWR 

.-POP STACK INTO R5 

.-POP STACK INTO R4 

;POP STACK INTO R3 

;P OP STACK INTO R2 

.-POP STACK INTO R1 

.-POP STACK INTO RO 

; ; SET UP THE POWER DOWN VECTOR 

;PR10:7 

REPORT THE POWER FAILURE 
.•POWER FAIL MESSAGE POINTER 

;THE POWER UP SEOUENCE WAS STARTED 
; BEFORE THE POWER DOWN WAS COMPLETE 
.-PUT THE SP HERE 
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SEQ 0261 

apt communicat: 

ONS ROUTINE 










.S8TTL 

APT COMMUNICATIONS ROUTINE 

066252 

112737 

000001 

066516 

iATYl: 

movb 

H.SFFLG 

; ; TO REPORT FATAL ERROR 

066260 

112737 

000001 

066514 

SATY3: 

movb 

#1. SMFLG 

; ;T0 TYPE A MESSAGE 

066266 

000403 




BR 

SATYC 


066270 

112737 

000001 

066516 

$ATY4: 

MOVB 

#1 ,$FFLG 

;;T0 ONLY REPORT FATAL ERROR 

066276 




$ATYC: 




066276 

010046 




MOV 

RO.-(SP) 

; ;PUSH RO ON STACK 

066300 

010146 




MOV 

PI.-(SP) 

; ; PUSH R1 ON STACK 

066302 

105737 

066514 



TSTB 

$MFLG 

;; SHOULD TYPE A MESSAGE? 

066306 

001450 




BEQ 

5$ 

; ; IF NOT: BR 

066310 

122737 

000001 

001242 


CMP8 

f APTENV. $ENV 

; .-OPERATING UNDER APT? 

066316 

001031 




BNE 

3$ 

; ; IF NOT: BR 

066320 

132737 

000100 

001243 


BITS 

#APT SPOOL. $ENVM 

; .-SHOULD SPOOL MESSAGES? 

066326 

001425 




BEO 

3$ 

; ; I F NOT: BR 

066330 

017600 

000004 



MOV 

84(SP),R0 

;;GET MESSAGE ADDR. 

066334 

062766 

000002 

000004 


ADD 

#2,4(SP) 

; ;8UMP RETURN ADDR. 

066342 

005737 

001222 


1$: 

TST 

SMSGTYPE 

; ; SEE IF DONE W/ LAST XMISSION? 

066346 

001375 




BNE 

1$ 

; ; IF NOT: WAIT 

066350 

010037 

001236 



MOV 

RO, SMS GAD 

; .-PUT ADDR IN MAILBOX 

066354 

105720 



2$: 

TSTB 

(RO)* 

.-.-FIND END OF MESSAGE 

066356 

001376 




BNE 

2$ 


066360 

163700 

001236 



SUB 

$MSGAD.RO 

;;SUB START OF MESSAGE 

066364 

006200 




ASR 

RO 

;;GET MESSAGE LNGTH IN WORDS 

066366 

010037 

001240 



MOV 

RO.SMSGLGT 

.-.-PUT LENGTH IN MAILBOX 

066372 

012737 

000004 

001222 


MOV 

#4.$MSGTYPE 

.-.-TELL APT TO TAKE MSG. 

066400 

000413 




BR 

5$ 


066402 

017637 

000004 

066426 

3$: 

MOV 

34(SP) ,4$ 

.-.-PUT MSG ADDR IN JSR LINKAGE 

066410 

062766 

000002 

000004 


ADD 

£2.4 (SP) 

.-.-BUMP RETURN ADDRESS 

066416 

013746 

177776 



MOV 

177776.-(SP) 

;;PUSH 1^7776 ON STACK 

066422 

004737 

061536 



JSR 

PC.$TYPE 

.-.-CALL TYPE MACRO 

066426 

000000 



4$: 

.WORD 

0 


066*30 




5$: 




066430 

105737 

066516 


10$: 

TSTB 

$FFLG 

; .-SHOULD REPORT FATAL ERROR. 

066434 

001416 




BEQ 

12$ 

;;IF NOT: BR 

066436 

005737 

001242 



TST 

$ENV 

; .-RUNNING UNDER APT? 

066442 

001413 




BEQ 

12$ 

; ; IF NOT: BR 

066444 

005737 

001222 


11$: 

TST 

$MSGTYPE 

; .-FINISHED LAST MESSAGE? 

066450 

001375 




BNE 

11$ 

,-;IF NOT: WAIT 

066452 

017637 

000004 

001224 


MOV 

34 (SP) ,$FATAL 

; ; GET ERROR » 

066460 

062766 

000002 

000004 


ADD 

#2.4(SP) 

;;BUH P RETURN ADDR. 

066466 

005237 

001222 



INC 

$MSGTYPE 

;;TELL APT TO TAKE ERROR 

066472 

105037 

0665 1 6 


12$: 

CLRB 

$FFLG 

;; CLEAR FATAL FLAG 

066476 

105037 

066515 



CLRB 

$LFLG 

;; CLEAR LOG FLAG 

066502 

105037 

066514 



CLRB 

IMFLG 

.-.-CLEAR MESSAGE FLAG 

066506 

012601 




MOV 

(SP)*. Rl 

.-.-POP STACK INTO R1 

066510 

012600 




MOV 

(SP) *.R0 

.-.-POP STACK INTO RO 

066512 

000207 




RTS 

PC 

.- .-RETURN 

066514 

000 



SMFLG: 

• 8YTE 

0 

; .-MESSG. FLAG 

066515 

000 



$LFLG: 

.BYTE 

0 

.-.-LOG FLAG 

066516 

000 



$FFLG: 

.BYTE 

0 

;; FATAL FLAG 






.EVEN 




000200 



APTSIZE 

= 200 




000001 



APTENV 

= 001 




000100 



APTSPOOL= 100 




000040 



APTCSUP 

= 040 
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SEQ 026/ 


E 5 






.SBTTL 

CONSOLE 

MESSAGES 

2 

3 C66520 

075 

000 


EQUALS: 

.ASCIZ 

a-a 

4 066522 

101 

114 

114 

ALL: 

.ASCI2 

aALLa<CRLF> 

5 066527 

040 

077 

040 

QUES: 

.ASCIZ 

a ? a 

6 066533 

054 

040 

000 

COMMA: 

.ASCIZ 

a, a 

7 066536 

200 

124 

131 

HSHELP: 

.ASCIZ 

<CRLF>3T YPE HELP TEXT (L) N ? a 

8 066567 

200 

122 • 

115 

CNSL01 : 

.ASCIZ 

<CRLF>3RMCS1=a 

9 066577 

040 

114 

111 

CNSL02: 

.ASCIZ 

a LIMITS - L0= 160000, HI= 17XXXX3<CRLF> 

10 066641 

1 22 

115 

126 

CNSL03: 

.ASCIZ 

8RMVEC=a 

11 066650 

040 

114 

111 

CNSL04: 

.ASCIZ 

a LIMITS - L0= 0, HI S 1000a<CRLFXLF> 

12 066704 

200 

124 

131 

CNSL07: 

.ASCII 

<CRLF>3TYPE "A** TO TEST ALL DRIVES, OR TYPE DRIVE NUMBER(S)d 

13 066771 

200 

101 

116 


.ASCIZ 

<CRLF>8AND TERMINATE INPUT WITH A CARRIAGE RETURN. a 

14 067046 

200 



CNSL08: 

.ASCII 

<CRLF> 

1 15 067047 

040 

077 

111 

CNSL09: 

.ASCIZ 

3 7ILLEGAL INPUTa<CRLF> 

16 067070 

200 

104 

122 

HSDRVS : 

.ASCIZ 

<CRLF>/DRIVE(S): / 

17 067104 

104 

122 

111 

M5GDRV: 

.ASCIZ 

/DRIVE/ 

18 067112 

200 

125 

116 

SYSTAT: 

.ASCIZ 

<CRLF>/UNIT STATUS:/ 

19 067130 

122 

115 

070 

SRM80: 

.ASCIZ 

/RM80/ 

20 067135 

040 

116 

117 

NOTRM: 

.ASCIZ 

/ NOT AN RM80/ 

21 067152 

040 

114 

117 

LODEV: 

.ASCIZ 

/ LOAD DEVICE/ 

22 067167 

040 

116 

117 

NOTPRS: 

.ASCIZ 

/ NOT PRESENT/ 

23 067204 

040 

116 

117 

NOTAVL: 

.ASCIZ 

/ NOT AVAILABLE/ 

24 067223 

040 

117 

106 

UNTOFF: 

.ASCIZ 

/ OFFLINE/ 

25 067234 

040 

117 

116 

UNTON: 

.ASCIZ 

/ ONLINE/ 

26 067244 

200 

104 

122 

DRIVES: 

.ASCIZ 

<CRLF>/DRIVE(S) TO BE TESTED/ 

27 067273 

116 

117 

116 

NONE: 

.ASCIZ 

/NONE/ 

28 067300 

200 

104 

117 

MSMNUL: 

.ASCIZ 

<CRLF>/DO YOU WANT MANUAL INTERVENTION TESTS (L) N ? / 

29 067360 

200 

120 

105 

MSUNJT: 

.ASCIZ 

<CRLF>/PERFORMING 'LOGICAL ADDRESS PLUG TEST' ON DRIVE #/ 

30 067443 

200 

012 

102 

HINSTR: 

.ASCII 

<CRLFXLF>/BEFORE PROCEDING WITH THE TEST, POWER DOWN OR PULL/ 

31 067527 

200 

124 

110 


.ASCIZ 

<CRLF>/THE ADDRESS PLUGS FROM ALL DEVICES NOT BEING TESTED. /<CRLFXLF> 

32 067617 

111 

116 

123 

INSERT: 

.ASCIZ 

/INSERT LOGICAL ADDRESS PLUG »/ 

33 067655 

120 

125 

114 

PULL: 

.ASCIZ 

/PULL LOGICAL ADDRESS PLUG #0, THEN/ 

34 067720 

200 

124 

131 

RET: 

.ASCIZ 

<CRLF>/TYPE <RET> WHEN READY./ 

35 067750 

120 

114 

125 

DONE: 

.ASCIZ 

/PLUG TEST DONE J/<CRLF> 

36 067771 

116 

000 


N: 

.ASCIZ 

/N/ 

37 067773 

131 

000 


Y: 

.ASCIZ 

/Y/ 

38 067775 

040 



BLNKS4: 

.ASCII 

/ / 

39 067776 

040 



BLNKS3: 

.ASCII 

/ / 

40 067777 

040 



BLNKS2: 

.ASCII 

/ / 

41 070000 

040 

000 


BLNKS1 : 

.ASCIZ 

/ / 


42 .EVEN 


L. 



‘OOGO-viOV^i^ Wf\J— *0'000->jO''-rii>-Vj«4r'j— •O'OOO-'JO^i^ Wf\j— *0'OOO^JCT"-n^'0><f\J— *OOOO^JO'-n^^f\j 
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FUNCTION CODE TABLE 


F 5 


SEQ 026 


1 


070002 

070002 020000 


.S8TTL FUNCTION CODE TABLE 


THE FUNCTION CODE TABLE IS USED TO DEFINE STATUS CONDITIONS FOR 
EACH FUNCTION CODE. BIT USAGE IS AS FOLLOWS: 

ATA - BIT 15 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
IF ATA SHOULD BE SET WHEN THE FUNCTION CODE IS EXECUTED. OTHERWISE, 
BIT 15 IS ZERO, INDICATING THAT ATA SHOULD NOT NORMALLY BE SET. 

NOTE THAT ATA MAY BE SET WHEN A COMMAND IS EXECUTED EVEN THOUGH 
IT IS NOT EXPECTED AS A RESULT OF THE COMMAND. 

WCE - BIT 14 IS SET IN THE p NTRY FOR A GIVEN FUNCTION CODE 
IF WRITE CHECK ERRORS ARE ENABLED AS A FUNCTION OF THE COMMAND. 

OPI - BIT 13 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
IF OPI ERRORS ARE ENABLED DURING THE EXECUTION OF THAT COMMAND. 

IVC - BIT 12 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
IF IVC ERRORS ARE ENABLED DURING THE EXECUTION OF THAT COMMAND. 

WLE - BIT 11 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
IF WRITE ERRORS ARE ENABLED DURING THE EXECUTION OF THAT COMMAND. 
THE WRITE ERRORS WHICH ARE ENABLED ARE *WLE", ’WCF", , DPE• , , "UPE". 

IAE - BIT 10 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
IF INVALID ADDRESS ERROR IS ENABLED FOR THAT COMMAND. 

AOE - BIT 09 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
IF READ AND WRITE ERRORS ARE ENABLED DURING THE EXECUTION OF THE 
COMMAND. THE ERRORS ENABLED BY THIS BIT ARE ’*TRE”, "DLT”, “HEM", 
'MXF", , tBT", AND ,, AOE , \ 

BIT 08 IS NOT USED. 

HCE - BIT 07 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
IF HEADER ERRORS ARE ENABLED DURING THE EXECUTION OF THAT COMMAND. 
HEADER ERRORS INCLUDE *•HCRC , ^ 'HCE". 'TER". •BSE" AND "SSE". 

ECH - BIT 06 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
IF DATA FIELD ERRORS ARE ENABLED DURING THE EXECUTION OF THAT 
COMMAND. THESE ERRORS INCLUDE 'MDPE", ,, DCK". AND ,, ECH". 

BIT 05 IS NOT USED. 

BIT 04 IS NOT USED. 

BIT 03 IS NOT USED. 

BIT 02 IS NOT USED. 

BIT 01 IS NOT USED. 

ILF - BIT 00 IS SET IF THE FUNCTION CODE IS ILLEGAL. 

FNCDTB: .-FUNCTION CODE TABLE 

.WORD OPI ;NOP 


GZRNDAO RM80 FCTNL PT1 
FUNCTION CODE TABLE 

58 070004 1 30001 

59 070006 132000 

60 070010 130000 

61 070012 020000 

62 070014 030000 

63 070016 130000 

64 070020 1 30000 

65 070022 020000 

66 070024 020000 

67 070026 130001 

68 070030 130001 

69 070032 132000 

70 070034 130001 

71 070036 130001 

72 070040 130001 

73 070042 130001 

74 070044 130001 

75 070046 130001 

76 070050 130001 

77 070052 073300 

78 070054 073300 

79 070056 130001 

80 070060 130001 

81 070062 037200 

82 070064 037000 

83 070066 130001 

84 070070 130001 

85 070072 033300 

86 070074 033300 

87 070076 130001 

88 070100 130001 


6 5 


KACRO 704.00 28-JAN-82 

16:24:51 PAGE 48-1 

.WORD 

OPI!ATA!ILF!IVC 

.WORD 

ATA.'OPI !I¥C!IAE 

.WORD 

ATA! CPI !IVC 

.WORD 

OPI 

.WORD 

OPI.'IVC 

.WORD 

OPI! ATA! I VC 

.WORD 

OPI! ATA! I VC 

.WORD 

OPI 

.WORD 

CPI 

.WORD 

OPI !ATA!ILF ! I VC 

.WORD 

OPI! ATA! ILF! I VC 

.WORD 

ATA! OPI! I VC! IAE 

.WORD 

OPI! ATA! ILF! I VC 

.WORD 

OPI !ATA!ILF ! IVC 

.WORD 

OPI !ATA! ILF ! I VC 

.WORD 

OPI ! ATA ! I LF ! IVC 

.WORD 

OPI ! ATA! ILF ! IVC 

.WORD 

OPI !ATA!ILF ! IVC 

.WORD 

OPI!ATA!ILF!IVC 

.WORD 

WCEJOPI !1VC!IAE!A0E!HCE!£CH 

.WORD 

WCE.'OPI ! IVC! IAE !A0E !HCE!ECH 

.WORD 

OPI !ATA!ILF ! IVC 

.WORD 

OPI ! ATA ! I LF i I VC 

.WORD 

OPI !IVC !WLE! IAE !AOE !HCE 

.WORD 

OPI ! IVC ! WLE ! IAE ! AOE 

.WORD 

OPI ! ATA! ILF i IVC 

.WORD 

OPI ! ATA ! ILF ! IVC 

.WORD 

OPI!IVC!JAE!AOE!HCE!ECH 

.WORD 

OPI!IVC!IAfc\'AOE!HCE!ECH 

.WORD 

OPI.'ATA.'ILF.'IVC 

.WORD 

OPI!ATA!JLF!IVC 


SEQ 0264 


ILLEGAL FUNCTION (2> 

SEEK 

RECALIBRATE 
DRIVE CLEAR 
RELEASE 
OFFSET 

RETURN TO CENTERLINE 
READ IN PRESET 
PACK ACKNOWLEDGE 
ILLEGAL FUNCTION (24) 
ILLEGAL FUNCTION (26) 

SEARCH 

ILLEGAL FUNCTION (32) 
ILLEGAL FUNCTION (34) 
ILLEGAL FUNCTION (36) 
ILLEGAL FUNCTION (40) 
ILLEGAL FUNCTION (42) 
ILLEGAL FUNCTION (44) 
ILLEGAL FUNCTION (46) 

WRITE CHECK DATA 
WRITE CHECK HEADER AND DATA 
ILLEGAL FUNCTION (54) 
ILLEGAL FUNCTION (56) 

WRITE DATA 

WRITE HEADER AND DATA 
ILLEGAL FUNCTION (64) 
ILLEGAL FUNCTION (66) 

READ DATA 

READ HEADER AND DATA 
ILLEGAL FUNCTION (74) 
ILLEGAL FUNCTION (76) 



SEO 0265 
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ATTENTION (ATA) TABLE 


1 

2 

3 

c, 

5 

6 
7 


070102 
070103 
070104 
070105 
070106 

8 070107 

9 070110 
10 070111 


.S8TTL ATTENTION (ATA) 


001 

ATNT8L : .BYTE 

1 . 

002 

.BYTE 

2. 

004 

.BYTE 

4. 

010 

.BYTE 

8. 

020 

.BYTE 

16. 

040 

•BYTE 

32. 

100 

.BYTE 

64 . 

200 

• BYTE 

128 


H $ 

TABLE 



SEO 0266 
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ERROR MESSAGE TABLE 


.S8TTL ERROR MESSAGE TABLE 


3 070112 

4 070116 

5 070124 

6 070132 

7 070140 

8 070146 

9 070154 

10 070162 

11 070166 

12 070172 

13 070200 

14 070212 

15 070220 

16 070226 

17 070236 

18 070246 

19 070256 

20 070266 

21 070276 

22 070306 

23 070316 

24 070326 

25 070336 

26 070346 

27 070356 

28 070366 

29 070376 

30 070406 

31 070416 

32 070426 

33 070436 

34 070446 

35 070454 

36 070464 

37 070476 

38 070506 

39 070516 

40 070526 

41 070536 

42 070544 

43 070554 

44 070566 

45 070604 

46 070622 

47 070632 

48 070644 

49 070662 

50 070672 

51 070710 

52 070730 

53 070744 

54 070754 

55 070774 

56 071014 

57 071026 


074564 

074633 

074633 

074756 

074756 

101552 

0/7547 

075053 

075120 

075162 

075234 

075330 

075162 

075162 

075162 

075162 

075162 

075162 

075162 

075162 

075162 

075162 

075162 

075162 

075162 

075162 

075162 

075162 

075162 

075162 

075162 

077065 

077253 

101044 

076367 

077312 

077340 

077366 

077017 

075234 

075162 

076367 

076367 

076416 

10.001 

076445 

101552 

076570 

077174 

100732 

102752 

101137 

076473 

101511 

101511 


000000 
074650 
074713 
075006 
075120 
077001 
101577 
000000 
000000 
075173 
075245 
077001 
075413 
075436 
075452 
075500 
075527 
075544 
075606 
075635 
075664 
075712 
075763 
076012 
076041 
076067 
076116 
076144 
076173 
076222 
076275 
075370 
100753 
101054 
076505 
076505 
076505 
076505 
077*. J1 
075256 
076340 
076505 
076505 
076505 
101016 
077207 
077217 
077135 
076570 
077135 
102775 
101202 
102177 
077443 
077443 


000000 

000000 

000000 

000000 

000000 

000000 


000000 

075256 

000000 

000000 

075565 

075576 

075576 

075565 

075565 

075576 

075576 

075576 

075576 

075576 

075576 

075576 

075576 

075576 

075576 

075576 

075576 

075576 

000000 

077261 

077207 

077261 

077261 

077261 

077261 

000000 

076753 

075576 

077135 

077135 

077135 

076505 

077135 

077135 

077747 

077135 

077747 

075370 

077162 

102360 

077207 

077207 


EMT1 : 
ENT2: 
ENT3: 
EMT4: 
EMT5: 
EMT6: 
EMT7: 
EMTIO 
EMT11 
EMT12 
EMT13 
EMT14 
EMT15 
EMT16 
EMT17 
EMT20 
EMT21 
EMT22 
EMT23 
EMT24 
ENT 25 
EMT26 
EMT27 
EMT30 
EMT31 
EMT32 
EMT33 
EMT34 
EMT35 
EMT36 
EMT37 
EMT40 
EMT41 
EMT42 
EMT43 
EMT44 
EMT45 
EMT46 
EMT47 
EMT50 
EMT51 
EMT52 
EMT53 
EMI 54 
EMT55 
EMT56 
EMT57 
EMT60 
EMT61 
EMT62 
ENT63 
EMT64 
EMT65 
EMTG6 
EMT67 


.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 


EMS1,0 

EMS2.EMS3.0 

EM$2,ENS4,0 

EMS5.ENS6.0 

EMS5.ENS10.0 

EMS167.EMS64.0 

EMS110.ENS176.0 

EMS7.0 

ENSlO.O 

EMS11 .ENS12.0 

EN$13,EN$14 # EMS15,EMS16,0 

EMS17.ENS64.0 

EMS11.ENS21.0 

EMS11.EMS22.EMS27.0 

EMS11.EMS23.ENS30.0 

EMS11.EMS24.EMS30.0 

ENS11 ,ENS25,ENS27,0 

EMS11.EMS26.EMS27.0 

EMS11,ENS31,EMS30,0 

ENS11,ENS32,EMS30,0 

ENS1 1 , EMS33 , EMS30 , 0 

EMS11 .ENS34,ENS30,0 

EMS11.ENS35.EMS30.0 

EMS11 .ENS36.ENS30.0 

EMS11.ENS37.ENS30.0 

EM$11.ENS40.EM$30,0 

ENS11 .ENS41 .EMS30.0 

EMS11,ENS42,ENS30.0 

ENS11 ,ENS43,EM$30,0 

EMS11,ENS44,EKS30,0 

ENS11,EN$45,EMS30,0 

EMS66.ENS20.0 

EMS75.EMS141.EMS76.0 

ENS144.ENS14$.EMS72.EMS76.0 

EN$47,EN$53.EN$76.0 

EMS77.EHS53.EMS76.C 

ENS100,EN$53,ENS76,0 

EMS101 ,ENS53,EMS76,0 

EMS65,EM$64,0 

EMS13.EMS15.EMS63.0 

EMS11 ,EK$46,ENS30,EMS67.0 

EMS47,ENS53.EMS67.EMS115,EMS140,ENS141,0 

EMS47 # EMS53,EMS67,EMS115,EMS141 ,ENS164,0 

EMS50.EMS53.EMS67.Q 

EMS1 42.EMS143.EMS5* . ENS67.0 

EMS51 .EMS72.EMS67.EMS1 15.EMS50.EMS70.0 

EMS167.EMS73,EMS67.0 

EMS56.EMS67.EMS1 1 5 .EMS1 50.ENS1 52.EMS70.0 
EMS71.EMS56.EMS67.EMS115.EMS150.EMS152.EMS72,0 
EMSHQ.EMS67.EMS115.EMS47.EMS70.0 
EMS225,EMS226.EMS20,0 

EMS1 50 , EMS1 52 . EMS70 . EMS1 1 5 . EMS56 . EMS73 . EMS67.0 
EMS52 . EMS205 . EMS21 4 , EMS206 ,EMS1 1 5 . ENS51 . EMS 72 . 0 


EMS165.EMS103.EMS72.EMS124.0 
EMS165.EMS103.EMS72.EMS171 # 0 
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58 071040 

59 071050 

60 071060 

61 071076 

62 071114 

63 071124 

64 071144 

65 071154 

66 071166 

67 071204 

68 071222 

69 071232 

70 071244 

71 071262 

72 071272 

73 071302 

74 0 71322 

75 071334 

76 071342 

77 071350 

78 071364 

79 071364 

80 071374 

81 071404 

82 071414 

83 071424 

84 071434 

85 071444 

86 071454 

87 071464 

88 071474 

89 071506 

90 071520 

91 071532 

92 071544 

93 071556 

94 071570 

95 071602 

96 071614 

97 071626 

98 071636 

99 071646 
ICO 071656 
10. 071666 

102 071676 

103 071706 

104 071716 

105 071726 

106 071736 

107 07174C 

108 071760 

109 071772 

110 072010 

111 072026 

112 072040 

113 072052 

114 072064 


076340 

077174 

076367 

076367 

076570 

077174 

076416 

101001 

077253 

077253 

101552 

101122 

076445 

101511 

101511 

101044 

077547 

077673 

077673 

077547 

100024 

100067 

100124 

100167 

100221 

100264 

100675 

100366 

100424 

100024 

100067 

100124 

100167 

100221 

100264 

100675 

100366 

100424 

100024 

100124 

100024 

100675 

100167 

100221 

100264 

100424 

101626 

100366 

100732 

101001 

1010*4 

101044 

101137 

101122 

101122 

101354 


075370 

077366 

07720? 

077207 

076505 

076570 

076505 

101016 

100753 

101137 

077217 

101156 

077234 

077340 

077312 

101054 

077607 

074713 

074650 

077747 

100464 

100464 

100464 

100464 

100464 

1004b4 

100464 

100464 

100464 

100464 

100464 

100464 

100464 

100464 

100464 

100464 

100464 

100464 

100464 

100464 

100464 

100464 

100464 

100464 

100464 

100464 

100464 

100464 

077747 

077747 

101054 

101054 

101202 

101156 

101156 

101304 


101404 

101404 

101404 

101404 

101404 

101404 

101404 

076505 

101404 

101404 

101404 

077234 

101404 

101404 

101404 

076505 

077752 

COOOOO 

000000 

077752 


100510 
100510 
1005.0 
100510 
100510 
100510 
100510 
100510 
100510 
100533 
100533 
100533 
100533 
100533 
100533 
100533 
100533 
100533 
100575 
100575 
100650 
100650 
100650 
100650 
100650 
100650 
100650 
100650 
100753 
101016 
101103 
075370 
101250 
101250 
101304 
1 Cl 337 


EAT 70: 

EAT71 : 

EAT72: 

EAT73: 

EAT 74: 

EAT75: 

EAT76: 

EAT 77: 

EAT 100: 

EAT101 : 

EAT 102: 

EAT 103: 

EAT 104; 

EAT105: 

EAT 106: 

EAT107: 

EAT110: 

EMT111: 

EMT112: 

EAT113: 

EMT114: 

EAT115: 

EMT116: 

EMT117: 

EAT120: 

EAT121 : 

EAT 122: 

EAT 123: 

EAT124: 

EAT125: 

EAT 126: 

EAT1 27: 

EAT 130: 

EAT131 : 

EAT 132: 

EAT 133: 

EAT 134: 

EAT135: 

EMT136: 

EAT137: 

EAT140: 

EAT141 : 

EAT142: 

EAT143: 

EAT144: 

EAT145: 

EAT146: 

EAT147: 

EAT150: 

EAT151 : 

EAT152: 

EAT153: 

EAT154: 

EAT155: 

£ AT 156: 

EAT157: 

EAT160: 


.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 


.WORD 

.WORD 

.WORD 

.WORD 

.WORD 
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J 5 


SEQ 026? 


EAS46.EAS20.EAS163.0 

EAS71 .EAS101 .EAS163.0 

EAS47 , EAS72 ,E AS1 63 ,EAS1 1 5 , EAS1 40, EAS1 4 1 .0 

EMS47,EMS72.EAS163,EAS115,EAS141,EAS72,6 

EAS56.EAS53.EAS163.0 

EAS71,EA$56.EAS163.EAS115.EAS150,EAS152,EAS72,0 

EAS50.EMS53.EAS163.0 

EAS142.EMS143,EAS53,EAS163.0 

EAS75,EAS141.EAS163.EAS115,EAS47,EAS70.0 

EAS75.EAS1 50.EAS1 63.EAS1 1 5 .EAS56.EHS73.0 

EAS167.EAS73.EAS163.0 

EAS147.EAS151.EAS74.EAS163.0 

SAS51.EAS74.FMS163.EAS115.EAS50.EAS70.0 

EAS165.EAS100.EAS163.0 

EAS165.EHS77.EAS163.0 

EAS144,EAS145,EAS53,EAS163,EAS115,EAS143.EAS70,0 

EAS110.EAS112.EAS116.cAS111.0 

EAS113.EAS4.0 

EAS113.EAS3.0 

EAS110.EAS115.EAS116.EAS117.EAS114.0 
;NOT USED 

EAS121.EAS132.EAS133.0 
EAS122.EAS132.EAS133.0 
EAS123.EAS132.EAS133.0 
EAS124.EAS132.EAS133.0 
EAS125.EAS132.EAS133.0 
EAS126.EAS132.EAS133.0 
EAS137.EAS132.EAS133.0 
EAS130.EAS132.EAS133.0 
EAS131 ,EAS132,EA$133,0 
EAS121 ,EAS132,EAS134,EAS123,0 
EAS1 22 , EAS1 32 . EAS1 34 . EAS 1 23 . 0 
EAS1 23 . EAS1 32 . EAS1 34 . EAS 1 23 . 0 


EAS124.EAS132.EAS134.EAS123.0 

EAS125.EAS132.EAS134.EAS123.0 


EAS126.EAS132.EAS1 
EAS137.EAS132. 


EAS137.EAS1 
EAS130.EAS1 
EAS131.EAS1 
EAS121.EAS1 
EAS123.EAS1 
EAS121.EAS1 
EAS137.EAS1 
EAS124.EAS1 
EAS125.EAS1 
EAS126.EAS1 
EAS131.EAS1 
EAS171 .EAS1 
EAS130.EAS1 


34.EAS123.0 

34.EAS123.0 


.EAS134.EAS123.0 

.EAS134.EAS123.0 

.EAS135.0 

.EAS135.0 

.EAS136.0 

.EAS136.0 

.EAS136.0 

.EAS136.0 

.EAS136.0 

.EAS136.0 

.EAS136.0 

.EAS136.0 


EAS140.EAS1 1 5.EAS141 .EAS70.0 
EAS142.EAS115.EAS143.EAS72.0 
EAS144.EAS145.EAS146.EAS115.EAS143.EAS72.0 
EAS144.EAS145, EAS20 . EAS1 1 5 . E AS1 43 . EAS 70 . 6 
EAS150.EAS152.EAS154.EAS153.0 
EAS147.EAS151 ,EAS154, r AS155,0 
EAS147.EAS151.EAS156.EAS157.0 
EAS161 .EAS156.EAS160.0 


CZRNDAO RM80 FCTNl PT 1 MACRO V04.00 28-JAN-82 16:24:51 
ERROR MESSAGE TABLE 


115 072074 

116 072106 

117 072120 

118 072130 

119 072136 

120 072144 

121 07215? 

122 072160 

123 072172 

124 072202 

125 072212 

126 072222 

127 072234 

128 072242 

129 072250 

130 072252 

131 072264 

132 072276 

133 072310 

134 072322 

135 072340 

136 072350 

137 072360 

138 072372 

139 072400 

140 072414 

141 072430 

142 072440 

143 072460 

144 072472 

145 072502 

146 072512 

147 072522 

148 072532 

149 072542 

150 072552 

151 072566 

152 072606 

153 072616 
154, 072632 

155 072636 

156 072646 

157 072650 

158 072652 

159 072654 

160 072656 

161 072660 

162 072662 

163 072664 

164 072666 

165 072670 

166 072672 

167 072674 

168 072676 

169 072706 

170 072720 

171 072734 


075527 

075544 

076367 

076367 

076570 

076340 

102700 

102136 

101552 

101552 

101626 

101626 

077673 

102023 

000000 

102136 

102136 

102136 

102136 

101137 

076416 

077452 

077253 

077253 

076445 

101001 

076416 

076473 

076473 

076570 

076340 

075606 

076367 

076473 

076473 

076473 

102752 

075162 

102752 

074564 

102136 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

101552 

101552 

101552 

102312 


075565 

075565 

101404 

075370 

075370 

075370 

C75370 

100753 

101250 

101250 

100464 

100464 

102001 

102040 

076445 

102151 

076416 

101016 

077234 

077443 

077217 

100753 

101137 

077207 

076505 

077443 

102177 

100002 

075576 

075576 

075576 

075576 

100002 

100002 

100002 

103024 

103035 

102775 

000000 

101752 


101304 

101304 

100732 

000000 

000000 

000000 

000000 

075576 

101322 

101264 

100510 

100533 

000000 

000000 


075576 

075576 

075576 

075576 

1C2106 

077207 

102106 

077747 

000000 

077747 

077747 

076505 

101525 

076570 

077001 

077001 

077001 

077001 

077312 

076753 

102752 

103035 

075576 

077747 


075576 


100464 

100464 

102274 

102335 


102236 

102263 

102263 

000000 


EMT161: 
EMT162: 
EMT163: 
EMT164: 
EMT165: 
EMT166: 
EMT167: 
EMT170: 
EMT171: 
EMT1 72: 
EMT173: 
EMT174: 
EMT175: 
EMT176: 
EMT177: 
EMT200: 
EMT201 : 
EMT202: 
EMT203: 
EMT204: 
EMT205: 
EMT206: 
EMT207: 
EMT21G: 
EMT211: 
EMT212: 
EMT213: 
EMT214: 
EMT215: 
EMT216: 
EMT217: 
EMI 220: 
EMT221 : 
EMT222: 
EMT223: 
EMT224: 
EMT225: 
EMT226: 
EMT227: 
EMT230: 
EMT231 : 
EMT232: 
EMT233: 
EMT234: 
EMT235: 
EMT236: 
EMT237: 
EMT240: 
EMT241 : 
EMT242: 
EMT243: 
EMT244: 
EMT245: 
EMT246: 
EMT247: 
EMT25Q: 
EMT251 : 


.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 


PAGE 50-2 


k 5 


SEO 026c 


EMS25,EHS27.EMS156.EMS160.0 

EMS26 ,EMS27,EMS1 56, EMS 160,0 

EMS47.EMS163.EMS140.0 

EMS47.EHS20.0 

EMS56.EMS20.0 

EMS46.EMS20.0 

EMS224.EMS20.0 

EMS203 ,EMS1 41 , EMS30 . EMS202 . 0 
EMS167.EMS1 54,EMS15z,0 
EMS 167, EMS 1 54, EMS1 55,0 
EMS 1 71 ,EMS132,EMS133,0 
EMS171 ,EMS132,EMS134,EMS123,0 
EMS113.EMS177.0 
EM5200,EMS201 ,0 


EMS203.EMS51 .EMS30.EMS202.0 

EMS203 .EMS204 , EMS30 . EMS202 , 0 

EMS203.EMS50.EMS30.EMS202.0 

EMS203,EMS143,EMS30,EMS202,0 

EMS 1 50 , EMS74 , EMS202 .EMS 1 1 5 , EMS 1 52 , EMS72 , 0 

EMS50.EMS103,EM$72.0 

EMS 104, EMS73 , EMS202 , 0 

EMS75.EMS141 ,EMS115,EMS140,0 

EMS75.EMS150.0 

EMS51 .EMS72.EMS1 15.EMS50.EMS70.0 

EMS142,EMS53.EMS115.EMS143,EMS72,0 

EMS50,EMS103,EMS53,0 

EMS52.EMS205 . EMS1 66, EMS206, EMS 1 1 5 , EMS51 . EMS72 . 0 

EMS52 , EMS1 1 7 , EMS56 . EMS 1 63 , 0 

EMS56 , E WSSO , EMS64 , 0 

EMS46 , EMS30 , EMS64 , 0 

EMS31.EMS30.EMS64.0 

EMS47.EMS30.EMS64.0 

EMS52,EMS117,EMS77,0 

EMS52,EMS117,EMS63.0 

EMS52. EMS1 1 7.EMS225.EMS1 1 5 .EMS226 ,0 

EMS225,EMS227.EMS230,EMS115,EMS156.EMS231,EMS57,0 

EMS11.EMS230.EMS30.0 

EMS225, EMS226 , EMS 1 1 5 , EMS230 , EMS 72 , 0 

EMS1.0 

EMS203 , EMS1 76 , EMS30 , 0 


EMS 167.EMS132, EMS207 , 0 

EMS167,EMS132.EMS210,EMS125.0 

EMS 1 67 . EMS21 1 , EMS2 1 0 , EMS207 , EMS206 , 0 

EMS212,EHS213,0 


l/RNDAO RM80 FCTNl PT1 MACRO V04.00 28- JAN-82 16:24:51 PAGE 50-3 
ERROR MESSAGE TABLE 


L 5 


SEO 0269 


172 072742 

173 072750 

174 072766 

175 072776 

176 073006 

177 073016 

178 073030 

179 073042 

180 073062 

181 073072 

182 073102 

183 073122 

184 073142 

185 073154 

186 073172 

187 073206 

188 073224 

189 073242 

190 073260 

191 073276 

192 073310 

193 073324 

194 073342 

195 073362 

196 073404 

197 073416 

198 073430 

199 073442 

200 073454 

201 073464 

202 073504 

203 073516 

204 073530 

205 073542 

206 073562 

207 073574 

208 073606 

209 073620 

210 073630 

211 073640 

212 073650 

213 073656 

214 073666 

215 073700 

216 073712 

217 073730 

218 073742 

219 073752 

220 073764 

221 073776 

222 074014 

223 074032 

224 074052 

225 074062 

226 074072 

227 074104 

228 074112 


101511 

101122 

102136 

102136 

102136 

075162 

076473 

076473 

077452 

076416 

076570 

077174 

101001 

076416 

076367 

076367 

077253 

076445 

076753 

077752 

076367 

076367 

076570 

077174 

101511 

101511 

101511 

076340 

076416 

076416 

101001 

077452 

077501 

101044 

076144 

075606 

077174 

076173 

076275 

076222 

077530 

076012 

101701 

101661 

075234 

101122 

077065 

075664 

076067 

076445 

077253 

077253 

076673 

077752 

075712 

076541 

076473 


102312 

101156 

077366 

101552 

077340 

076340 

100002 

102177 

077217 

076505 

076505 

076570 

101016 

101103 

076505 

076505 

100753 

077234 

076505 

076505 

076505 

076505 

076505 

076570 

077340 

077366 

077312 

075576 

076505 

101103 

101016 

077443 

077443 

101054 

077443 

077443 

075606 

077443 

077443 

077443 

075370 

077443 

076012 

076012 

101716 

101156 

076505 

077443 

077443 

077234 

100753 

101137 

076706 

100002 

076505 

075712 

100002 


000000 

101304 

075576 

075576 

075576 

075576 

076570 

102502 

102106 

077414 

077414 

077414 

076505 

077747 

077414 

077414 

077414 

077414 

076645 

076116 

076645 

076645 

076645 

076505 

077443 

077443 

077443 

077001 

076645 

077747 

076505 

076505 

076505 

077443 

076505 

076505 

077443 

076645 

076645 

076645 

000000 

076645 

077443 

077443 

075256 

077234 

101724 

076505 

076505 

076645 

076645 

101202 

076735 

075712 

076517 

000000 

076570 


EMT252 

EMT253 

EMT254 

EMT255 

EMT256 

EMT257 

EMT260 

EMT261 

EMT262 

EMT263 

EMT264 

EMT265 

EMT266 

EMT267 

EMT270 

EMT271 

EMT272 

EMT273 

EMT274 

EMT275 

EMT276 

EMT277 

EMT300 

EMT301 

EMT302 

EMT303 

EMT304 

EMT305 

EMT306 

EMT307 

EMT310 

EMT311 

EMT312 

EMT313 

EMT314 

EMT315 

EMT316 

EHT317 

EMT320 

EMT321 

EMT322 

EMT323 

EMT324 

EMT325 

EMT326 

EMT327 

EMT330 

EMT331 

EHT332 

EMT333 

EMT334 

EMT335 

EMT336 

EHT337 

EMT340 

EMT341 

EMT342 


.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 


EMS165.EMS212.0 

EMS147.EMS151.EMS156.EMS210.EMS26.EMS27.0 

EMS203.EMS101 .EMS30.0 

EMS203,EMS167,EMS30,0 

EMS203.EMS100.EMS30.0 

EMS11 ,EM$46,EMS30.EMS102.0 

EMS52 ,EMS1 1 7 , EMS56 . EMS1 0? . 0 

EMS52 f EMS205 , EMS220 . EMS206 . EMS 1 1 5 , EMS5 1 , EMS72 . 0 

EMS 1 04 # EMS73 , EMS202 . 0 

EMS50,EMS53 4 rMSl02.0 

EMS56.EMS53,EMS102,EMS115.EM5150,EMS152,EMS70,0 

EMS71 .EMS56.EMS102.EMS1 15 .EMS150.EMS1 52.EMS72.0 

EMS142,EMS143,EMS53,EMS102,0 

EMS50,EM$146,EMS115,EMS52,EMS117,EMS46,0 

EMS47,EMS53,EMS102,EK5115,EMS140.0 

EMS47,EMS53.EMS102.EMS115.EM$141.EMS72,0 

EMS75,EMS141.EMS102,EMS1l5.EMS47,EMS73.0 

EMS51 # EMS74 . EMS 1 02 , EMS 1 1 5 . EMS50 , EMS 70 . 6 

EM563.EMS53.EMS57.EMS1 1 5, EMS41 ,EMS146,0 

EMS116,EMS53,EMS41,EMS57,0 

EMS47.ERS53,EMS57,EMS115.EM$140,0 

EMS47.EMS53.EMS57.EMS115.EMS141 , EMS 72,0 

EMS56,EMS53.EMS57,EMS115,EMS150,EMS152,EMS70,0 

EMS71 .EHS56.EMS53.EMS57,EM$115,EMS150,EMS152,EMS72.0 

EMS165,EMS100,EMS103,EMS57,0 

EMS165.EMS101 ,EMS103,EMS57,0 

EMS 1 65 ,EM$77 , EMS 1 03 , EMS57 , U 

EMS46 . EMS30 . EMS64 , EMS57 . 0 

EMS50.EMS53.EMS57.0 

EMS50.EMS146.EMS115,EMS52,EMS117,EMS46,EMS57,0 

EMS142,EMS143,EMS53,EMS57,0 

EMS 1 04 , EMS 1 03 , EMS53 , EMS 5 7 , 0 

EMS105.EMS103.EMS53.EMS57.0 

EMS1 44 , EMS1 45 , EMS 1 03 , EMS5 7 , EMS 1 1 5 . EMS 1 43 , EMS70 , 0 

EMS42 , EMS1 03 , EMS53 , EMS5 7 , 0 

EMS31 ,EMS103,EMS53.EMS57,0 

EMS71 , EMS31 . EMS1 03 , EMS57, 0 

EMS43.EMS103.EMS57.0 

EMS45,EMS103,EMS57,0 

EMS44,EMS103,EMS57,0 

EMS106.EMS20.0 

EMS36, EMS1 03 , EMS57 , 0 

EMS173,£MS36,EMS103,EMS57,0 


EMS172,EMS36,EMS1Q3,EMS57,0 
EMS13.EM$174,EMS15,F 


Lnj Lnw i f jfcnw i*'# EMS35.EMS53.EMS1 75,0 
EMS147.EMS151.EMS74.EMS175.0 
EMS66, EMS53 . EMS1 75,6 
EMS33 , EMS1 0$ , EMS53 , EMS1 75 . 0 
EMS40 , EMS1 03 , EMS53 , EMS57 , 0 
EMS51,EMS74.EMS57,EMS115.EMS50,EMS70.0 
EMS75 . EMS1 41 , EMS57 . EMS 115. EMS47 . EMS73 , 0 
EMS75 , EMS1 50 . EMS1 52 , EMS57 , EMS1 1 5 , EMS56 , EMS73 , 0 
EMS60 , EMS61 . EMS62, 0 
EMS116.EMS1 i7,EMS34,0 
EMS34 , EMS53 , EMS54 . EMS1 1 1 , 0 
EMS55.EMS34.0 
EMS52,EMS117.EMS56,EMS57,0 



M 5 


SEQ 0270 


CZRNDAO RM30 FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PA6E 50-4 
ERROR MESSAGE TABLE 


229 074124 

230 074136 

231 074150 

232 074160 

233 074174 

234 074206 

235 074224 

236 074234 

237 074240 
236 074250 


076473 

076473 

076473 

077530 

076473 

077253 

101552 

102376 

102447 

102522 


100002 076275 EMT343: .WORD EHS52.EMS117,EMS45,EMS57,0 

100002 076222 EHT344: .WORD EMS52,EMS1 17,EMS44.EMS57,0 

100002 102522 EMT345: .WORD EMS52.EM$117,EMS221 ,0 

075370 077747 EHT346: .WORD EMS10&,EMS20.EMS115.EMS223 EMS72.0 

102177 102572 EMT347: .WORD EMS52.EMS205.EMS222.EMS206.0 

101137 077414 EMT350: .WORD EHS75,EHS150,EMS102,EMS115,EMS56,EMS73.0 

077217 077414 EMT351: .WORD EWS16?,EMS73,EMS102,0 

000000 EMT352: .WORD EMS215.0 A 

102136 102417 EMT353: .WORD EMS217.EMS203.EMS216.0 

075370 000000 EMT354: .WORD EMS221 ,EHS20.0 



PAGE 51 


SEQ 0 27 


H 5 


EH1 ,$TSH1 ,STSH2,STSH4,0 
ST$H1.STSH2.STSH4,0 

EH110.0 
EH111.0 
EH1 -0 
EHlU,0 

EH223.STSH1 ,ST$H2,$TSH4,0 
EH256.STSH1 ,STSH2,STbH4,0 

EH336,STSH1 ,STSH2,STSH4.0 
EH337,STSH1 ,STSH2,STSH4,0 
EH344,STSH1 ,STSH2,STSH4,0 

EH353,0 



B 6 


SEQ 027, 


CZRNDAO RM80 FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE 52 
ERROR MESSAGE TABLE 

1 074406 

2 074416 

3 

4 074424 

5 074426 

6 

7 074430 

8 074432 

9 

10 074442 

11 074452 

12 074462 

13 

14 074474 


104166 

104262 

104262 

104300 

104300 

104332 

EDT1: .WORD 

EDT2: .WORD 

ED1.STSD1.STSD2.STSD4 

STS&1.STSD2.STSD4 

104174 

104200 



EDT110: .WORD 
EDT111: .WORD 

ED1 10 

ED1 1 1 

104206 

104216 

104262 

104300 

EDT114: .WORD 
EDT223: .WORD 

ED1 1 4 

ED223,STSD1 .STSD2.STSD4 

104226 

104240 

104240 

104262 

104262 

104262 

104300 

104300 

104300 

EDT336: .WORD 
EDT337: .WORD 
EDT344: .WORD 

ED336.STSD1,STSD2,ST$D4 
ED337,STSDI,STSD2,STSD4 
ED337,STSD1 ,$TSD2,ST$D4 # 0 

104252 



EDT353: .WORD 

ED353 



C 6 



SEQ 0273 



I 

I 


! 


CZRNDAO RM80 FCTNL 

PT1 

MACRO V04 

.00 28- 

JAN-82 

16:24:51 

D 6 

PAGE 54 

ERROR MESSAGE STRINGS 






1 





.SBTTL ERROR MESSAGE STRINGS 

c 

3 

074564 

127 

122 

117 

EMS1: 

.ASCIZ 

aURONG UNIT SELECTED (RMCS2, BITS 0-2) a 

4 

074633 

104 

105 

126 

EMS2: 

.ASCII 

aDEVICE went a 

aUNAVAILABLE ' t>VA* ’ (RMCS1, BIT 11) a 
aNONEXISTENT 'NED" (RMCS2, BIT 12) a 

5 

074650 

125 

116 

101 

EMS3: 

.ASCIZ 

6 

074713 

116 

117 

116 

EMS4 

.ASCIZ 

7 

074756 

103 

117 

115 

EMS5: 

.ASCIZ 

8C0MMAND NOT COMPLETED, a 

8 

075006 

105 

117 

116 

EMS6: 

.ASCIZ 

aCONTROLLER NOT READY (RMCS1 , BIT 7) a 

9 

075053 

104 

122 

111 

EMS7: 

•ASCIZ 

3DRIVE NOT READY ’DRY” (RMDS, BIT 7) a 

10 

075120 

107 

117 

040 

EMS10 

.ASCIZ 

aGO NOT RESET "GO" (RMCS1 , BIT 0) a 

11 

075162 

111 

116 

126 

EMS11 

.ASCIZ 

aiNVALlD a 

12 

075173 

106 

125 

116 

EMS12 

.ASCIZ 

af UNCTION CODE (RMCS1 , BITS 1-5) a 

13 

075234 

115 

101 

123 

EMS13 

.ASCIZ 

aMAssBus a 

14 

075245 

103 

117 

116 

EMS14 

.ASCIZ 

aCONTROL a 

15 

075256 

102 

125 

123 

EMS15 

.ASCIZ 

aBUS PARITY ERROR i 

16 

075300 

04 2 

115 

103 

EMS16 

.ASCIZ 

a'MCPE" (RMCS1. BIT 13) d 

17 

075330 

124 

122 

101 

EMS17 

.ASCIZ 

aTRANSFER ERROR (RMCS1 , BIT 14) a 

18 

075370 

123 

110 

117 

EMS20 

.ASCIZ 

aSHOULD NOT BE SET a 

19 

075413 

127 

117 

122 

EMS21 

.ASCIZ 

a WORD COUNT (RMWC) a 

20 

075436 

102 

125 

123 

EMS22 

.ASCIZ 

aBUS (RMBA) a 

21 

075452 

042 

114 

102 

EMS23 

.ASCIZ 

a'lBT" (RMDS. BIT 10) a 
a"AOE" (RMER1 , BIT 09) a 

22 

075500 

042 

101 

117 

EMS24 

.ASCIZ 

23 

075527 

104 

111 

123 

EMS25 

.ASCIZ 

aDISK (RMDA) a 

24 

075544 

103 

131 

114 

EMS26 

.ASCIZ 

aCYLINDER (RMDC) a 

25 

075565 

101 

104 

104 

EMS27 

.ASCIZ 

aADDRESS a 

26 

075576 

123 

124 

101 

EMS30 

.ASCIZ 

asTATus a 

27 

075606 

042 

1 27 

114 

EMS31 

.ASCIZ 

a'^LE" (RMER1, BIT 11) a 

28 

075635 

042 

125 

120 

EMS32 

.ASCIZ 

a*V»E" (RMCS2, BIT 13) a 

29 

C75664 

042 

127 

103 

FHS33 

.ASCIZ 

a^CF" (RMER1 , BIT 5) a 

aWRITE CHECK ERROR- ^CE" (RMCS2, BIT 14) a 

30 

075712 

127 

122 

111 

EMS34 

.ASCIZ 

31 

075763 

042 

115 

104 

EMS35 

.ASCIZ 

a* MOPE" (RMCS2, BIT 8) a 

32 

076012 

042 

104 

103 

EHS36 

.ASCIZ 

a’DCK" (RMER1, BIT 15) a 

33 

076041 

042 

105 

103 

EMS37 

.ASCIZ 

a'tCH" (RMER1 , BIT 6) a 

34 

076067 

042 

104 

114 

EMS40 

.ASCIZ 

a‘T>LT" (RHCS2, BIT 15) a 

35 

076116 

042 

115 

130 

EMS41 

.ASCIZ 

a'TWF" (RMCS2, BIT 9) a 

36 

076144 

042 

104 

124 

EMS42 

.ASCIZ 

a'DTE" (RMER1, BIT 12) a 
a'HCRC" (RMER1, BIT 8) a 
aHEADER COMPARE ERROR ’HCE" (RMER1 , BIT 7) a 

37 

076173 

042 

110 

103 

EMS43 

.ASCIZ 

38 

076222 

110 

105 

101 

EMS44 

.ASCIZ 

39 

076275 

106 

117 

122 

EMS45 

.ASCIZ 

aFORMAT ERROR *TER" (RMER1 , BIT 4) a 

40 

076340 

042 

111 

101 

EMS46 

.ASCIZ 

a"IAE" (RMER1 , BIT 10) a 

41 

076367 

042 

117 

120 

EMS47 

.ASCIZ 

a*t)PI M (RMER1 , BIT 13) a 
a"S KI" (RMER2, BIT 14) a 
a'T’IP" (RMDS, BIT 13) a 

42 

076416 

042 

123 

113 

EMS50 

.ASCIZ 

43 

076445 

042 

120 

111 

EMS51 

.ASCIZ 

44 

076473 

124 

110 

105 

EMS52 

.ASCIZ 

aTME RM80 a 

45 

076505 

104 

105 

124 

EMS53 

.ASCIZ 

aDETECTED a 

46 

076517 

101 

124 

040 

EMS54 

.ASCII 

aAT AN UNEXPECTED a 

47 

076541 

111 

116 

103 

EMS55 

.ASCIZ 

aiNCORRECT DATA DURING a 

48 

076570 

111 

116 

126 

EMS56 

.ASCIZ 

aiNVALID COMMAND ERROR "IVC" (RMER2, BIT 12) a 

49 

076645 

104 

125 

122 

EMS57 

.ASCIZ 

SOURING DATA TRANSFER a 

50 

076673 

104 

101 

124 

EMS60 

.ASCIZ 

aDATA READ a 

51 

076706 

104 

117 

105 

EMS61 

.ASCIZ 

8D0ES NOT COMPARE WITH a 

52 

076735 

104 

101 

124 

EMS62 

.ASCIZ 

aDATA WRITTEN a 
a* PAR" (RMER1, BIT 3) a 

53 

076753 

042 

120 

101 

EMS63 

.ASCIZ 

54 

077601 

111 

123 

040 

EMS64 

.ASCIZ 

ais INCORRECT a _ ft 

55 

077017 

103 

117 

115 

EMS65 

.ASCIZ 

aCOMPOSITE ERROR ,a ERR" (RMDS, BIT 14) a 

3DATA PARITY ERROR ’DPE" (RMER2, BIT 3) a 

56 

077065 

104 

101 

124 

EMS66 

.ASCIZ 

57 

077135 

104 

125 

122 

EMS67 

.ASCIZ 

SOURING SEEK COMMAND a 


SEO 0274 
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SEQ 0275 


58 077162 

111 

123 

59 077174 

105 

122 

60 077207 

111 

123 

61 077217 

104 

111 

62 077234 

104 

111 

63 077253 

114 

117 

64 077261 

104 

125 

65 077312 

042 

122 

66 077340 

042 

111 

67 077366 

042 

111 

68 077414 

104 

125 

69 077443 

105 

122 

70 077452 

042 

114 

71 077501 

042 

114 

72 077530 

110 

105 

73 077547 

102 

125 

74 077576 

101 

104 

75 077607 

127 

110 

76 077651 

101 

124 

77 077673 

124 

110 

78 077723 

116 

117 

79 077747 

015 

012 

80 077752 

124 

110 

81 100002 

106 

101 

82 100024 



83 100024 

.03 

117 

84 100067 

102 

125 

85 100124 

103 

117 

86 100167 

105 

122 

87 100221 

101 

124 

88 100264 

115 

101 

89 100327 

105 

103 

90 100366 

105 

103 

91 100424 

115 

101 

92 100464 

116 

117 

93 100510 

125 

116 

94 100533 

103 

117 

95 100575 

122 

110 

96 100650 

104 

122 

97 100675 

104 

122 

98 100732 

115 

105 

99 100753 

042 

115 

100 101001 

104 

122 

101 101016 

042 

104 

102 101044 

125 

116 

103 101054 

042 

125 

104 101103 

123 

110 

105 101122 

117 

106 

106 101137 

040 

126 

107 101156 

042 

117 

108 101202 

042 

126 

109 101226 

120 

101 

110 101250 

116 

117 

111 101264 

117 

106 

112 101304 

116 

117 

113 101322 

122 

124 

114 101337 

122 

111 


040 EMS70: 

122 EMS71: 
040 EMS72: 
104 EMS73: 
104 EMS74: 

123 EHS75: 
122 EMS76: 

115 EMS77: 

114 EMS100: 

114 EMS101 : 
122 EMS102: 

122 EMS103: 

102 EMS104: 

123 EMS105: 

101 EMS106: 

123 EMS110: 

104 EMS111: 

105 EMS112: 
040 

105 EMS113: 

116 EMS114: 
000 EMS115: 

105 EMS116: 

111 EMS117: 

IMS 120: 
116 EMS121: 

123 EMS122: 
116 EMS123: 

122 EMS124: 

124 EMS125: 
111 EMS126: 

103 EMS127: 

103 EMS130: 
111 EMS131 : 
124 EMS132: 
111 EMS133: 

116 EMS134: 

040 EMS135: 
111 EMS136: 
111 EMS137: 

104 EMS140: 

117 EMS141: 
111 EMS142: 
126 EMS143: 

123 EMS144: 

116 EMS145: 

117 EMS146: 

106 EMS147: 
117 EMS150: 

115 EMS151 : 
126 EMS152: 
103 EMS153: 

124 EMS154: 
106 EMS155: 
124 EMS156: 
103 EMS157: 
120 EMS160: 


.ASCIZ aiS RESET 8 
.ASCIZ iERRONEOUS a 

.Asciz ais set a 
.ASCIZ aDID not set a 
.ASCIZ aDID NOT RESET a 

.asciz blost a 

.ASCIZ aDURING PACK ACK COMMAND a 
.ASCIZ a"RMR" CRMER1 , BIT 2) a 
.ASCIZ a"ILR" (RMER1 , BIT 1) a 
.ASCIZ 3"ILF" (RMER1, BIT 0) a 
.ASCIZ 3DURING SEARCH COMMAND a 
.ASCIZ 3ERR0R a 

.ASCIZ a'lBC" (RMER2. BIT 10) a 
.ASCIZ a’lSC" (RHER2, BIT 11) a 
.ASCIZ aHEADER ERRORS 3 
.ASCIZ aBUS TIMEOUT (04 TRAP) 3 
.ASCIZ 8ADDRESS a 

.ASCII aUHEN READING/WRITING RH REGISTERS a 
.ASCIZ 3AT THE FOLLOWING a 
.ASCIZ 8THE SELECTED DEVICE IS a 
.ASCIZ aNONEXISTENT DEVICE 3 
.ASCIZ <CRXLF> 

.ASCIZ aTHE MASSBUS CONTROLLER a 
.ASCIZ aF AILED TO DETECT a 
;NOT USED 

.ASCIZ aCONTROL STATUS REGISTER 1, RMCS1 , a 

.ASCIZ aBUS ADDRESS REGISTER. RMBA. a 

.ASCIZ aCONTROL STATUS REGISTER 2. RMCS2, B 

.ASCIZ aERROR REGISTER 1. RMER1. a 

.ASCIZ aATTENTION SUMMARY REGISTER. RMAS. a 

.ASCIZ aMAINTENANCE RE6ISTER #1, RMMR #1. a 

.ASCIZ aECC POSITION REGISTER. RMEC1 , a 

.ASCIZ 3ECC PATTERN REGISTER. RMEC2. a 

.ASCIZ aMAINTENANCE REGISTER 2. RMMR 2. a 

.ASCIZ BNOT INITIALIZED BY a 

.ASCIZ aUNIBUS INITIALIZE a 

.ASCIZ aCONTROLLER CLEAR. I.E. BIT 5 OF a 

.ASCIZ 8RH CONTROLLER ERROR CLEAR (RMCS1. BIT 14) a 

.ASCIZ aORIVE CLEAR COMMAND a 

.ASCIZ aDRIVE STATUS REGISTER. RMDS a 

.ASCIZ 3MEDIUM OFF LINE a 

.ASCIZ a* MOL" (RMDS. BIT 12) a 

.ASCIZ 8DRIVE FAULT a 

.ASCIZ a"DVC" (RMER2. BIT 7) 3 

.ASCIZ aUNSAFE a 

.ASCIZ a"UNS" (RMER1. BIT 14) a 

.ASCIZ aSHOULD BE SET a 

.ASCIZ aOFFSET MODE a 

.ASCIZ a VOLUME VALID a 

.asciz a‘X*r (rmds. bit o) a 

.ASCIZ a'W" (RMDS. BIT 6) a 
.ASCIZ aPACK ACK COMMAND B 

.asciz aNor set by a 

.ASCIZ BOFFSET COMMAND a 

.asciz aNor reset by a 

.ASCIZ aRTC COMMAND a 
.ASCIZ BR1P COMMAND a 
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115 101354 

117 

106 

106 

EMS161: . ASCI 2 

116 101404 




EMS162: 

117 101404 

104 

125 

122 

EMS163: .ASCIZ 

118 101430 

111 

123 

040 

EMS164: .ASCII 

119 101477 

103 

131 

114 

.ASCIZ 

120 101511 

125 

116 

105 

EMS165: .ASCIZ 

121 101525 

122 

105 

103 

EMS166: .ASCIZ 

122 101552 

042 

101 

124 

EMS167: .ASCIZ 

123 101577 

127 

110 

105 

EMS170: .ASCIZ 

124 101626 

105 

122 

122 

EMS171: .ASCIZ 

125 101661 

116 

117 

116 

EHS1 72: .ASCIZ 

126 101701 

122 

105 

103 

EMS173: .ASCIZ 

127 101716 

104 

101 

124 

EMS174: .ASCIZ 

128 101724 

104 

125 

122 

EMS175: .ASCIZ 

129 10175? 

042 

117 

120 

EMS176: .ASCIZ 

130 102001 

111 

116 

040 

E MSI 77: .ASCIZ 

131 102023 

103 

101 

116 

EMS200: .ASCIZ 

132 102040 

104 

111 

101 

EMS201: .ASCIZ 

133 102106 

104 

125 

122 

EMS202: .ASCIZ 

134 102136 

111 

116 

103 

EMS203: .ASCIZ 

135 102151 

042 

127 

122 

EMS204: .ASCIZ 

136 102177 

105 

130 

105 

EMS205: .ASCIZ 

137 102211 

127 

111 

124 

EMS206: .ASCIZ 

138 102236 

042 

107 

117 

EMS207: .ASCIZ 

139 102263 

127 

122 

111 

EMS210: .ASCIZ 

140 102274 

127 

101 

123 

EMS211 : .ASCIZ 

141 102312 

120 

122 

117 

EMS212: .ASCIZ 

142 102335 

127 

101 

125 

EMS213: .ASCIZ 

143 102360 

123 

105 

105 

EMS214: .ASCIZ 

144 102376 

120 

122 

117 

EMS215: .ASCIZ 

145 102417 

104 

125 

122 

EMS216: .ASCIZ 

146 102447 

114 

117 

117 

EMS217: .ASCIZ 

147 102502 

123 

105 

101 

EMS220: .ASCIZ 

143 102522 

102 

101 

104 

EMS221: .ASCIZ 

149 102572 

101 

040 

104 

EMS222: .ASCIZ 

150 102623 

110 

105 

101 

EMS223: .ASCIZ 

151 102700 

116 

117 

116 

EMS224: .ASCIZ 

152 102752 

123 

113 

111 

EMS225: .ASCIZ 

153 102775 

042 

123 

123 

EMS226: .ASCIZ 

154 103024 

111 

116 

110 

EMS227: .ASCIZ 

155 103035 

042 

123 

123 

EMS230: .ASCIZ 

156 103064 

105 

116 

104 

EMS231: .ASCIZ 

157 103102 

101 

106 

124 

EMS232: .ASCIZ 


L 
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f 6 


SEQ 0276 


30FFSET REGISTER (RMOF) a 
;<UNUSED> 

aDURING RECALIBRATE a 

ais INTERMITTENT OR DRIVE DIDNT DROP ON a 

aCYLJNDER a 

3UNEXPECTED a 

aRE CALIBRATE COMMAND a 

a”ATA" (RMDS. 81715) a 

aWHEN READING REGISTER a 

aERROR REGISTER M2. RMER2. a 

aNONRECOVERABLE a 

aNECOVERABLE a 

aDATA a 

aDURING UR1TE COMMAND a 
a’BPE" (RMER2, BIT ’3) a 


aiN WRITE PROTECT a 
aCAN NOT SET a 

aDIAGNOSTIC MODE 'DMD'* (RMMR1 , BIT 0) a 

aDURING DIAGNOSTIC MODE a 

aiNCORRECT a 

a*WL" (RMDS, BIT 11) a 

aEXECUTED a 

aUITH COMP ERROR SET a 

a“GO" CRMCS1 , BIT 0) a 

awRiTiNG a 

aUAS RESET BY a 

aPROGRAM INTERRUPT a 

aUAS NOT GENERATED a 

8SEEK COMMAND a 

aPROGRAM TIMEOUT a 

aDURING LOOK AHEAD TEST a 

aLOOK AHEAD RE6ISTER,RMLA, a 

aSEARCH COMMAND a 

aBAD SECTOR ERROR 'BSE" (RMER2. BIT 15) a 

BA DATA TRANSFER COMMAND a . 

aHEADER COMPARE INHIBIT , BCI M (RMOF, BIT 10) a 

NONEXISTENT MEMORY 'NEM" (RMCS2, BIT 11) a 

as RIP SECTOR ERROR a 

a’BSE" (RMER2, BIT 05) a 

aiNHisiT a 

a*SSEI * (RMOF, BIT 09) a 

aEND OF track a 

BAf TER DATA TRANSFER a 


I 
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G 6 


SEQ 0277 


1 

103127 

105 

130 

120 

EH1: 

.ASCIZ 

iEXPCTD 

RECEVDa 



2 

103146 

102 

125 

123 

EH110: 

.ASCIZ 

aeusADRa 




3 

103155 

040 

122 

115 

EH1 1 1 : 

.ASCIZ 

a RMCS2 

RMCSia 



** 

5 

103174 

122 

105 

103 

EH114: 

.ASCIZ 

aRECEVD 

SNGPRT 

DULPRT8 


6 

103223 

105 

130 

120 

EH223: 

.ASCIZ 

8EXPCTD 

RECEVD 

DATAa 


7 

103251 

105 

130 

120 

EH256: 

.ASCII 

iEXPCTD 

RECEVD 

RGSTRa<CRLF> 

8 

o 

103277 

123 

124 

101 


.ASCIZ 

aSTATUS 

STATUS 

INDEXa 


T 

10 

103325 

107 

104 

101 

EH336: 

.ASCIZ 

aGDADRS 

GDDATA 

BDADRS 

BDDATAa 

11 

103364 

122 

115 

103 

EH337: 

.ASCII 

3RMCS2 

STATUS 

FAILING 

DATAa<CRLF> 

12 

103423 

137 

137 

137 


.ASCII 

a 

"RECEVD 


a<CRLF> 

13 

14 

15 

103462 

105 

130 

120 


.ASCIZ 

aERPCTD"' 

BIT 

WRESS8 

103521 

122 

115 

105 

EH344: 

.ASCII 

8RMER1 

STATUS 

HEADER 

FAILING0<CRLF> 

16 

103561 

137 

137 

137 


.ASCII 

a 

"RECEVD 

WORD 

BITa<CRLF> 

17 

103617 

105 

130 

120 


.ASCIZ 

aEXPCTD*’ 

NUMBER 

POSITONi 

18 

103657 

105 

130 

120 

EH353: 

.ASCII 

BEXPCTD 

RECEVDa<CRLF> 


19 

20 
21 

103676 

040 

122 

115 


.ASCIZ 

a RMLA 

RMLA 

rmof a 


103725 

040 

122 

115 

STSH1 : 

.ASCII 

a RMCS1 

RMCS2 

RMDS 

RMER1 RMER2a 

22 

103772 

040 

040 

040 


.ASCIZ 

a RMAsa 


23 

104002 

040 

122 

115 

STSH2: 

.ASCII 

a RMWC 

RMBA 

RMDA 

RMOF RMDCa 

24 

104047 

040 

040 

040 


.ASCIZ 

a RMEC1 RMEC23 

25 

104071 

040 

122 

115 

STSH3: 

.ASCIZ 

a RMOA 

RMDC 

RMOF 

RMLAa 

26 

104127 

040 

122 

115 

STSH4: 

.ASCIZ 

a RMMR1 

RMMR2 

RMDT 

RMSN8 


27 .EVEN 
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H t 


SEQ 0278 


&GDDAT.$BDDAT,0 

S8ASE.0 

$TAP0,STAP1,0 

RMDTI ,$THP1 ,$THP2,0 
SGDDAT,*BDDAT.$TMP0,0 

S GDADR ,$GDDAT , S6DADR . SBDDAT , 0 

$GDDAT.S8DDAT.STMPC,STMP1,0 
$Gt)DAT , WODAT ,RflOFO. 0 

RMCS1 I ,R«CS2I ,RMDSI ,RMER1 l ,R«cR2l ,RAASI .0 
RMWCI . RUBAI .RMOAI .RMOFI ,RADCJ .RMEC1 I 
RMEC2I ,0 

RMDAI , RADC I , RHOF I ,RMLAJ , 0 
RFWR1 I .RFWR2I ,RMOfl,RHSNI .0 



6 


I 
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1 

104544 

000 



EF 110: 

.BYTE 

0 

2 

104545 

000 

000 


EF111: 

.BYTE 

0.0 

3 

104547 

000 

000 

000 

EF114: 

•BYTE 

0.0,0 

4 

104552 

000 

000 

000 

EF556: 

.BYTE 

0.0. 0,0 

5 

104556 

000 

000 

000 

EF337: 

.BYTE 

0.0. 0.0.0 

6 

7 

104565 

000 

000 

000 

STSF: 

.BYTE 

0.0, 0.0.0. 0.0 



J 6 
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1 

104372 




BUFFER: 



2 

104372 




BUFONE: 

• BLKW 

258. 

3 

/ 

105376 




BUFTWO: 

• 8LKW 

258. 

H 

5 


104372 



.=8UFFER 


0 

7 

104372 




HELP: 



8 

104372 

20U 



•ASCII 

<CRLF> 


9 

104373 

200 



•ASCII 

<CRLF> 


10 

104374 

114 

111 

123 

•ASCII 

9LIST 

)F TESTS8<CRLF> 

11 

104412 

055 

055 

055 

•ASCII 

a 

a <C p L F> 

12 

104430 

124 

061 

Oil 

•ASCII 

an 

CONTROLLER ACCESS TEST3<CRLF> 

13 

104462 

124 

062 

Oil 

•ASCII 

aT2 

LOGICAL ADDRESS PLUGS TESTa<CRLF> 

14 

104520 

124 

063 

Oil 

•ASCII 

aT3 

UNIBUS INITIALIZE TEST3<CRLF> 

15 

104552 

124 

064 

Oil 

•ASCII 

3T4 

CONTROLLER CLEAR TEST8<CRLF> 

16 

104603 

124 

065 

Oil 

•ASCII 

8T5 

ERROR CLEAR TESTa<CRLF> 

17 

104627 

124 

066 

Oil 

•ASCII 

aT6 

DRIVE STATUS TEST9<CRLF> 

18 

104654 

124 

067 

Oil 

•ASCII 

aT7 

PRIMARY/SECONDARY ERROR TESTa<CRLF> 

19 

104714 

124 

061 

060 

•ASCII 

ano 

DIAGNOSTIC MODE TESTa<CRLF> 

20 

104745 

124 

061 

061 

.ASCII 

am 

PACK ACKNOWLEDGE TESTa<CRLF> 

21 

104777 

124 

061 

062 

•ASCII 

an2 

RECALIBRATE TESTa<CRLF> 

22 

105024 

124 

061 

063 

•ASCII 

am 

ABORT RECALIBRATE TEST3<CRLF> 

23 

105057 

124 

061 

064 

•ASCII 

an 4 

IVC RECALIBRATE TEST3<CRLF> 

24 

105110 

124 

061 

065 

•ASCII 

am 

IAE RECALIBRATE TEST8<CRLF> 

25 

105141 

124 

061 

066 

•ASCII 

aTi6 

RECALIBRATE AT OFFSETa<CRLF> 

26 

105173 

124 

061 

067 

•ASCII 

3T17 

DRIVE CLEAR TESTa<CRLF> 

27 

105220 

124 

062 

060 

•ASCII 

3T20 

NOP TEST8<CRLF> 

28 

105235 

124 

06 2 

061 

•ASCII 

3T21 

OFFSET TESTa<CRLF> 

29 

105255 

124 

062 

062 

•ASCII 

i? 22 

GO/ATA TESTa<CRLF> 

30 

105275 

124 

062 

063 

•ASCII 

9T23 

WRITE ATA TESTa<CRLF> 

31 

105320 

124 

062 

064 

•ASCII 

9T24 

ERROR/ATA TESTa<CRLF> 

32 

105343 

124 

062 

065 

•ASCII 

8T25 

PROGRAM INTERRUPT TEST9<CRLF> 

33 

105376 

124 

062 

066 

•ASCII 

8T26 

INHIBIT INTERRUPT TEST9<CRLF> 

34 

105431 

124 

062 

067 

•ASCII 

aT27 

RETURN TO CENTERLINE TEST8<CRLF> 

35 

105467 

124 

063 

060 

•ASCII 

8T30 

READ IN PRESET TE$T9<CRLF> 

36 

105517 

124 

063 

061 

•ASCII 

aT31 

RMDC CLEAR OFFSET TESTa<CRLF> 

37 

105552 

124 

063 

062 

•ASCII 

aT32 

ILLEGAL FUNCTION TEST9<CRLF> 

38 

105604 

124 

063 

063 

•ASCII 

aT33 

INVALID COMMAND TESTa<CRLF> 

39 

105635 

124 

063 

064 

•ASCII 

aT34 

INVALID ADDRESS ERROR TEST8<CRLF> 

40 

105674 

124 

063 

065 

•ASCII 

8T35 

WRITE LOCK ERROR TEST8<CRLF> 

41 

105726 

124 

063 

066 

•ASCII 

8T36 

ERROR ABOUT TESTS8<CRLF> 

42 

105754 

124 

063 

067 

•ASCII 

3T37 

RMR TEST8<CRLF> 

43 

105771 

124 

064 

060 

•ASCII 

aT40 

PARITY ERROft TESTa<CRLF> 

44 

106017 

124 

064 

061 

•ASCII 

it 41 

ILLEGAL REGISTER TEST9<CRLF> 

45 

106051 

124 

064 

062 

•ASCII 

8T42 

SEEK FIRST CYLINDERa<CRLF> 

46 

106101 

124 

064 

063 

•ASCII 

8T43 

SEEK LAST CYLINDERa<CRLF> 

47 

106130 

124 

064 

064 

•ASCII 

8T44 

SEEK PRIME CYLINDERSa<CRLF> 

48 

106161 

124 

064 

065 

•ASCII 

8T45 

SEEK ZERO DIFFERENCEa<CRLF> 

49 

106212 

124 

064 

066 

•ASCII 

8T46 

SEEK MAXIMUM DIFFERENCE FORWARDa<CRLF> 

50 

106256 

124 

064 

067 

• ASCII 

8T47 

SEEK ADJACENT F0RWARD8<CRLF> 

51 

106310 

124 

065 

060 

•ASCII 

8TS0 

SEEK ADJACENT REVERSE3<CRLF> 

52 

106342 

124 

065 

061 

•ASCII 

aT5i 

SEEK INVALID SECT0R8<CRLF> 

53 

106372 

124 

065 

062 

•ASCII 

8T52 

SEEK INVALID TRACKa<CRLF> 

54 

106421 

i 24 

065 

063 

• ASCII 

aT53 

SEEK INVALID CYLINDER3<CRLF> 

55 

106453 

124 

065 

064 

.ASCII 

a?54 

IVC SEEK TEST9<CRLF> 

56 

106475 

124 

065 

065 

• ASCII 

aT55 

ABORT SEEK TESTa<CRLF> 

57 

106521 

124 

065 

066 

•ASCII 

8T56 

SEEK AT OFFSETa<CRLF> 


K 6 


SCO 02 81 
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58 106544 

59 106570 

60 106617 

61 106647 

62 106701 

63 106732 

64 106766 

65 107C12 

66 107040 

67 107065 

68 107066 

69 107122 

70 107156 

71 107173 

72 107230 

73 107254 

74 107277 

75 107334 

76 107343 

77 107374 

78 107420 

79 107444 

80 107503 

81 107517 

82 107532 

83 107545 

84 107560 

85 107572 

86 107604 

87 107616 

88 
89 


065 

067 

.ASCII 

8T57 

066 

060 

.ASCII 

8T60 

066 

061 

.ASCII 

8T61 

066 

062 

.ASCII 

8T62 

066 

063 

.ASCII 

8T63 

066 

064 

.ASCII 

8T64 

066 

065 

.ASCII 

8T65 

066 

066 

.ASCII 

8T66 

066 

067 

.ASCII 

8T67 



.ASCII 

<CRLF> 

120 

105 

.ASCII 

80PERAT 

055 

055 

.ASCII 

a— 


127 

111 

.ASCII 

asv 

II TCH 

055 

055 

.ASCII 

8- 


040 

061 

.ASCII 

a 

15 

040 

061 

.ASCII 

a 

14 

040 

061 

.ASCII 

a 

13 

C40 

061 

.ASCII 

a 

12 

040 

061 

.ASCII 

a 

11 

040 

061 

.ASCII 

a 

10 

040 

040 

.ASCII 

a 

9 

040 

040 

.ASCII 

a 

8 

040 

040 

.ASCII 

a 

7 

040 

040 

.ASCII 

a 

6 

040 

040 

.ASCII 

a 

5 

040 

040 

.ASCII 

a 

4 

040 

040 

.ASCII 

a 

3 

040 

040 

.ASCII 

a 

2 

040 

040 

.ASCII 

a 

1 

040 

040 

.ASCIZ 

a 

0 


LOOK AHEAD TEST8<CRLF> 

SEARCH ON CVLINDER8<CRLF> 
SEARCH OFF CYLINDER8<CRLF> 
SEARCH INVALID SECT0R8<CRLF> 
SEARCH INVALID TRACK8<CRLF> 
SEARCH INVALID CYLINDER8<CRLF> 
IVC SEARCH TEST8<CRLF> 

ABORT SEARCH TEST8<CRLF> 

SEARCH AT 0FFSET8<CRLF> 


8<CRLF> 

USE8<CRLF> 

8<CRLP> 

HALT ON ERR0R8<CRLF> 

LOOP ON TEST8<CRLF> 

INHIBIT ERROR TYPE0UTS8<CRLF> 
8<CRLF> 

INHIBIT ITERATI0NS8<CRLF> 

BELL ON ERR0R8<CRLf> 

LOOP ON ERR0R8<CRLF> 

LOOP ON TEST IN SWR<7:0>8<CRLF> 
TN1288<CRLF> 

TN648<CRLF> 

TN32i<CRLF> 

TNI 68<CRLF> 

TN88<CRLF> 

TN48<CRLF> 

TN28<CRLF> 

TN18<CRLF> 


000200 


l 
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SYMBOL TABLE 



ABASE = 176700 

AUNIT = OOOOOO 

CH = 

ACDU1 = 000000 

AUSUR = OOOOOO 

CHGADR 

AC0U2 = 000000 

AVECT1= 120254 

CHRCNT 

ACKSTS 053464 

AVECT2= OOOOOO 

CKSWR = 

ACPUOP= OOOOOO 

A16 = 000400 

CLKADR 

ADDWO = OOOOOO 

A17 = 001000 

CLKVCT 

AODUl = OOOOOO 

BACK = 000001 

CLR = 

ADDW10= OOOOOO 

BAD TWO 005334 

CLRSTS 

ADDU1 1 = OOOOOO 

BAI = 000010 

CMNSTA 

ADDU12-- OOOOOO 

8800 = 000001 

CMPERR 

AODUl 3= OOOOOO 

B801 = 000002 

CNSL01 

ADDW14- COOOOO 

aeo2 = 000004 

CNSL02 

AODUl 5= OOOOOO 

8803 - 0000*0 

CNSL03 

ADDV2 = OOOOOO 

B804 000020 

CNSL04 

ADDU3 = OOOOOO 

8805 = 000040 

CNSL07 

ADDW4 - OOOOOO 

B806 = 000100 

CNSL08 

ADDW5 = OOOOOO 

8807 = 000200 

CNSL09 

A00U6 = OOOOOO 

8808 = 000400 

CNTCLR 

ADDU7 = OOOOOO 

8809 = 001000 

co tm 


81 TO = 000001 

CONT = 

rT 'rH'Mm'BPBI 

81 TOO = 000001 

CPSAVE 


BIT01 = 000002 

CR 

«!• TOSsM 

BIT02 = 000004 

CRLF = 

ADR = 000001 

BIT03 = 000010 

CYLMSK= 

AENV = OOOOOO 

BIT04 = 000020 

D8CK = 

AENVM = OOOOOO 

BIT05 = 000040 

DBEN = 

AFATAL= OOOOOO 

BIT06 = 000100 

DSL = 

ALL 066522 

BIT07 = 000200 

DCK = 

AMADR1 = OOOOOO 

8IT08 = 000400 

DDISP = 

ArtADR2= OOOOOO 

BIT09 = 001000 

DEBL = 

AMADR3= OOOOOO 

BIT1 = 000002 

DEVSEL 

AMADR4= OOOOOO 

8IT10 = 002000 

D1SPLA 

AMAMS1 = OOOOOO 

81 Til = 004000 

DISPRE 

AMAMS2= OOOOOO 

BIT12 = 010000 

DLT = 

Ar1AMS3= OOOOOO 

6IT13 = 020000 

DMD = 

AMAMS4= OOOOOO 

BIT14 = 040000 

DONE 

AMSGAD= OOOOOO 

BIT15 = 100000 

DPE = 

AMSGLG= OOOOOO 

81 T2 = 000004 

DPEHJ = 

AMSGTY= OOOOOO 

BJT3 = 000010 

DPELO = 

AMTYP1 = OOOOOO 

81 T4 = 000020 

DPR = 

AMTYP2= OOOOOO 

BIT5 = 000040 

DRIVES 

AMTYP3= OOOOOO 

81 T6 = 000100 

DRQ = 

AMTYP4= OOOOOO 

BIT7 = 000200 

DRVCLR= 

AOE = 001000 

81 T8 = 000400 

DRVSTS 

APASS = OOOOOO 

81 T9 = 001000 

DRY = 

APE = 100000 

BLNKS1 070000 

DSWR = 

APRIOR= OOOOOO 

BLNKS2 067777 

DTE = 

APTCSU= 000040 

BLNKS3 067776 

DTO = 

APTENV= 000001 

BLNKS4 067775 

DVA = 

APTSIZ= 000200 

BOTADR 064176 

DVC = 

APTSPO= 000100 

BOTFLG 064200 

E8L = 

ARGS = 000002 

BPTVEC= 000014 

cCH = 

AS(JREG= OOOOOO 

BSE = 100000 

E Cl = 

ATA = 100000 

BUFFER 104372 

ECRC = 

ATESTN= OOOOOO 

BUFONE 104372 

EDT1 

ATMSK= 000377 

8UF TWO 105376 

EDT110 

MNTBL 070102 

CC = 004000 

EDT111 


002000 

EDT114 

074430 

EMS102 

077414 

001326 

EDT2 

074416 

EMS103 

077443 

064201 

EDT223 

07443? 

EMS104 

077452 

104410 

EDT336 

EDT337 

074442 

EMS105 

077501 

001512 

074452 

EMS106 

077530 

001514 

EDT344 

074462 

EMS11 

075162 

000040 

EDT353 

074474 

EMS110 

077547 

052604 

EDI 

104166 

EMSIII 

077576 

007402 

ED1 10 

104174 

EMS112 

077607 

050562 

ED1 1 1 

104200 

EMS113 

077673 

066567 

ED 114 

104206 

EMS114 

077723 

066577 

ED223 

104216 

EMS115 

077747 

066641 

ED336 

104226 

EMS116 

077752 

066650 

ED337 

104240 

EMS117 

100002 

066704 

ED353 

104252 

EMS12 

075173 

067046 

EECC = 

000020 

EMS120 

100024 

067047 

EFT1 

074476 

EMS121 

100024 

052466 

EFT110 

074514 

EMS122 

100067 

066533 

EFT111 

074516 

EMS123 

100124 

000100 

EFT114 

074520 

EMS124 

100167 

063352 

EFT2 

074506 

EMS125 

100221 

000015 

EFT223 

074522 

EMS126 

100264 

000200 

EFT336 

074532 

EMS1 27 

100327 

001777 

EFT337 

074542 

EMS13 

075234 

100000 

EFT344 

074552 

EWS130 

100366 

040000 

EFT353 

074562 

EMS131 

100424 

002000 

EF110 

104344 

EMS132 

100464 

100000 

EF111 

104345 

EMS133 

100510 

177570 

EF114 

104347 

EMS134 

100533 

020000 

EF336 

104352 

ENS135 

100575 

050774 

EF337 

104356 

EMS136 

100650 

001156 

EHT1 

074256 

EHS137 

100675 

000174 

EHT110 

074300 

EMS14 

075245 

100000 

EHT111 

074304 

EMS140 

100732 

000001 

EHT112 

074310 

EMS141 

100753 

067750 

EHT114 

074314 

EMS142 

101001 

000010 

EHT2 

074270 

EMS143 

101016 

040000 

EHT223 

074320 

EMS144 

101044 

020000 

EHT256 

074332 

EMS145 

101054 

000400 

EHT336 

074344 

E MS 146 

101103 

067244 

EHT337 

074356 

EMS147 

101122 

004000 

EHT344 

074370 

EMS15 

07525o 

000010 

EHT353 

074402 

EMS150 

101137 

056022 

EH1 

103127 

EMS151 

101156 

000200 

EH110 

103146 

EMS152 

101202 

177570 

EH111 

103155 

EMS153 

101226 

010000 

EH114 

103174 

EMS154 

101250 

010000 

EH223 

103223 

EMS155 

101264 

004000 

EH256 

103251 

EMS156 

101304 

000200 

EH336 

103325 

EMS157 

101322 

020000 

000100 

EH337 

103364 

EMS16 

075300 

EK344 

103521 

EMS160 

101337 

004000 

EH353 

103657 

EMS161 

101354 

001000 

EMS1 

074564 

EMS162 

101404 

074406 

EMS10 

075120 

EMS163 

101404 

074424 

EMS100 

077340 

EMS164 

101430 

074426 

EMS101 

077366 

EMS165 

101511 
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H 6 


SEO 028 


EHS166 

101525 

EMS40 

076067 

EMT 121 

071424 

EMT203 

072310 

EMT266 

073142 

EHS167 

101552 

EMS41 

076116 

EMT122 

071434 

EMT204 

072322 

EMT267 

073154 

EHS17 

075330 

EMS42 

076144 

EMT 123 

071444 

EMT205 

072340 

EMT27 

070336 

EMS170 

101577 

EMS43 

076173 

EMT124 

071454 

EMT206 

072350 

EMT270 

073172 

EHS171 

101626 

EMS44 

076222 

EMT125 

071464 

EM7207 

072360 

EHT271 

073206 

EMS1 ’2 

101661 

EMS45 

076275 

EMT126 

071474 

EMT21 

070256 

EMT272 

073224 

EMS173 

101701 

EMS46 

076340 

EMT127 

071506 

EMT210 

072372 

EMT273 

073242 

EHS174 

101716 

EMS47 

076367 

EMT13 

070200 

EMT211 

072400 

EMT274 

073260 

EMS175 

101724 

EMS5 

074756 

EMT130 

071520 

EMT212 

072414 

EMT275 

073276 

EHS176 

101752 

EMS50 

076416 

EMT131 

071532 

EMT213 

072430 

EMT276 

073310 

EMS177 

102001 

EMS51 

076445 

EMT132 

071544 

EMT214 

072440 

EMT277 

073324 

EHS2 

074633 

EMS52 

076473 

EMT133 

071556 

EMT215 

072460 

cMT3 

070124 

EHS20 

075370 

EMS53 

076505 

EMT134 

071570 

EMT216 

072472 

EMT30 

070346 

EHS200 

102023 

EMS54 

076517 

EMT135 

071602 

EMT217 

072502 

EMT300 

073342 

EMS201 

102040 

EMS55 

076541 

EMT 136 

071614 

EMT22 

070266 

EMT301 

073362 

EMS2Q2 

102106 

EMS56 

076570 

EMT137 

071626 

EMT220 

072512 

EMT302 

073404 

EMS203 

102136 

EMS57 

076645 

EMT14 

070212 

EMT221 

072522 

EMT303 

073416 

EMS204 

102151 

EMS6 

075006 

EMT140 

071636 

EMT222 

072532 

EM T 304 

073430 

EMS205 

102177 

EMS60 

076673 

EMT141 

071646 

EMT223 

072542 

EMT305 

073442 

EMS206 

102211 

EMS61 

076706 

EMT142 

071656 

EMT224 

072552 

EMT306 

073454 

EMS207 

102236 

EMS62 

076735 

EMT 143 

071666 

EMT225 

072566 

EMT307 

073464 

EMS21 

075413 

EMS63 

076753 

EMT144 

071676 

EMT226 

072606 

EMT31 

070356 

EMS210 

102263 

EMS64 

077001 

EMT145 

071706 

EMT227 

072616 

EMT310 

073504 

EMS211 

102274 

EMS65 

077017 

EMT146 

071716 

EMT23 

070276 

EMT311 

073516 

EMS212 

102312 

EMS66 

077065 

EMT147 

071726 

EMT230 

072632 

EMT312 

073530 

EMS2 * 3 

102335 

EMS67 

077135 

EMT15 

070220 

EMT231 

072636 

EMT313 

073542 

EMS214 

102360 

EMS7 

075053 

EMT150 

071736 

EMT232 

072A4A 

EMT314 

073562 

EMS215 

102376 

EMS70 

077162 

EMT151 

071746 

EMT233 


EMT315 

073574 

EMS216 

102417 

EMS71 

077174 

EMT152 

071760 

EMT234 


EMT316 

073606 

EMS217 

102447 

EMS72 

077207 

EMT153 

071772 

EMT235 

0726 % 

EMT317 

073620 

EMS22 

075436 

EMS73 

077217 

EMT154 

072010 

EMT236 

072656 

EMT32 

070366 

EMS220 

102502 

EMS74 

077234 

EMT155 

072026 

EMT237 

072660 

EMT320 

073630 

EMS221 

102522 

EMS75 

077253 

EMT156 

072040 

EMT24 

070306 

EMT321 

073640 

EMS222 

102572 

EMS76 

077261 

EMT157 

072052 

EMT240 

072662 

EMT3 22 

073650 

EMS223 

102623 

EMS77 

077312 

EMT16 

070226 

EMT241 

072664 

EMT323 

073656 

EMS224 

102700 

EMTVEC= 

000030 

EMT160 

072064 

EMT242 

072666 

EMT324 

073666 

EMS225 

102752 

EMT1 

070112 

EMT161 

072074 

EMT243 

072670 

EMT325 

073700 

EMS226 

102775 

EMTIO 

070162 

EMT162 

072106 

EMT244 

072672 

EMT326 

073712 

EMS227 

103024 

EMT100 

071166 

EMT163 

072120 

EMT245 

072674 

EMT327 

073730 

EMS23 

075452 

EMT101 

071204 

EMT164 

072130 

EMT246 

072676 

EMT33 

070376 

EMS230 

103035 

EMT102 

071222 

EMT165 

072136 

EMT247 

072706 

EMT330 

073742 

EMS231 

103064 

EMT103 

071232 

EMT166 

072144 

EMT25 

070316 

EMT331 

073752 

EMS232 

103102 

EMT104 

071244 

EMT167 

072152 

EMT250 

072720 

EMT332 

073764 

EMS24 

075500 

EMT105 

071262 

EMT17 

070256 

EMT251 

072734 

EMT333 

073776 

EMS25 

075527 

EMT106 

071272 

EMT170 

072160 

EMT252 

072742 

EMT334 

074014 

EMS26 

075544 

EMT107 

071302 

EMT171 

072172 

EMT253 

072750 

EMT335 

074032 

EMS27 

075565 

EMT11 

070166 

EMT1 72 

072202 

EMT254 

072766 

EMT336 

074052 

EMS3 

074650 

EMT110 

071322 

EMT173 

072212 

EMT255 

072776 

EMT337 

074062 

EMS30 

075576 

EMT111 

071334 

EMT174 

072222 

EMT256 

073006 

EMT34 

070406 

EMS31 

075606 

EMT112 

071342 

EMT175 

072234 

EMT257 

073016 

EMT340 

074072 

EMS32 

075635 

EMT113 

071350 

EMT176 

072242 

EMT26 

070326 

EMT341 

074104 

EMS33 

075664 

EMT114 

071364 

EMT177 

072250 

EMT260 

073030 

EMT342 

074112 

EMS34 

075712 

EMT115 

071364 

EMT2 

070116 

EMT261 

073042 

EMT343 

074124 

EMS35 

075763 

EMT116 

071374 

EMT20 

070246 

EMT262 

073062 

EMT344 

074136 

EMS36 

076012 

EMT117 

071404 

EMT200 

072252 

EMT263 

073072 

EMT345 

074150 

EMS37 

076041 

EMT12 

070172 

EMT201 

072264 

EMT264 

073102 

EMT346 

074160 

EMS4 

074713 

EMT120 

071414 

EMT202 

072276 

EM r 265 

073122 

EMT347 

074174 
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EHT35 

EMT350 

EMT351 

EHT352 

EMT353 

EMT354 

EMT36 

EMT37 

EHT4 

EHT40 

EHT41 

EHT42 

EHT43 

EHT44 

EHT45 

EHT46 

EHT47 

EMT5 

EHT50 

EHT51 

EHT52 

EHT53 

EMT54 

EHT55 

EHT56 

EHT57 

EHT6 

EHT60 

ENT61 

EHT62 

ENT63 

EHT64 

ENT65 

EMT66 

EHT67 

EMT7 

EMT70 

ENT71 

EMT72 

EHT73 

EHT74 

EHT75 

EHT76 

EHT77 

EQUALS 

ERR = 

e mvm 

tr.Ro* = 

ERRTYP 

ERRVEC* 

ERTYOO 

ERTVOI 

ERTY02 

ERTY03 

ERTV04 

ERTY05 

ESRC = 


070416 

074206 

074224 

074234 

074240 

074250 

070426 

070436 

070132 

070446 

070454 

070464 

070476 

070506 

070516 

070526 

070536 

070140 

070544 

070554 

070566 

070604 

070622 

070632 

070644 

070662 

070146 

070672 

070710 

070730 

070744 

070754 

070774 

071014 

071026 

070154 

071040 

071050 

071060 

071076 

071114 

071124 

071144 

071154 



FER = 

FIND = 

FMT16 = 

FNCDTB 

FNCMSK= 

FO = 

FI = 

F2 

F3 

F4 

GET 

GETBUF 

6ETINX 

GETSTS 

GO 

GTSWR = 
HCE = 
HCI = 
HCRC = 
HELP 
HT 

IAE = 
IBSAVE 
IPXMSK= 
IE 

ILF = 
ILF02 = 
ILF 24 = 
ILF 26 = 
ILF30 = 
ILF32 = 
ILF34 = 
ILF36 = 
ILF40 = 
ILF42 = 
ILF44 = 
ILF46 = 
ILF 54 = 
ILF56 = 
ILF64 = 
ILF66 = 
ILF 74 = 
ILF76 = 
ILR = 
ILRG50* 
ILRG52- 
ILR654* 
ILRG5 
ILR 
ILR 
ILR 
ILR 
ILRG 
ILRG72* 
ILR674* 
ILRG76* 
INSERT 


000020 

000001 

010000 

070002 

000077 


001336 

001516 

042462 

000001 

104407 

000200 

002000 


00001 1 
002000 
063354 
000077 
000100 


000024 

000026 

000030 

000032 

000034 

000036 

000040 

000042 

000044 

000046 

000054 

000056 


■>>>.' 

•VVV' 

>W, 


If 



IOTVEC= 
IPCKO - 
IPCK1 = 
IPCK2 = 
IPCK3 = 


000020 

000001 

000002 

000004 

000010 


= 000002 

IR = 00 

m 

0 

= 000004 

IVC = 01 


0 

= 000010 

LBC = OC 

a# 

i 

= 000020 

LBT = OC 

m 

i 

= 000040 

LF = 00 

0® 

i 

042546 

LODEV 06 

715 

2 


LS = 
LSC = 
LST = 
LSTR.K 
MANUAL 
MCLK = 
MCPE = 
MDF = 
MDPE = 
MI 

MINSTR 
MOC = 
MOH = 
MOL = 
MRD = 
MS 

MSC = 
MSDRVS 
MSE = 
MSER = 
MSGDRV 
MSHELP 
MSMNUL 
MSUNIT 
MUR = 
MUD = 
MWP = 
MXF = 
N 

NDTMSK= 
NED = 

NEM = 

NONE 

NOP * 

NOTAVL 

NOTPRS 

norm 

NSA » 
OCC = 
OFD * 
OFFSET* 
ON * 
OPE * 
OPJ = 
OR 

PACACK* 


004000 

000002 

001334 

001330 

004000 

020000 


000004 

067443 

000400 



067070 


000200 

067104 

066536 

067300 

067360 



115760 

010000 

004000 



N 6 


SEO 02b 


PAKACK= 
PAR = 
PAT = 
PDA = 
PFECH 
PFECH1 
PFECH2 
PF ECH3 
PFECH4 
PGE = 
PGM = 
PHA = 
PIP = 
PIRO = 
PIRQVE= 
PLFS = 
PRIERR 
PRO = 
PR1 = 
PR2 = 
PR3 = 
PR4 = 
PR5 = 
PR6 = 
PR 7 = 

PS = 
PSEL = 
PSW = 
PULL 
PUT 

PUTBUF 

PUTINX 

PURVEC* 

QUES 

RCLSTS 

RD 

RDCHR * 
RDLIN * 
RDOCT = 
RDY = 
READY 
RE CAL * 
RESREG* 
RESVEC* 
RET 

REX * 
RG * 
RH * 
RIP = 
RLEASE* 


000022 

000010 

000020 

000400 

064244 

064254 

064342 

064360 

064366 

002000 

001000 

000200 

020000 

177772 

000240 

002000 

043564 

000000 

000040 

000100 

000140 

000200 

000240 

000300 

000340 

177776 

002000 

177776 

067655 

043016 

001412 

001545 

000024 

066527 

054260 

000070 

104411 

104412 

104413 

000200 

007574 

000006 

104415 

KH8 

OIOOOO 

040000 



l 001462 


nMBAI 

RMBAO 

RMCS1 = 

RMCS1I 

RMCS10 

RMCS2 = 

RMCS2I 

RMCS20 

1MCS3 = 

RMCS3I 

RMCS30 

RMDA = 

RMDAI 

RMDAO 

PMDB = 

RMDBI 

RMDBO 

RMDC = 

RMDCI 

RMDCO 

RMDS = 

RMDSI 

RMDSO 

RMDT = 

PMDT! 

RMDTO 

RMEC1 = 

RMEC1I 

RMEC10 

RMEC2 = 

RMEC2I 

RNEC20 

RMER1 = 

RMER1I 

RMER10 

RNEK2 = 

RNER2I 

RNER20 

RMHR = 

RNHRI 

RMHRO 

RNLA = 

RMLAI 

RMLAO 

RMHR1 = 

RMNRli 

RNHRI 0 

RMHR2 = 

RMHR 2 I 

RHHR20 

RHOF = 

RHOFI 

RHOFO 

RMR = 

rnsn = 

RHSNI 

RMSMO 


001342 
001416 
000000 
001336 
001412 
000010 
001346 
001422 
000052 
001410 
001464 
000006 
001344 
001420 
000022 
001360 
001434 
000034 
001372 
001446 
000012 
001350 
001424 
000026 
001364 
001440 
000044 
001402 
001456 
000046 
001404 
001 46C 
000014 
001352 
001426 
000042 
001400 
001454 
000036 
001374 
001450 
000020 
001356 
001432 
000024 
001362 
001436 
000040 
001376 
001452 
000032 
001370 
001444 

001442 




SEQ 0285 


B 1 


CZRNDAO RM8G FCTNL PT 1 
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PAGE 58-5 





SYMBOL TABLE 









RMUC = 000002 

SU02 = 000004 

TST24 


017772 

UC = 

000040 

SEOSP 

041256 

RMWC1 001 340 

SUj3 = 000010 

TST25 


020364 

UCD = 

000050 

SERFLG 

001117 

RMUCO 001414 

SW04 =• 000020 

TST26 


021054 

UCE = 

040000 

SERMAX 

001131 

RQA = 100000 

SW05 = 000040 

TST27 


021422 

UCEHJ = 

010000 

(ERROR 

062762 

RQB = 040000 

SW06 = 000100 

TST3 


010532 

UCELO = 

004000 

JERRPC 

001132 

RTC = 000016 

SW07 = 000200 

TST30 


021744 

WCF = 

000040 

SERRTB 

001574 

R6 =1000006 

SW08 = 000400 

TST31 


022326 

UCH = 

000052 

SERTTL 

001126 

R 7 =1000007 

SW09 = 001000 

TST32 


022644 

UD = 

000060 

SESCAP 

0C1210 

SADMSK= 000377 

SW1 = 000002 

TST33 


023430 

UH = 

000062 

SETABL 

001242 

SAVREG= 104414 

SW10 = 002000 

TST34 


024154 

ULE = 

004000 

SETEND 

001326 

SA1 = 000001 

sun = 004000 

TST35 


024744 

URL = 

004000 

(FATAL 

001224 

SA16 = 000020 

SU12 = OICOOO 

TST36 


025530 

XSIZ 

006356 

(FFLG 

066516 

SA2 = 000002 

SU13 = 020000 

TST37 


026062 

XXDP 

001332 

$ C ILLC 

001172 

SA4 = 000004 

SU14 = 040000 

TST4 


011402 

V 

067773 

(FILLS 

001171 

SA8 = 000010 

SU15 = 100000 

TST40 


026522 

(APTHD 

001100 

(GDADR 

001134 

SC = 100000 

SU2 = 000004 

TST41 


026742 

JATYC 

066276 

SGDDAT 

001140 

SCHSTS 055624 

SW3 = 000010 

TST42 


027300 

SATY1 

066252 

(GET42 

041502 

SCOPE = 000004 

SU4 = 000020 

TST43 


027572 

(ATY3 

066260 

(GTSWR 

064772 

SCTMSK= 003700 

SU5 = 000040 

TST44 


030064 

JATY4 

066270 

(GT42P 

041476 

SCO = 000100 

SU6 = 000100 

TST45 


030376 

SAUTOB 

001150 

(HD = 

000000 

SCI - 000200 

SW7 = 000200 

TST46 


030704 

(BASE 

001276 

(hIBTS 

001100 

SC2 = C 00400 

SU8 = 000400 

TST47 


031172 

(8DADR 

001136 

(HIOCT 

065764 

SC3 = 00’ 000 

SW9 = 001000 

TST5 


011740 

(8DDAT 

001142 

(ICNT 

001120 

SC4 = 002000 

SYSTAT 067112 

TST50 


031474 

(BELL 

001212 

(ILLUP 

066234 

SEARCH= 000030 

TADMSK= 177400 

TST51 


032000 

$81 N 

061062 

SINTAG 

001151 

SECERR 044416 

TAG = 020000 

TST52 


032416 

SCDUl 

001302 

SITEMB 

001130 

SEEK = 000004 

TAGADR= 001114 

TST53 


033014 

SCDU2 

001304 

(LF 

001220 

SEKSTS 051206 

TAP = 040000 

TST54 


033406 

SCHARC 

062066 

SLFLG 

066515 

SHUT 065642 

TA1 = 000400 

TST55 


033746 

SCKSUR 

064702 

SLPADR 

001122 

SIZCLK 043246 

TA2 = 001000 

TST56 


034310 

SCMTAG 

001114 

(LPERR 

001124 

SKI = 040000 

TA4 = 002000 

TST57 


034634 

SC M3 = 

000000 

(MAORI 

001254 

SSE = 000040 

TA8 = 004000 

TST6 


012146 

SCM4 = 

000005 

SMADR2 

001260 

SSEI = 001000 

TBITVE= 000014 

TSToO 


035354 

SCNTLC 

065600 

(MADR3 

001264 

SSF = 020000 

TIMOUT 043370 

TST61 


035776 

SCNTLG 

065612 

SMADR4 

001270 

STACK = 001100 

TKVEC = 000060 

TST62 


036440 

SCNTLU 

065605 

(MAIL 

001222 

STANDA 006646 

TPVEC = 000064 

TST63 


037040 

$CPUOP 

001250 

(MANSI 

001252 

STAR.' 005426 

TRAPVE= 000034 

TST64 


037420 

SCRLF 

001217 

(MAMS2 

001256 

START1 005416 

TRE = 040000 

TST65 


037774 

SDBLK 

061300 

(MAMS 3 

001262 

START2 005432 

TRTVEC= 000014 

TST66 


040354 

$DDUO 

001306 

(MAMS 4 

001266 

STCDRV 060210 

TST = 010000 

TST67 


040720 

$DDU1 

001310 

(MBADR 

001102 

STIMER 043532 

TSTNNB 064172 

TS T 7 


012462 

SDDU2 

001312 

(MFLG 

066514 

STKLMT= 177774 

TSTPRP 041532 

TYP8N 

z 

104406 

SDDU3 

001314 

(MNEW 

065630 

STOP 062734 

TSTOUE 001466 

TYPDS 

z 

104405 

SDDU4 

001316 

IMS GAD 

001236 

STSDl 104262 

TST1 007736 

TYPE 

z 

104401 

SDDU5 

001320 

(MSGLG 

001240 

STSD2 104300 

TST10 012642 

TYPOC 

z 

104402 

SDDU6 

001322 

(MSGTY 

001222 

STSD3 104320 

TST11 013714 

TYPON 

z 

104404 

(DDW7 

001324 

(MSUR 

065617 

STSD4 104332 

7ST12 014214 

TYPOS 

z 

104403 

SDEVCT 

001232 

(MTYP1 

001253 

STSF 104363 

TST13 014424 

UNS 

z 

040000 

SDEVM 

001300 

(MTYP2 

001257 

STSH1 103725 

TST14 014732 

UNTMSK 

'z 

000007 

(DOAGN 

041522 

(MTYP3 

001263 

STSH2 104002 

TST15 015242 

UNTOFF 


067223 

SDTBL 

061270 

(MTYP4 

001267 

STSH3 104071 

TST16 01550/ 

UNTON 


067234 

(ENDAD 

041512 

(MXCNT 

062554 

STSH4 104127 

TST17 015762 

UPE 

z 

020000 

ScNDCT 

041350 

(NULL 

001170 

SWR 001154 

TST2 010136 

USE 

z 

040000 

SENULL 

041526 

(NWTST= 

OOOOC1 

SWREG 0001 76 

TST20 016232 

UO 

z 

000001 

SENV 

001242 

(OCNT 

061532 

SUO = 000001 

TST21 016462 

ui 

z 

000002 

(ENVM 

001243 

(OMODE 

061534 

SWOO = 000001 

TST 22 017006 

U2 

z 

000004 

SEOP 

041314 

(OVER 

062540 

SW01 = 000002 

TST23 017426 

VV 

= 

000100 

SEOPCT 

041342 

(PASS 

001230 




C 7 


SEQ 0286 


STPS 001164 
STRAP 065766 
STRAP2 066026 
STRP = 000016 
STRPAD 066040 
STSTM 001104 
JTSTNH 001116 
JTTYIN 065570 
JTYP8N 061010 
STYPDS 061064 
STYPE 061536 
STYPEC 061750 
STYPEX 062070 
STYPOC 061334 


STYPON 061350 
STYPOS 061310 
SUNIT 001234 
JUNITM 001110 
SUSWR 001246 
SVECT1 001272 
SVECT2 001274 
$X0FF = 000023 
$XON = 000021 
JXTSTR 062114 
$S6ET4= 000000 
$SSU08= 000070 
SOFILL 061533 
.SX = 001100 



D 


7 
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SSGET4 

14-20 

14-20# 





JSSW08 

39-1 

39-1 

39-1 

39-1 

39-1 

39-1 


39-1 

39-1 

39-1 

39-1 

39-1 

39-1 


39-1 

39-1 

39-1 

39-1 

39-1 

39-1 


39-1 

39-1 

39-1 

39-1 

39-1 

39-1 


39-1 

39-1 

39-1 

39-1 

39-1 

39-1 


39-1 

39-1 

39-1 

39-1 

39-1 

39-1 


39-1 

39-1 

39-1 

39-1 

39-1 

39-1 


39-1 

39-1 

39-1 

39-1 

39-1 

39-1 


39-1# 

39-1# 

39-1# 

39-1# 

39-1# 

39-1# 


39-1# 

39-1# 

39-1# 

39-1# 

39-1# 

39-1# 


39-1# 

39-1# 

39-1# 

39-1# 

39-1# 

39-1# 


39-1# 

39-1# 

39-1# 

39-1# 

39-1# 

39-1# 

$0F ILL 

37-1 

37-1# 

37-1* 

37-1* 



J40CAT 

39-1 

40-1 





SAPTHD 

5-8 

5-8# 





IAS TAT 

46-1 

46-1 





fATYl 

46-1# 






SATY3 

38-1 

46-1# 





SATY4 

40-1 

46-1# 





IATYC 

46-1 

46-1# 





SAUT06 

6-0# 

10-29* 

42-1 

42-1 

42-1 


(BASE 

6-0# 

10-75 

11-33 

11-42* 

12-52 

13-2 


13-473 

13-490 

13-514 

13-536 

13-561 

13-583 


13-915 

13-959 

13-988 

13—: 54 

13-.-21 

13-;87 


13-739 

13-767 

13-801 

13-835 

13-884 

13-A28 


13-E51 

13-E91 

13-F30 

13-F69 

17-36 

18-30 

S60AOR 

6-0# 

56-8 





I800AT 

6-0# 

13-141* 

13-142* 

13-144 

13-149* 

13-153* 


13-186* 

13-190* 

13-191* 

13-193 

13-198* 

13-199* 


13-296* 

13-302* 

13-309* 

13-318* 

13-323* 

13-357* 


13-386* 

13-387* 

13-397* 

13-402* 

13-403* 

13-408* 


13-433* 

13-442* 

13-444* 

13-644* 

13-645* 

13-650* 


13-726* 

13-743* 

13-744* 

13-756* 

13-757* 

13-898* 


13-972* 

13-982* 

13-983* 

13— :31* 

1 3— :32* 

13— :33 


13-;11 

13-;64* 

13-.-65* 

13-;66 

13—; 75* 

13-;76* 


13— =52* 

13-=82* 

13-=83* 

13-=84 

13-A95* 

13-A96* 


21-48* 

21-51 

21-69* 

21-75* 

21-91* 

21-108* 


22-67 

22-85* 

22-86* 

22-87 

22-107* 

22-108* 


22-171* 

22-183* 

22-184* 

22-200* 

22-201* 

22-226* 


22-285* 

22-314* 

22-315* 

22-329* 

22-330* 

22-344* 


22-418* 

22-432* 

22-433* 

22-460* 

22-461* 

22-483* 


23-96* 

23-102 

23-110 

23-126* 

23-127* 

23-128 


24-54* 

26-37* 

26-71* 

26-72* 

26-73 

26-93* 


26-188* 

26-201* 

26-217* 

28-29* 

28-30* 

28-32 


28-92* 

28-101* 

28-102* 

28-104 

28-114* 

28-115* 


29-99* 

29-113* 

30-35* 

30-49* 

30-65* 

30-82* 


30-240* 

30-254* 

30-270* 

31-16* 

31-17* 

31-19 


31-70* 

31-72 

31-81* 

31-82* 

31-84 

31-94* 


32-138 

32-158* 

32-175* 

32-191* 

32-214* 

32-232* 


56-6 

56-8 

56-10 

56-11 



WELL 

6-0# 

40-1 

40-1 

40-1 

42-1 

42-1 

SBIN 

35-1 

35-1# 

35-1* 

35-1* 



scowl 

6-0# 






SCDU2 

6-0# 






SC H ARC 

38-1 

38-1# 

38-1* 

38-1* 

38-1* 








SEQ 0287 

39-1 

39-1 

39-1 

39-1 

39-1 

39-1 

39-1 

39-1 

39-1 

39-1 

39-1 

39-1 

39-1 

39-1 

39-1 

39-1 

39-1 

39-1 

39-1 

39-1 

39-1 

39-1 

39-1 

39-1 

39-1 

39-1 

39-1 

39-1 

39-1 

39-1 

J9- 1 

39-1 

39-1 

39-1 

39-1 

39-1 

39-1 

59-1 

39-1 

39-1 

39-1 

39-1 

39-1 

39-1 

39-1 

39-1 

39-1 

39-1 

39-1 

39-1 

39-1 

39-1 

39-1 

39-1 

39-1# 

39-1# 

39-1# 

39-1# 

39-1# 

39-1# 

39-1# 

39-1# 

39-1# 

39-1# 

39-1# 

39-1# 

39-1# 

39-1# 

39-1# 

39-1# 

39-1# 

39-1# 

39-1# 

39-1# 

39-1# 

39-1# 

39-1# 

39-1# 

39-1# 

39-1# 

39-1# 

39-1# 

13-105 

13-210 

13-252 

13-277 

13-328 

13-346 

13-448 

13-631 

13-662 

13-698 

13-733 

13-765 

13-830 

13-884 

13— <95 

1 3-=27 

13-=60 

13— >1 1 

13— >41 

13— >71 

13-705 

13-804 

25-23 

13-841 

27-15 

13-877 

41-25 

13-C70 

56-2 

13—014 

13-D65 

13-E10 

13-163* 

13-164* 

13-168* 

13-174* 

13-178* 

13-179* 

13-181 

13-203* 

13-205 

13-264* 

13-266* 

13-270* 

13-271* 

13-290* 

13-363* 

13-368* 

13-369* 

13-374* 

13-375* 

13-380* 

13-381* 

13-414* 

13-415* 

13-420* 

13-421* 

13-426* 

13-427* 

13-432* 

13-673* 

13-674* 

13-686* 

13-687* 

13-708* 

13-709* 

13-725* 

13-903* 

13-904* 

13-936* 

13-937* 

13-943* 

13-948* 

13-971* 

13— ; 43* 

13-:44 

13— :98* 

13-:99* 

1 3—; 00 

13-;09* 

13-;10* 

13— <30* 

1 3— <31 * 

13— <32 

13— <41 * 

1 3— <42* 

l3-<43 

13-=23* 

13-825* 

13-C49* 

13-F21* 

13-F22* 

13-F52* 

13— F 53* 

21-47* 

21-152* 

22-40* 

22-41* 

22-53* 

22-54* 

22-64* 

22-65* 

22-140* 

22-141* 

22-142 

22-156* 

22-157* 

22-158 

22-170* 

22-241* 

22-242* 

22-256* 

22-257* 

22-271* 

22-272* 

22-284* 

22-361* 

22-362* 

22-387* 

22-388* 

22-402* 

22-403* 

22-417* 

22-498* 

22-499* 

22-520* 

22-521* 

23-10* 

23-34* 

23-95* 

23-155* 

23-156 

23-171* 

23-172 

23-184* 

23-185 

24-39* 

26-105* 

26-111 

26-122 

26-135* 

26-148* 

26-173* 

26-187* 

28-51* 

28-59 

28-69* 

28-70* 

28-79* 

28-80* 

28-82 

28-125* 

28-127 

29-27* 

29-41* 

29-57* 

29-71* 

29-85* 

30-120* 

30-134* 

30-159* 

30-174* 

30-189* 

30-205* 

30-222* 

31-29* 

31-31 

31-41* 

31-50* 

31-57* 

31-60 

31-69* 

32-58* 

32-76* 

32-112* 

32-113* 

32-114 

32-134* 

32-135* 

32- 262* 

33-46* 

33-62* 

33-78* 

33-98* 

33-112* 

56-1 


-1 



13-33 
13-613 
1 3— <53 
13-A70 

20-12 

13-158 
13-202 
13-362 
13-409 
13-651 
13-899 
13-:42 
13 -;77 
13-824 

21- 124 

22- 109 

m 

22- 484 

23- 154 
26-104 
28-42* 
28-124 

30- 103 

31- 28* 

31- 103 

32- 248 


42-1 
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SEQ 0288 


SCKSWR 

42-1# 

44-1 

44-1 












SCH3 

6-0 

6-0# 













SCN4 

6-0 

6-0 

6-0 

6-0 

6-0 

6-0 

6-0 

6-0 

6-0 

6-0 

6-0# 

6-0# 

6-0# 

6-OJ 


6-0# 

6-0# 













SCMTAG 

6-0# 

10-24 

10-24 

10-24 

10-24 

10-24 

10-24 

10-24 







SCNTLC 

42-1 

42-1 

42-1 

42-1 

42-1# 










SCNTLG 

42-1 

42-1# 













SCNTLU 

42-1 

42-1 

42-1# 












SCPUOP 

6-0# 














SCRLF 

6-0# 

10-49 

10-80 

10-129 

11-20 

11-28 

11-79 

11-117 

12-25 

12-58 

13-46 

13-52 

13-97 

14-20 


38-1 

38-1 

38-1 

40-1 

40-1 

40-1 

41-20 

41-53 

41-96 

41-106 

41-118 

41-126 

41-146 

42-1 


42-1 

42-1 

42-1 












S061K 

36-1 

36-1 

36-1# 












SO DUO 

6-0# 














SDDW1 

6-0# 














S00W2 

6-0# 














S00W3 

6-0# 














SDDU4 

6-0# 














SDDW5 

6-0# 














SDDW6 

6-0# 














SOCHI? 

6-0# 














SOEVCT 

6-0# 














SDEVW 

6-0# 

10-67* 

10-78 

10-106* 

10-110* 

11-80* 

11-87* 

11-114* 

11-115 

12-4 

12-38 

13-29* 

42-6* 


SOOAGN 

14-20 

14-20 

14-20# 












SDTBL 

36-1 

36-1# 













SEND AO 

5-5 

10-29 

14-20# 

40-1 











SEKDCT 

10-24 

14-20# 













SENULL 

14-20# 














SENV 

6-0# 

10-29 

38-1 

40^1 

46-1 

46-1 









SENVH 

6-0# 

10-24 

10-71 

38-1 

38-1 

46-1 









SEOP 

14-20# 

42-7 













SEOPCT 

10-24* 

14-20 

14-20# 












SEOSP 

13-312 

14-9# 













SERFLG 

6-0# 

39-1 

39-1 

39-1 

39-1 

39-1 

39-1* 

40-1 

40-1 

40-1* 





SERflAX 

6-0# 

10-24* 

39-1 

39-1 

39-1 

39-1* 









SERROR 

10-24 

40-1# 













SERRPC 

6-0# 

40-1 

40-1 

40-1 

40-1* 

40-1* 

41-46 








SERRTB 

8-0# 

41-64 













SERTTL 

6-0# 

14-20 

14-20 

14-20* 

40-1 

40-1 

40-1* 








SESCAP 

6-0# 

10-24* 

39-1* 

40-1 

40-1 

40-1 

40-1 








SETABL 

6-0# 














SET END 

5-8 

6-0# 













SFATAL 

6-0# 

46-1* 













SFFLG 

46-1 

46-1# 

46-1* 

46-1* 

46-1* 










SFILLC 

6-0# 

38-1 

38-1 

38-1 











SF ILLS 

6-0# 

38-1 

38-1 












SGDADR 

6-0# 

56-8 













SGOOAT 

6-0# 

13-143* 

13-144 

13-148* 

13-157* 

13-158 

13-162* 

13-180* 

13-181 

13-185* 

13-192* 

13-193 

13-197* 

13-204* 


13-205 

13-265* 

13-287* 

13-288* 

13-289* 

13-297* 

13-303* 

13-310* 

13-316* 

13-317* 

13-324* 

13-356* 

13-364* 

13-370* 


13-376* 

13-382* 

13-388* 

13-396* 

13-404* 

13-410* 

13-416* 

13-422* 

13-428* 

13-434* 

13-443* 

13-646* 

13-652* 

13-672* 


13-688* 

13-710* 

13-727* 

13-745* 

13-755* 

13-897* 

13-905* 

13-939* 

13-944* 

13-949* 

13-973* 

13-984* 

1 3— : 29* 

1 3- : 30* 


13-:33 

13-:37* 

1 3- : 40* 

1 3— : 4 1 * 

13-.-44 

13— :96* 

1 3— :97* 

13-.-00 

1 3— ;04* 

13-;Q7* 

1’-;08* 

1 3—; 1 1 

1 3— ;62* 

13-;63* 


13-;66 

13-;70* 

1 3—; 73* 

13—; 74* 

13—; 77 

13— <28* 

1 3— <29* 

13— <32 

13— <36* 

1 3— <39* 

13- <40* 

1 3— <43 

1 3— =22* 

1 3— =51 * 


1 3-=81 * 

1 3-=84 

13-A94* 

13-626* 

13-C48* 

13-F20* 

13-F51* 

21-49* 

21-50* 

21-51 

21-67* 

21-68* 

21-74* 

21-76* 


21-88* 

21-89* 

21-90* 

21-106* 

21-107* 

21-122* 

21-123* 

21-150* 

21-151* 

22-42* 

22-55* 

22-66* 

22-67 

22-79* 


22-84* 

22-87 

22-98* 

22-106* 

22-109 

22-135* 

22-138* 

22-139* 

22-142 

22-154* 

22-155* 

22-158 

22-165* 

23-16* 
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CZRNDAO RM30 FCTNL PT1 MACRO V04.00 28-JAN-82 16:24:51 PAGE S-3 
CROSS REFERENCE TABLE (CREF V04.00 ) 


f ? 


SGET42 

SGT42P 

SGTSUR 

IHD 

SH1BTS 

SHIOCT 

SICNT 

tlUUP 

SINTAG 

IITEHB 

SLF 

SLFLG 

SLPADR 

SLPERR 

MAORI 

MAOR2 

MAOR3 

MADR4 

MAIL 


MAflSI 

MAMS2 

MAMS3 

MAMS4 

MBADR 

MFLG 

smew 

MSGAO 

MSGLG 

MSGTY 

MSUR 

MTYP1 

MTYP2 

MTYP3 

MTYP4 

MXCNT 

MULL 

SNWTST 


23-23* 

23-24* 

23-25* 

23-156 

23-168* 

23-169* 

26-92* 

26-106* 

26-107* 

28-41* 

28-57* 

28-59 

29-39* 

29-40* 

29-58* 

30-47* 

30-48* 

30-63* 

30-173* 

30-175* 

30-187* 

31-18* 

31-19 

31-30* 

32-89* 

32-109* 

32-114 

32-213* 

32-230* 

32-231* 

33-110* 

33-111* 

56-1 

12-34 

12-43 

13-30 

14-20 

14-20# 


42-1# 

44-1 

44-1 

4-475 

4-475 

4-475 


5- 8# 
43-1# 

6 - 0 # 

45- 1 
6 - 0 # 
6 - 0 # 
6 - 0 # 

46- 1# 
6 - 0 # 
6 - 0 # 
6 - 0 # 
6 - 0 # 
6 - 0 # 
6 - 0 # 

5- 8 

13-473 

13-915 

13-739 

13-E51 

6 - 0 # 
6 - 0 # 
6 - 0 # 
6 - 0 # 

5- 8# 
46-1 
42-1 

6 - 0 # 
6 - 0 # 
6 - 0 # 

42-1 

6 - 0 # 

6 - 0 # 

6 - 0 # 

6 - 0 # 

39-1 

6 - 0 # 

13-2 

13-252# 

13-473# 

13-583 

13-698# 


43-1* 

39- 1 

45- 1 
42-1 

40- 1 
38-1 

46- 1* 
10-24* 
10-24* 


5-8 

13-490 

13-959 

13-767 

13-E91 


46-1# 

42-1# 

46-1 

46-1* 

46-1 

42-1# 


39-1 

38-1 

13-2# 

13-277 

13-473# 

13-583# 

13-733 


23-26* 

23-170* 

26-134* 

28-68* 

29- 59* 

30- 64* 

30- 188* 

31- 31 

32- 136* 
32-246* 
56-6 
14-20# 


23-30* 

23-172 

26-147* 

28-81* 

29- 72* 

30- 80* 

30- 203* 

31- 40* 

32- 137* 
32-247* 
56-8 


23-32 

23-182* 

26-171* 

28-82 

29- 73* 

30- 81* 

30- 204* 

31- 71* 

32- 138 
32-260* 
56-10 


23-94* 

23-183* 

26-172* 

28- 91* 

29- 86* 

30- 101* 

30- 220* 

31- 72 

32- 142 
32-261* 
56-11 


6 - 0 # 

13-514 

13-988 

13-B01 

13-F30 


46-1* 

46-1* 

46-1 


39-1 

38-1 

13-2# 

13-277# 

13-490 

13-583# 

13-733# 


10-24 
13-536 
13-:54 
1 3-835 
13-F69 


46-1* 


10-29 
13-561 
13—; 21 
13-884 
38-1 


13-2 
13-583 
1 3— ;87 
13-A28 
39-1 


13-33 
13-613 
1 3— <53 
13-A70 
40-1 


46-1* 46-1* 


39-1# 

38-1 

13-33 

13-277# 

13-490# 

13-613 

13-733# 


13-33# 

13-328 

13-490# 

13-613# 

13-765 


13-33# 

13-328# 

13-514 

13-613# 

13-765# 


23-109* 

23-110 

23-120* 

23- 

125* 

23- 

128 

23-138* 

23-151* 

23-185 

24-40* 

24-55* 

26- 

■36* 

26- 

48* 

26-68* 

26-73 

26-186* 

26-199* 

26-200* 

26- 

■215* 

26- 

216* 

28-31* 

28-32 

28-103* 

28-104 

28-113* 

28- 

126* 

28- 

127 

29-25* 

29-26* 

29-87* 

29-100* 

29-101* 

29-114* 

29- 

1(5* 

30-33* 

30-74* 

30-102* 

30-118* 

30-119* 

30- 

■132* 

30- 

■133* 

30-157* 

30-158* 

30-221* 

30-238* 

30-239* 

30- 

■252* 

30- 

•253* 

30-268* 

30-269* 

31-83* 

31-84 

31-92* 

32- 

■56* 

32- 

■57* 

32-74* 

32-75* 

32-156* 

32-157* 

32-173* 

32- 

■174* 

32- 

■189* 

32-190* 

32-212* 

33-44* 

33-45* 

33-60* 

33- 

■76* 

33- 

■77* 

33-96* 

33-97* 


39-1 

39-1 

39-1* 

39-1* 



45-1# 






42-1 

42-1 

42-1 

42-1* 


40-1* 

40-1 

40-1 

40-1 

40-1 

40-1* 

38-1 

40-1 

40-1 

42-1 

42-1 

42-1 

39-1 

39-1 

39-1 

39-1* 

39-1* 

39-1* 

13-38* 

39-1 

39-1 

39-1 

39-1* 

40-1 


13-105 
13-631 
1 3— <95 
13-804 


13-105 

13-328# 

13-514# 

13-631 

13-765# 


41-41 


13-210 

13-662 

13-=27 

13-841 


13-105# 

13-346 

13-514# 

13-631# 

13-830 


13-252 

13-698 

13-=60 

13-877 


13-105# 

13-346# 

13-536 

13-631# 

13-830# 


13-277 
13-733 
1 3— >1 1 
13-C70 


13-210 

13-346# 

13-536# 

13-662 

13-830# 


13-328 
13-765 
1 3— >41 
13-D14 


13-210# 

13-448 

13-536# 

13-662# 

13-884 


13-346 
13-830 
1 3— >71 
13-065 


13-210# 

13-448# 

13-561 

13-662# 

13-884# 


13-448 
13-884 
13-705 
13-El 0 


13-252 

13-448# 

13-561# 

13-898 

13-884# 


13-252# 

13-473 

13-561# 

13-698# 

13-915 
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13-915# 

13-915# 

13-959 

13-959# 

13-959# 

13-988 


13-;87 

13-;87# 

13*; 87# 

13-<53 

13-<53# 

1 3— <53# 


l3-=60# 

1 3->1 1 

13->11# 

13— >1 1# 

13->41 

13->41# 


13-739# 

13-739# 

13-767 

13-767# 

13-767# 

13-801 


13-A28 

13-A28# 

13-A28# 

13-A70 

13-A70# 

13-A70# 


13-677# 

13-C70 

13-C70# 

13-C70# 

13-D14 

13-D14# 


13-E51# 

13-E51# 

13-E91 

13-E91# 

13-E91# 

13-F30 

(OCNT 

37-1# 

37-1* 

37-1* 




sohooe 

37-1 

37-1# 

37-1* 

37-1* 

37-1* 

37-1* 

(OVER 

39-1 

39-1 

39-1 

39-1 

39-1# 


SPASS 

6-0# 

10-24* 

14-20 

14-20 

14-20 

14-20* 

(PASTN 

5-8# 






(POWER 

45-1 

45-1# 





(PWRDN 

10-24 

45-1 

45*1# 




(PWRNG 

45-1# 






(PWRUP 

45-1 

45-1# 





(QUES 

6-0# 

38-1 

38-1 

40-1 

40-1 

42-1 

(R2A 

44-1 






SROCHR 

42-1# 

44-1 

44-1 




(RDDEC 

44-1 






(RDLIN 

42-1# 

44-1 

44-1 




IP DOC T 

43-1# 

44-1 

44-1 




SROSZ 

42-1 

42-1# 





(RESRE 

34-1# 

44-1 





SRM80 

10-91 

41-28 

47-19# 




SRTNAD 

14-20# 






SSAVR6 

45-1 

45-1# 

45-1* 

45-1* 

45-1* 


(SAVRE 

34-1# 

44-1 

44-1 




(SCOPE 

10-24 

39-1# 





(SETUP 

4-769 

4-769 

*.-769 

4-769 

4-769 

4-769 


10-24 

10-24 

10-24 

10-24 

10-24 

10-24 


14-20 

14-20 

39-1 

40-1 

40-1 

40-1 

(STUP 

4-769 

4-769 

4-769 

4-769 

4-769 

4-769 


4-769# 

4-769# 

4-769# 

4-769# 



(SVLAO 

39-1 

39-1# 





(SVPC 

5-5 

5-5# 





(SU08T 

39-1 

39-1# 





(SUR 

4-464# 

4-475 

4-476 

4-476 

4-476 

4-476 


10-24 

10-24 

10-24 

10-24 

13-2 , 

13-33 


13-490 

13-514 

13-536 

13-561 

13-583 

13-613 


13-959 

13-988 

1 3— : 54 

13**;21 

13— ;87 

13— <53 


13-767 

13-801 

13-835 

13-884 

13-A28 

13-A70 


13-E91 

13-F30 

13-F69 

14-20 

14-20 

14-20 


39-1 

39-1 

39-1 

39-1 

39-1 

39-1 


40-1 

40-1 

40-1 

40-1 

40-1 

40-1 

(SWREG 

6-0# 

10-24 





(SURNK 

4-476 

4-476 

4-476 

4-476 

4-476 

4-476 


39-1 

39-1 

39-1 

39-1 

39-1 


(1ESTN 

fr-OM 

13-2* 

13-33* 

13-105* 

13-210* 

13-252* 


13-561* 

13-583* 

13-613* 

13-631* 

13-662* 

13-698* 


13-;21* 

13-;87* 

1 3— <53* 

13-<95* 

13-=27* 

13- =60* 


13-884* 

13-A28* 

13-A70* 

13-B04* 

13-841* 

13-877* 


39-1* 

41-37 





(TINES 

6-0# 

10-24* 

12-46* 

13-33* 

13-105* 

13-490* 


14-20* 

39-1 

39-1 

39-1 

39-1* 

39-1* 

STKB 

6 - 0 # 

38-1 

38-1 

42-1 

42-1 

42-1 


■4 


G 7 


SEO 0290 


13-988# 13-988# 
1 3-<95 13-<95# 

1 3— >41 # 1 3— >71 
13-801# 13-801# 


13-B04 

13-D14# 

13-F30# 


13-B04# 

13-065 

13-F30# 


13-.-54 

1 3— <95# 

13->7i# 

13-83S 

13-804# 

13-065# 

13-F69 


13-:54# 

13-=27 

13->71# 

13-835# 

13-641 

13-D65# 

13-F69# 


l3-:54# 

1 3— *27# 

13-705 

13-835# 

13-641# 

13-E10 

13-F69# 


13-;21 
1 3— *27# 


13-;21# 

13-*60 


13-705# 13-705# 


13-884 

13-641# 

13-E10# 


13-884# 

13-677 

13-E10# 


13-;21# 

13-=60# 

13-739 

13-884# 

13-677# 

13-E51 


14-20* 39-1 


42-1 42-1 


4-769# 4-769# 

10-24 10-24 

40-1 42-1 

4-769# 4-769# 


4-476 

4-476 

13-105 

13-210 

13‘«31 

13-662 

1 3-<95 

13-=27 

13-804 

13-641 

14-20 

14-20 

39-1 

39-1 

40-1 

40-1 

4-476 

4-476 

13-277* 

13 - 325 * 

13-733* 

13-765* 

1 3->1 1 * 

13— >41 * 

13-C70* 

13-014* 

13-514* 

13-536* 

42-1 

42-1 


39-1 39-1 


42-1 


4-769# 

4-769# 

4-769# 

4-769# 

4-769# 

10-24 

10-24 

10-24 

10-24 

10-29 

10-29 

10-29 

42-1 

42-1 

42-1 

42-1 



4-769# 

4-769# 

4-769# 

4-769# 

4-769# 

4-769# 


4-476 

4-476 

6-0 

6-0 

6-0 

10-24 

13-252 

13-277 

13-328 

13-346 

13-448 

13-473 

13-698 

13-733 

13-765 

13-830 

13-884 

13-915 

1 3-=60 

13— >1 1 

13— >41 

1 3— >71 

13-705 

13-739 

13-877 

13-C70 

13-014 

13-065 

13-El C 

13-E51 

39-1 

39-1 

39-1 

39-1 

39-1 

39-1 

39-1 

39-1 

39-1 

39-1 

39-1 

39*1 

40-1 

40-1 

40-1 

45-1 



4-476 

39-1 

39-1 

39-1 

39-1 

39-1 

13*546* 

13-448* 

13-473* 

13-490* 

13-514* 

13-536* 

13-830* 

13-884* 

13-915* 

13-959* 

13-988* 

13-:54* 

13— >71 * 

1 3-705* 

13-?39* 

13-767* 

13-801* 

13-835* 

13-D65* 

13-E10* 

13-E51* 

13-E91* 

13-F30* 

13-F69* 

13-561* 

13— >1 1 * 

1 3— >41 * 

1 3— >71 * 

13-705* 

13-739* 

42-1 

42-1 
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SEC 0291 
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STKCNT 

42-1 

42-1 

42-1# 

42-1* 

42-1* 

42-1* 









STKINT 

11-4 

12-47 

13-134 

42-1 

42-1 

42-1# 









STKQEN 

42-1 

42-1 

42-1# 


42-1* 

42-1* 

42-1* 








STKOIN 

42-1 

42-1 

42-1# 

42-1* 








STKQOU 

42-1 

42-1 

42-1# 

42-1* 

42-1* 

42-1* 









STKQSR 

42-1 

42-1 

42-1 

42-1# 



42-1 

42-1 

42-1* 






STKS 

6-0# 

38-1 

38-1 

42-1 

42-1 

42-1 

42-1* 

42-1* 

42-1* 

42-1* 

42-1* 

STKSRV 

42-1 

42-1# 




13-80 

1 3— =53* 








STMPO 

6-0# 

56-10 

13-55* 

13-64* 

13-72* 

13-78* 

13-=86* 

17-41* 

18-35* 

25-29* 

25-31 

56-3 

56-6 



STNP1 

6-0# 

11-13* 

11-14 

11-16 

11-36* 

11-38 

11-42 

11-50* 

11-52 

11-56 

11-83* 

11-84 

11-90 

11-92 


11-93 

11-95 

11-100* 

11-101 

1 1- 1 04 

11-105 

11-107 

11-112 

13-56* 

13-57* 

13-65* 

13-66* 

13-70* 

13-71* 


13-73 

13-79* 

13-85 

17-42* 

17-43 

18-36* 

18-37 

24-24* 

24-25* 

24-37 

24-39 

25-28* 

25-37 

56-3 


56-5 

56-10 













STNP2 

6-0# 

24-27* 

24-28* 

24-51 

24-54 

56-5 









STNP3 

6-0# 














STMP4 

6-0# 














STN 

4-465# 

4-475 

13-2 

13-2 

13-2 

13-2# 

13-33 

13-33 

13-33 

13-33# 

13-105 

13-105 

13-105 

13-105# 


13-210 

13-210 

13-210 

13-210# 

13-252 

13-252 

13-252 

13-252# 

13-277 

13-277 

13-277 

13-277# 

13-328 

13-328 


13-328 

13-328# 

13-346 

13-346 

13-346 

13-346# 

13-448 

13-448 

13-448 

13-448# 

13-473 

13-473 

13-473 

13-473# 


13-490 

13-490 

13-490 

13-490# 

13-514 

13-514 

13-514 

13-514# 

13-536 

13-536 

13-536 

13-536# 

13-561 

13-561 


13-561 

13-561# 

13-583 

13-583 

13-583 

13-583# 

13-613 

13-613 

13-613 

13-613# 

13-631 

13-631 

13-631 

13-631# 


13-662 

13-662 

13-662 

13-662# 

13-698 

13-698 

13-698 

13-698# 

13-733 

13-733 

13-733 

13-733# 

13-765 

13-765 


13-765 

13-765# 

13-830 

13-830 

13-830 

13-830# 

13-884 

13-884 

13-884 

13-884# 

13-915 

13-915 

13-915 

13-915# 


13-959 

13-959 

13-959 

13-959# 

13-988 

13-988 

13-988 

13-988# 

13-:54 

1 3- : 54 

1 3— : 54 

1 3— : 54# 

1 3—; 21 

1 3—; 21 


13-;21 

1 3—; 21# 

13 -;87 

13-;87 

13-;87 

13-.-87# 

13-<53 

13-<53 

13-<53 

1 3— <53# 

1 3— <95 

1 3-<95 

1 3-<95 

13-<95# 


1 3— =27 

1 3— =27 

1 3— =27 

13-=27# 

13-=60 

13-=60 

13-=60 

13-=60# 

13— >1 1 

1 3— >1 1 

1 3->1 1 

1 3— >1 1# 

13- >41 

13- >41 


1 3— >41 

1 3— >4 1 # 

13— >71 

13— >71 

1 3— >71 

13— >71# 

13-705 

13-705 

13-705 

13-705# 

13-739 

13-739 

13-739 

13-739# 


13-767 

13-767 

13-767 

13-767# 

13-901 

13-901 

13-801 

13-901# 

13-935 

13-935 

13-935 

13-935# 

13-984 

13-984 


13-984 

13-984# 

13-A28 

13-A28 

13-A28 

13-A28# 

13-A70 

13-A70 

13-A70 

13-A70# 

13-004 

13-004 

13-804 

13-004# 


13-041 

13-041 

13-041 

13-041# 

13-077 

13-077 

13-077 

13-077# 

13-C70 

13-C70 

13-C70 

13-C70# 

13-014 

13-014 


13-014 

13-014# 

13-065 

13-065 

13-065 

13-065# 

13-E10 

13-E10 

13-E10 

13-E10# 

13-E51 

13-E51 

13-E51 

1 3— €51 # 


13-E91 

13-E91 

13-E91 

13-E91# 

13-F30 

13-F30 

13-F30 

13-F30# 

13-F69 

13-F69 

13-F69 

13-F69# 

39-1 

39-1 

STP0 

6-0# 

38-1 

38-1 

38-1* 











STPFLG 

6-0# 

38-1 

38-1 

38-1 











STPS 

6-0# 

38-1 

38-1 

38-1 











STRAP 

10-24 

44-1# 













STRAP2 

44-1 

44-1# 













STRP 

44-1 

44-1 

44-1 

44-1 

44-1 

44-1 

44-1 

44-1 

44-1 

44-1 

44-1 

44-1 

44-1 

44-1 


44-1 

44-1 

44-1 

44-1 

44-1 

44-1 

44-1 

4*1-1 

44-1 

44-1 

44-1 

44-1 

44-1 

44-1 


44-1 

44-1 

44-1 

44-1 

44-1 

44-1 

44-1 

44-1 

44-1 

44-1 

44-1 

44-1 

44-1 

44-1 


44-1 

44-1 

44-1 

44-1 

44-1 

44-1 

44-1 

44-1 

44-1 

44-1 

44-1# 

44-1# 

44-1# 

44-1# 


44-1# 

44-1# 

44-1# 

44-1# 

44-1# 

44-1# 

44-1# 

44-1# 

44-1# 

44-1# 





STRPAD 

44-1 

44-1# 













STSTM 

5-8# 














STSTNH 

6-0# 

12-45* 

14-20* 

39-1 

39-1 

39-1 

39-1 

39-1 

39-1* 

39-1* 

40-1 

40-1 

40-1 


STTYIN 

42-1 

42-1 

42-1 

42-1 

42-1 

42-1# 









STYP8N 

35-1# 

44-1 

44-1 












STYPOS 

36-1# 

44-1 

44-1 












STYPE 

38-1# 

44-1 

44-1 

46-1 











STYPEC 

38-1 

38-1 

38-1 

38-1# 

42-1 










STYPEX 

38-1 

38-1 

38-1# 












STYPOC 

37-1# 

44-1 

44-1 












STYPON 

37-1 

37-1# 

44-1 












STYPOS 

37-1# 

44-1 







41-22 






SUN IT 

6-0# 

12-49* 

12-54 

12-60 

13-40 

13-43 

13-94 

21-49 
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SUN1TN 

5-8# 












SUSUR 

6-0# 












SVECT1 

6-0# 

11-46 

11-56* 

13-769 

13-775 

13-834 

13-840 






SVECT2 

6-0# 












SXOFF 

38-1 

38-1 











SXON 

38-1 

38-1 

42-1 










SXTSTR 

39-1# 












.SASTA 

46-1 

46-1 











.sx 

5-8 

5-8# 











A16 

4-715# 

1 3-=96 











A17 

4-714# 

1 3-=96 











ABASE 

4-766# 

6-0 

6-0 










ACDU1 

6-0 

6-0 











ACOW2 

6-0 

6-0 











ACKSTS 

13-466 

15-151 

29-15# 










ACPUOP 

6-0 

6-0 











ADDWO 

6-0 

6-0 











A0DU1 

6-0 

6-0 











AODU10 

6-0 












A00W11 

6-0 












A00W12 

6-0 












A0DW13 

6-0 












AODyH 

6-0 












A0DW15 

6-0 












A0DW2 

6-0 

6-0 











A00W3 

6-0 

6-0 











ADDW4 

6-0 

6-0 











A0DW5 

6-0 

6-0 











A00W6 

6-0 

6-0 











ADDW7 

6-0 

6-0 











A0DW8 

6-0 












A00W9 

6-0 












AOEVCT 

6-0 

6-0 











AOEVN 

6-0 

6-0 











ADR 

13-2 

13-2# 

13-2# 

13-33 

13-33# 

13-33# 

13-105 

13-105# 

13-105# 

13-210 

13-210# 

13-210# 


13-252# 

13-277 

13-277# 

13-277# 

13-328 

13-328# 

13-328# 

13-346 

13-346# 

13-346# 

13-448 

13-448# 


13-473# 

13-473# 

13-490 

13-490# 

13-490# 

13-514 

13-514# 

13-514# 

13-536 

13-536# 

13-536# 

13-561 


13-583 

13-583# 

13-583# 

13-613 

13-613# 

13-613# 

13-631 

15-631# 

13-631# 

13-662 

13-662# 

13-662# 


13-698# 

13-733 

13-733# 

13-733# 

13-765 

13-765# 

13-765# 

13-830 

13-830# 

13-830# 

13-884 

13-884# 


13-915# 

13-915# 

13-959 

13-959# 

13-959# 

13-988 

13-988# 

13-988# 

13— : 54 

13-:54# 

13-:54# 

13-;21 


13-;87 

13-;87# 

13-;87# 

13— <53 

13— <53# 

13-<53# 

13-<95 

13-<95# 

13— <95# 

13--27 

13-=27# 

l3-=^7# 


1 3-=60# 

1 3— >1 1 

13— >1 1# 

13— >1 1# 

13— >41 

13— >41# 

1 3— >41# 

13— >71 

13— >71# 

1 3— >71# 

13-705 

13-705# 


13-739# 

13-739# 

; 3-767 

13-767# 

13-767# 

13-aoi 

13-aoi# 

13-aoi# 

13-835 

13-835# 

13-835# 

13-884 


13-A28 

13-A28# 

13-A28# 

13-A70 

13-A70# 

13-A70# 

13-B04 

13-804# 

13-804# 

13-841 

13-841# 

13-841# 


13-B77# 

13-C70 

13-C 70# 

13-C70# 

13-D14 

13-014# 

13-014# 

13—065 

13-D65# 

13-065# 

13-E10 

13-El 0# 


13-E51# 

13-E51# 

13— £91 

13-E91# 

1 3— £91# 

13-F30 

13-F30# 

1 3— £30# 

13-F69 

13-F69# 

13-F69# 


AENV 

6-0 

6-0 











AENVH 

6-0 

6-0 











AFATAL 

6-0 

6-0 











ALL 

11-86 

47-4# 











AMADR1 

6-0 

6-0 











AHA0R2 

6-0 

6-0 











ANA0R3 

6-0 

6-0 











AAA0R4 

6-0 

6-0 











APIAN SI 

6-0 

6-0 











mms2 

6-0 

6-0 












SEO 029 2 


13-252 

13-448# 

13-561# 

13-6% 

13-884# 

13-;21# 

13-=60 

13-705# 

13-884# 

13-877 

13-E10# 


13-252# 

13-473 

13-561# 

13-698# 

13 915 

13-;21# 

13-=60# 

13-739 

13-884# 

13-877# 

1 3— €51 
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AMAMS3 

6-0 

6-0 








AMAMS4 

6-0 

6-0 








AMSGAO 

6-0 

6-0 








AMSGLG 

6-0 

6-0 








AMSGTY 

6-0 

6-0 








AMTYP1 

6-0 

6-0 








AMTYP2 

6-0 

6-0 








AMTYP3 

6-0 

6-0 








AMTYP4 

6-0 

6-0 








AOE 

4-566# 

4-577 

22-311 

22-326 

22-341 

22-356 

22 

-360 

23-151 


48-86 









APASS 

6-0 

6-0 








APE 

4-744# 









APR I OP 

6-0 









APTCSU 

38-1 

46-1# 








APTENV 

38-1 

40-1 

46-1 

46-1# 






APTSIZ 

10-24 

46-1# 








APTSPO 

38-1 

46-1 

46-1# 







ARGS 

13-114# 

13-132# 

13-138# 

13-219# 

13-236# 

13-243# 

13 

-245# 

13-249# 


13-393# 

13-439# 

13-460# 

13-463# 

13-466# 

13-470# 

13 

-475 

13-475# 


13-499# 

13-505# 

13-507# 

13-509# 

13-511# 

13-516 

13 

-516# 

13-526# 


13-554# 

13-556# 

13-558# 

13-563 

13-563# 

13-570# 

13 

-572# 

13-574# 


13-603# 

13-606# 

13-608# 

13-610# 

13-615 

13-615# 

13-620# 

13-622# 


13-639# 

13-o41# 

13-655 

13-655# 

13-657# 

13-659# 

13-664 

13-664# 


13-691# 

13-693# 

13-695# 

13-700 

13-700# 

13-705# 

13 

-718# 

13-720# 


13-752# 

13-760# 

13-762# 

13-767 

13-767# 

13-791# 

13 

-806# 

13-808# 


13-832 

13-832# 

13-877# 

13-886 

13-886# 

13-892# 

13 

-894# 

13-908 


13-933# 

13-935# 

13-952 

13-952# 

13-954# 

13-956# 

13 

-961 

13-961# 


13-:26# 

13-:28# 

13-.56 

13-:56# 

13-.-90# 

13-.-93# 

13 

-:95# 

13-;23 


1 3-<22# 

1 3-<25# 

1 3— <27# 

13-<55 

1 3— <55# 

13— <58# 

1 3— <61# 

13-<lo# 


1 3-=08# 

1 3— =1 7# 

13-=29 

13-=29# 

13-=33# 

13-=45# 

13-*47# 

l3-=62 


1 3->24# 

1 3->28# 

13->30# 

13->32# 

l3->34 

13->34# 

13 

->36# 

13— >44 


13->64# 

13->66# 

13->75 

l3->75# 

13->84# 

13->89# 

13 

->91# 

13— >93# 


13-724# 

13-726# 

13-728# 

13-730 

13-730# 

13-732# 

13 

-742 

13-742# 


13-764# 

13-770 

13-770# 

13-781# 

13-785# 

13-787# 

13 

-789# 

13-791 


13-a21# 

13-323# 

13-325 

13-325# 

13-827# 

13-838 

13 

-838# 

13-854# 


13-669# 

13-871# 

13-886 

13-886# 

13-A03# 

13-A05# 

13 

-AO 7# 

13-A11# 


13-A30# 

13-A46# 

13-A48# 

13-A50# 

13-A54# 

13-A56# 

13 

-A58# 

13-A60 


13-A99# 

13-601# 

13-606 

13-606# 

13-619# 

13-621# 

13-S30# 

13-S32# 


13-654# 

13-MI# 

13-S64# 

13-866# 

13-868# 

13-670# 

13 

-672 

13-672# 


13-C 72# 

13-C 86# 

13-C89# 

13-C91# 

13-C93# 

13-C95# 

13 

-C99# 

13-001# 


13-031# 

13-035# 

13-037# 

13-039# 

13-043# 

13-047# 

13 

-049# 

13-051# 


13-087# 

13-089# 

13-091# 

13-093# 

13-095 

13-095# 

13 

-Of?# 

13-E12 


1 3— €41 

13-E41# 

13-E43# 

13-E53 

13-E53# 

13-E69if 

13 

-E73# 

13-E75# 


13-E93# 

13-F10# 

13-F14# 

13— F 16# 

13-F25 

13-F25# 

13 

— F 27# 

13-F32 


13-F64 

13-F64# 

13-F66# 

13— F /I 

13-F71# 

13-F83# 

13 

-F91# 

13-F95# 

ASWREG 

6-0 

6-0 








ATA 

4-546 # 

13-288 

13-648 

13-651 

13-652 

13-670 

13 

-672 

13-674 


13-726 

13-741 

13-744 

13-745 

13-753 

13-755 

13-757 

13-901 


l3-;08 

13— z IQ 

13-:73 

13— i 74 

13-;76 

13— <39 

13-<40 

13— <42 


26-500 

30-145 

30-146 

30-185 

30-1 Si 

32-205 

32 

-206 

32-258 


48-67 

48-66 

48-69 

48-70 

48-71 

48-72 

48 

-73 

48-74 


48-87 

48-88 








ATES T W 

6-0 

6-0 








ATNMSV 

4-583# 

13-713 

31-55 







ATNT6L 

10-78 

10-106 

10-110 

11-114 

12-17 

49-3# 





SEQ 0293 


23-155 48-77 48-78 48-81 48-82 48-85 


13-262# 

13-481# 

13-528# 

13-576# 

13-624 

13-669# 

13-722# 

13-816# 

13-908# 

13-966# 

13-;23# 

13-<83# 

13-=62# 

13->44# 

1 3— >95 

13-752# 

13-791# 

13-856# 

13-A13# 

13-A60# 

13-634# 

13-874# 

13-D03# 

13-D53 

13-El 2# 

13-E77# 

13-F32# 

13-F97# 

13-684 

13-904 

22-138 


48 


2 :W 


13-283# 

ISIS 

13-578# 

13-624# 

13-677 

13-730 

13-818# 

13-910# 

13-968# 

13-;56# 

l3-<85# 

13-= 76# 

13->54# 

1 3— >95# 

13-756# 

13-793# 

13-958# 

13-A15# 

13-A62# 

13-636 

13-893# 

13-D05 

13-D53# 

13-E29# 

13-E79# 

13-F45# 

13-F99# 

13-687 

13-905 

22-139 

48-58 

48-76 


13-337# 

13-485# 

13-538 

13-580# 

13-&36# 

13-677# 

13-730# 

13-820 

13-912# 

13-979# 

13-;59# 

13-<87# 

1 3-=78# 

13->58# 

13->97# 

13-758# 

13-a04 

13-a62# 

13-A18 

13-A87# 

13-636# 

13-C04# 

13-D05# 

13-055# 

13-E33# 

13-E81 

13-F47# 

13-G01 

13-706 
1 3— : 40 
22-141 
48-59 
48-79 


13-340# 

13-487# 

13-531!# 

13-585 

13-628# 

13-681# 

13-735 

13-820# 

13-917 

13-990 

13-.-61# 

1?-<97 

l3-=80# 

13->60# 

13-708 

13-760# 

13-304# 

13-664# 

15-A18# 

13-A89# 

13-638# 

13-C08# 

13-007# 

13-067 

13-E35# 

13-E81# 

13-F58# 

13-G01# 

13-709 
1 3— : 41 
26-161 
48-60 
48-80 


13-3*3# 

13-492 

13-548# 

13-585# 

13-633 

13-683# 

13-735# 

13-822# 

13-917# 

13-990# 

13-.89 

13 -< 97 # 

13->14 

1 3->62# 

13-708# 

13-762 

13-315# 

13-866# 

13-A20# 

13-A91# 

13-644 

1 3— Cl 0# 

13-016 

13-067# 

13-E37# 

13-E83# 

13-F60T 

13-G03# 

13-710 
1 3— : 43 
26-162 
48-63 
48-83 


13-353# 

13-492# 

11-552# 

13-598# 

13-633# 

13691 

13-740# 

13-824# 

13-929# 

13-:23# 

1 3—; 89# 

l3-=00# 

13->144T 

13->64 

13-720# 

13-762# 

13-B19# 

13-669 

13-A30 

13-A99 

13-644# 

13-C 72 

13-016# 

13-083# 

13-E39# 

13-E93 

13-F62# 


13-723 

13-:07 

26-197 

48-64 

48-84 
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SEQ 0294 


AUNIT 

6-0 

6-0 


AUSWR 

6-0 

6-0 


AVECT1 

4-767# 

6-0 

6-0 

AVECT2 

6-0 

6-0 


BACK 

13-114 

13-114# 

13-132 


13-245# 

13-343# 

13-466# 

13-485# 

13-509# 

13-533# 

13-558# 

13-580 

12-608# 

13-626 

13-655# 

13-677# 

13-695# 

13-730# 

13-767# 

13-820# 

13-892 

13-917 

13-954# 

13-990# 

1 3- : 95 

1 3-<22 

1 3-<83# 

1 3-=29# 

13-=80# 

13->34 

13->60# 

1 3->89 

13-708 

13-730# 

13-760# 

13-787 

1 3-B1 5 

1 3-827# 

13-864# 

13-A03# 

13-A18 

13-A50# 

13-A62# 

13-606 

13-636 

13-866# 

13-693# 

13-C91 

13-D03# 

13-037 

13-051# 

13-089 

13-D97# 

13-E39# 

13-E75 


13-249 

13-343# 

13-466# 

13-487 

13-509# 

13-538 

13-558# 

13-580# 

13-610 

13-626# 

13-655# 

13-681 

13-700 

13-735 

13-791 

13-820# 

13-892# 

13-917# 

13-956 

1 3- : 23 

13-:95# 

13-<22# 

13-<85 

13-=33 

13-=80# 

1 3->34# 

13->62 

1 3->89# 

13-708# 

13-732 

13-760# 

13-787# 

13-815# 

13-827# 

13-864# 

13-A05 

13-A18# 

13-A54 

13-A87 

13-606# 

13-636# 

13-668 

13-C04 

13-C91# 

13-003# 

13-037# 

13-051# 

13-089# 

13-E12 

13-E39# 

13-E75# 


13-249# 

13-353 

13-470 

13-487# 

13-511 

13-538# 

13-563 

13-580# 

13-610# 

13-626# 

13-657 

13-681# 

13-700# 

13-735# 

13-791# 

13-822 

13-894 

13-929 

13-956# 

13-.-23# 

1 3— : 95# 

13— <25 

13— <85# 

13-=33# 

13— >14 

1 3->34# 

13->62# 

1 3— >91 

13-720 

13-732# 

13-762 

13-787# 

13-819 

13-838 

13-866 

13-A05# 

13-A18# 

13-A54# 

13-A87# 

13-619 

13-636# 

13-663# 

13-C04# 

13-C91# 

13-005 

13-037# 

13-053 

13-089# 

13-E12# 

13-E41 

13-E75# 


13-132# 

13-249# 

13-353# 

13-470# 

13-487# 

13-jII# 

13-548 

13-563# 

13-585 

13-610# 

13-628 

13-657# 

13-683 

13-705 

13-740 

13-806 

13-822# 

13-894# 

13-929# 

13-956# 

13-.-26 

13—; 23 

1 3— <25# 

13-<87 

1 3— =45 

13— >1 4# 

13->36 

13— >62# 

13— >91# 

13-720# 

13-732# 

13-762# 

13-789 

13-819# 

13-838# 

13-866# 

13-A05# 

13-A20 

13-A56 

13-A89 

13-619# 

13-638 

13-668# 

13-C08 

13-C93 

13-005* 

13-039 

13-053# 

13-091 

13-E29 

13-E41# 

13-E77 


13-138 

13-262 

13-393 

13-470# 

13-492 

13-511# 

13-548# 

13-570# 

13-585# 

13-615 

13-628# 

13-657# 

13-683# 

13-705# 

13-740# 

13-806# 

13-822# 

13-894# 

13-933 

13-961 

13-.-26# 

13—; 23# 

1 3— <27 

13-<87# 

13— =45# 

13->24 

13->36# 

13->64 

1 3 ->91# 

13-724 

13-742 

13-762# 

13-789# 

13-821 

13-854 

13-866# 

13-A07 

13-A20# 

13-A56# 

13-A89# 

13-621 

13-638# 

13-670 

13-C08# 

13-C93# 

13-005# 

13-039# 

13-053# 

13-091# 

13-E29# 

13-E41# 

13-E77# 


13-133# 

13-262# 

13-393# 

13-475 

13-492# 

13-516 

13-552 

13-572# 

13-598 

13-615# 

13-628# 

13-659 

13-683# 

13-718 

13-752 

13-808 

13-824 

13-908 

13-933# 

13-961# 

13—: 28 

13— ;56 

1 3— <27# 

1 3— <87# 

13-=47 

1 3— >24# 

13->36# 

13->64# 

13->93 

13-724# 

13-742# 

13-764 

13-789# 

13-821# 

13-854# 

13-869 

13-A07# 

13-A20# 

13-A56# 

13-A91 

13-621# 

13-838# 

13-670# 

13-C10 

13-C93# 

13-007 

13-039# 

13-055 

13-091# 

13-E33 

13-E43 

13-E77# 


13-219 

13-283 

13-439 

13-475# 

13-499 

13-516# 

13-552# 

13-574 

13-598# 

13-620 

13-633 

13-659# 

13-691 

13-718# 

13-752# 

13-808# 

13-824# 

13-908# 

13-935 

13-966 

13-:28# 

1 3—; 56# 

1 3-<27# 

13-<97 

1 3— =47# 

1 3->28 

1 3->44 

1 3->64# 

1 3->93# 

13-726 

13-752 

13-764# 

13-791 

13-821# 

13-856 

13-869# 

13-A11 

13-A30 

13-A58 

13-A91# 

13-630 

13-644 

13-670# 

13-C10# 

13-C95 

13-D07# 

13-043 

13-055# 

13-093 

13-E33# 

13-E43# 

13-E79 


1 3— 21 V# 

13-283# 

13-439# 

13-481 

13-499# 

13-526 

13-554 

13-574# 

13-603 

13-620# 

13-633# 

13-659# 

13-691# 

13-720 

13-760 

13-808# 

13-824# 

13-908# 

13-935# 

13-966# 

13— :28# 

13—; 59 

13— <55 

13— <97# 

13-=62 

13->28# 

1 3— >44# 

13->66 

13->93# 

13-726# 

13-752# 

13-764# 

13-791# 

13-823 

13-856# 

13-869# 

13-All# 

13-A30# 

13-A58# 

13-A91# 

13-630# 

13-644# 

13-67? 

13-C10# 

13-C95# 

13-007# 

13-043# 

13-055# 

13-093# 

13-E35 

13-E43# 

13-E79# 


13-236 

13-337 

13-460 

13-481# 

13-505 

13-526# 

13-554# 

13-576 

13-603# 

13-622 

13-639 

13-664 

13-691# 

13-720# 

13-760# 

13-816 

13-832 

13-910 

13-935# 

13-968 

13— : 56 

13-;59# 

13— <55# 

13-=00# 

13-=62# 

13->30 

13— >54 

13->66# 

13->95 

13-726# 

13-756 

13-770 

13-791# 

13-823# 

13-856# 

13-871 

13-A13 

13-A46 

13-A58# 

13-A99 

13-832 

13-654 

13-672# 

13-C72 

13-C99 

13-016 

13-047 

13-067 

13-093# 

13-E35# 

13-E53 

13-E79# 


13-236# 

13-337# 

13-460# 

13-483 

13-505# 

13-528 

13-554# 

13-576# 

13-606 

13-622# 

13-639# 

13-664# 

13-693 

13-722 

13-760# 

13-816# 

13-132# 

13-910# 

13-952 

13-968# 

13-:56# 

1 3—; 61 

13— <58# 

13-=08 

13-=76 

13->30# 

13— >54# 

13->66# 

13->95# 

13-728 

13-756# 

13-770# 

13-793 

13-823# 

13-858 

13-871# 

13-A13# 

13-A46# 

13-A60 

13-A99# 

13-632# 

13-654# 

13-672# 

13-C72# 

13-C99# 

13-016# 

13-047# 

13-067# 

13-095 

13-E35# 

13-E53# 

13-E81 


13-243 

13-340 

13-463 

13-483# 

13-507 

13-528# 

13-556 

13-576# 

13-606# 

13-622# 

13-641 

13-669 

13-693# 

13-722# 

13-762 

13-818 

13-877 

13-910# 

13-952# 

13-968# 

13-.-90 

13— ;61# 

1 3— <61 

13-=08# 

13-=76# 

13->30# 

13->58 

13— >75 

1 3->95# 

13-728# 

13-758 

13-781 

13-793# 

13-825 

13-858# 

13-871# 

13-A13# 

13-A48 

13-A60# 

13-A99# 

13-632# 

13-661 

13-674 

13-C86 

13-001 

13-031 

13-049 

13-083 

13-095# 

13-E37 

13-E69 

13-E81# 


13-243# 

13-340# 

13-463# 

13-483# 

13-507# 

13-528# 

13-556# 

13-578 

13-606# 

13-624 

13-641# 

13-669# 

13-693# 

13-722# 

13-76C# 

13-818# 

13-877# 

13-912 

13-952# 

13-979 

13-:90# 

1 3— ;61# 

1 3— <61 # 

13-= 17 

13-=78 

1 3— >32 

13— >58# 

13->75# 

13->97 

13-728# 

13-758# 

13-781# 

13-793# 

13-825# 

13-862 

13-886 

13-A15 

13-A48# 

13-A60# 

13-601 

13-634 

13-661# 

13-674# 

13-C86# 

13-001# 

13-031# 

13-049# 

13-083# 

13-095# 

13-E37# 

13-E69# 

13-E81# 


13-245 

13-340# 

13-463# 

13-485 

13-507# 

13-533 

13-556# 

13-578# 

13-608 

13-624# 

13-641# 

13-677 

13-695 

13-730 

13-762# 

13-818# 

13-886 

13-912* 

13-954 

13-979# 

13-.93 

l3-;89 

13-<80 

1 3 — = 1 7 # 

1 3-=78# 

13->32# 

13->60 

13->84 

13->97# 

13-730 

13-758# 

13-785 

13-804 

13-825# 

13-862# 

13-886# 

13-A15# 

13-A48# 

13-A62 

13-601# 

13-634# 

13-604# 

13-674# 

13-C89 

13-001# 

13-035 

13-049# 

13-087 

13-097 

13-E37# 

13-E73 

13-E83 


13-245# 

13-343 

13-466 

13-485# 

13-509 

13-533# 

13-558 

13-578# 

13-608# 

13-624# 

13-655 

13-677# 

13-695# 

13-730# 

13-767 

13-820 

13-886# 

13-912# 

13-954# 

13-990 

1 3— : 93# 

13-;89# 

13-<80# 

13-=29 

13-=80 

13->32# 

13- >60# 

13->84# 

13->9 7# 

13-730# 

13-760 

13-785# 

13-804# 

13-827 

13-864 

13-A03 

13-A15# 

13-A50 

13-A62# 

13-601# 

13-634# 

13-666 

13-693 

13-C89# 

13-003 

13-035# 

13-051 

13-087# 

13-097# 

13-E39 

13-E73# 

13-E83# 
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L 


7 


SEO 0295 




13-E93 

13-E93# 

13-F10 

13-F 10# 

13-F 14 

13-F14# 

13-F 16 

13-F16# 

13-F 16# 

13-F 25 

13-F25# 

13-F 25# 

13-F 27 


13-F 27# 

13-F 32 

13-F32# 

13-F 4 5 

13-F45# 

13-F47 

13-F47# 

13-F 58 

13-F58# 

13-F60 

13-F 60# 

13-F60# 

13-F 62 


13-F6 2# 

13-F 62# 

13-F 64 

13-F64# 

13-F 64# 

13-F 66 

13-F 66# 

13-F66# 

13-F 71 

13-F71# 

13-F 83 

13-F 83# 

13-F 91 

13-F 91# 


13-F95 

13-F 95# 

13-F97 

13-F 97# 

13-F 97# 

13-F 99 

13-F99# 

13-F 99# 

13-601 

13-601# 

13-601# 

13-603 

13-603# 

13-603# 

BAD TWO 

10-3# 

10-26 













BAI 

4-733# 

23-23 













B800 

4-662# 














BB01 

4-662# 














BB02 

4-662# 














BB03 

4-662# 














BB04 

4-662# 














BB05 

4-662# 














BB06 

4-662# 














BB07 

4-662# 














BB08 

4-662# 














0609 

4-662# 














8IT0 

4-479# 

13->00 

20-43 












BITOO 

4-479 

40-1 

4-479# 

4-491 

4-538 

4-556 

4-575 

4-612 

4-630 

4-662 

4-736 

4-754 

39-1 

39-1 

40-1 

B1T01 

4-479 

4-479# 

4-490 

4-537 

4-574 

4-611 

4-629 

4-662 

4-736 

4-753 





BIT02 

4-479 

4-479# 

4-489 

4-536 

4-573 

4-610 

4-628 

4-662 

4-736 

4-752 





BIT03 

4-479 

4-479# 

4-488 

4-535 

4-572 

4-609 

4-627 

4-662 

4-674 

4-733 

4-751 




BIT04 

4-479 

4-479# 

4-487 

4-534 

4-571 

4-626 

4-662 

4-732 







BIT05 

4-479 

4-479# 

4-486 

4-570 

4-608 

4-625 

4-662 

4-673 

4-731 






BIT06 

4-479 

4-479# 

4-555 

4-569 

4-591 

4-607 

4-624 

4-662 

4-717 

4-730 

4-750 




BIT07 

4-479 

4-479# 

4-554 

4-568 

4-590 

4-606 

4-623 

4-645 

4-662 

4-672 

4-716 

4-729 



BIT08 

4-479 

4-479# 

4-531 

4-553 

4-567 

4-589 

4-605 

4-622 

4-662 

4-715 

4-728 

39-1 



BIT09 

4-479 

4-479# 

4-530 

4-552 

4-566 

4-588 

4-604 

4-621 

4-644 

4-662 

4-714 

4-727 

39-1 

39-1 


40-1 

40-1 













BIT1 

4-479# 

13->00 

23-48 












BIT10 

4-479# 

40-1 

4-529 

4-551 

4-565 

4-587 

4-603 

4-620 

4-643 

4-659 

4-671 

4-713 

4-726 

4-749 

15-165 

BIT11 

4-479# 

39-1 

4-479# 

4-485 

4-528 

4-550 

4-564 

4-602 

4-619 

4-637 

4-642 

4-658 

4-670 

4-725 

4-748 

15-167 

BIT12 

4-549 

4-563 

4-601 

4-618 

4-641 

4-657 

4-669 

4-724 

4-747 

15-111 




BIT13 

4-479# 

4-548 

4-562 

4-600 

4-617 

4-636 

4-656 

4-668 

4-680 

4-712 

4-723 

4-746 

40-1 


BIT14 

4-479# 

4-547 

4-561 

4-599 

4-616 

4-635 

4-655 

4-667 

4-679 

4-711 

4-722 

4-745 

15-73 

39-1 

BIT15 

4-479# 

4-546 

4-560 

4-598 

4-615 

4-634 

4-654 

4-666 

4-678 

4-710 

4-721 

4-744 



81 T2 

4-479# 

20-43 













BIT3 

4-479# 

15-198 













BIT4 

4-479# 

15-140 













BIT5 

4-479# 














81 T6 

4-479# 

15-87 













BIT7 

4-479# 

10-71 

13-897 

20-20 











8IT8 

4-479# 














BIT9 

4-479# 














BLNAS1 

47-41# 














BLNKS2 

10-121 

11-34 

11-48 

47-40# 











BLNKS3 

47-39# 














BLNKS4 

10-82 

47-38# 













BOTADR 

41-73* 

41-91* 

41-94 

41-109 

41-153# 










B0TFL6 

41-54* 

41-101* 

41-104 

41-107* 

41-154# 










BPTVEC 

4-479# 














BSE 

4-666# 

22-431 













BUFFER 

13-C12 

13-C34 

58-1# 

58-5 











8UF0NE 

1 3— : 10 

13-.-77 

13-;43 

13-<09 

1 3— <67 

58-2# 
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BUFTUO 

58-3# 







CC 

4-658# 







CH 

4-659# 







CHGADR 

7-0# 

10-15* 

10-18* 

11-25 

11-27* 



CHRCNT 

41-55* 

41-78* 

41-84* 

41-85 

41-88* 

41-92 

41-97* 

CKSWR 

39-1 

40-1 

40-1 

44-1# 




CUC ADR 

7-0# 

13-B97 

19-6* 

19-8 

19-12* 

19-14 

20-20 

CUCVCT 

7-0# 

19-7* 

19-13* 





CLR 

4-731# 

10-84 

12-53 

13-61 

27-16 



CLRSTS 

13-245 

13-856 

13-A05 

13-A48 

15-98 

28-22# 


CANS T A 

10-130 

12-2# 






CMPERR 

13-624 

13-655 

13-677 

13-691 

13-730 

13-820 

13-908 


13-825 

13-869 

13-A18 

13-A60 

13-A99 

13-836 

13-872 


13-G01 

24-21# 






CNSL01 

11-32 

47-8# 






CNSL02 

11-40 

47-9# 






CNSL03 

11-44 

47-10# 






CNSL04 

11-54 

47-11# 






CNSL07 

11-78 

47-12# 






CNSL08 

11-109 

47-14# 






CNSL09 

11-72 

47-15# 






CNTCLR 

13-107 

13-212 

13-240 

13-254 

13-279 

13-330 

13-348 


1 3-=72 

13-852 

13-A01 

13-A44 

13-A72 

13-879 

13-D81 

COMMA 

11-103 

12-6 

12-14 

47-6# 




CONT 

4-624# 







CP SAVE 

39-1 

39-1 

39-1 

39-1* 

39-1* 

40-1 

40-1 

CR 

4-479# 

11-90 

11-101 

38-1 

38-1 

41-76 

54-79 

CR'.F 

4-479# 

10-6 

10-29 

10-29 

10-43 

10-54 

10-60 


47-11 

47-12 

47-13 

47-14 

47-15 

47-16 

47-18 


47-35 

55-7 

55-11 

55-12 

55-15 

55-16 

55-18 


58-15 

58-16 

58-17 

58-18 

58-19 

58-20 

56-21 


58-29 

58-30 

58-31 

58-32 

58-33 

58-34 

58-35 


58-43 

58-44 

58-45 

58-46 

58-47 

58-48 

58-49 


58-57 

58-58 

58-59 

58-60 

58-61 

58-62 

58-63 


58-71 

58-72 

58-73 

58-74 

58-75 

58-76 

58-77 


58-85 

58-86 

58-87 





CYLMSK 

4-649# 







D6CK 

4-598# 







OBEN 

4-599# 

13-120 

13-225 

13— =1 1 




DBL 

4-749# 







DCK 

4-560# 

4-577 

22-497 

22-517 




OD1SP 

4-479# 

6-0 

10-24 





DEBL 

4-600# 







DEVSEL 

13-=76 

15-62 

25-12# 





DISPLA 

6-0# 

10-24* 

10-24* 

39-1* 

40-1* 



OISPRE 

5-1# 

10-24 






OLT 

4-721# 

22-313 






OMD 

4-612# 

4-630# 

13-120 

13-225 

13-350 

13-354 

13-356 


13-.-66 

1 3— : 68 

13-.-33 

13— ;35 

13— ; 99 

13— <01 

13-=02 

DONE 

13-92 

47-35# 






D PE 

4-674# 

13-624 

13-655 

13-691 

13-820 

13-908 

13-952 


13-869 

13-A18 

13-A60 

13-A99 

13-836 

13-872 

13-D05 


21-137 

22-255 

26-32 

30-31 

32-52 



DPEHI 

4-745# 







DPELO 

4-746# 







DPR 

4-553# 

13-203 

13-204 

13-317 

26-200 

28-125 

28-126 


41-108* 41-155# 
20-39 


13-952 

l3->34 

13->64 

13— >95 

13-730 

13-762 

13-791 

13-D05 

13-D53 

13-D95 

13-E41 

13-E81 

13-F25 

13-F64 


13-450 

13-E27 

13-995 

13-E67 

*0*0 

1 1 

13— ;28 
27-12# 

13-;94 

1 3— <61 

1 3-=33 

40-1 

40-1 

40-1 

40-1# 

40-1* 

40-1* 

41-172 

12-30 

38-1 

38-1 

47-4 

47-7 

47-8 

47-9 

47-26 

47-28 

47-29 

47-30 

47-31 

47-31 

47-34 

58-8 

58-9 

58-10 

58-11 

58-12 

58-13 

58-14 

58-22 

58-23 

58-24 

58-25 

58-26 

58-27 

58-28 

58-36 

58-37 

58-38 

58-39 

58-40 

58-41 

58-42 

58-50 

58-51 

58-52 

58-53 

58-54 

58-55 

58-56 

58-64 

58-A5 

58-66 

58-67 

58-68 

58-69 

58-70 

58-78 

58-7V 

58-80 

58-81 

58-82 

58-83 

58-84 


13-391 
13— —04 

13-394 
13-= 11 

13-396 

13-A74 

13-452 

13-E95 

13-518 

13-:00 

13-.02 

15->34 

13-D53 

13->64 

13-D95 

13->95 

13-E41 

13-730 

13-E81 

13-762 

13-F25 

13-791 

13-F64 

13-B25 

13-601 


31-30 
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SEQ 0297 


N 7 


22-41 

22-42 

26-200 

28-125 

21-65 

21-68 

25-37 

28-31 

13-427 

13-428 

26-132 

28-115 

48-77 

48-78 

48-85 

48-86 


8-24 

8-27 

8-30 

8-33 

8 -66 

8-69 

8-72 

8-75 

8-108 

8-111 

8-114 

8-117 

8-154 

8-157 

8-160 

8-163 

8-197 

8-200 

8-203 

8-206 

8-254 

8-257 

8-260 

8-263 

8-296 

8-299 

8-302 

8-305 

8-338 

8-341 

8-344 

8-347 

8-384 

8-390 

8-393 

8-396 

8-435 

8-438 

8-441 

8-444 

8-531 

8-534 

8-537 

8-540 

8-577 

8-581 

8-586 

8-590 

8-624 

8-627 

8-630 

8-633 

8-666 

8-669 

8-672 

8-675 


28-126 31-30 

^ 0-92 It 130 30-133 30-266 


8-36 

8-39 

8-42 

8-45 

8-78 

8-81 

8-84 

8-87 

8-120 

8-123 

8-126 

8-130 

8-166 

8-169 

8-172 

8-175 

8-209 

8-212 

8-215 

8-218 

8-266 

8-269 

8-272 

8-275 

8-308 

8-311 

8-314 

8-317 

8-354 

8-357 

8-360 

8-363 

8-399 

8-402 

8-405 

8-408 

8-450 

8-453 

8-456 

8-459 

8-543 

8-546 

8-549 

8-552 

8-594 

8-597 

8-600 

8-603 

8-636 

8-639 

8-642 

8-645 

8-678 

8-693 

8-696 

8-702 
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8-133 

8-136 

8-139 

8-142 

8-146 


8-178 

8-182 

8-185 

8-188 

8-191 


8-236 

8-239 

8-242 

8-245 

8-248 


8-278 

8-281 

8-284 

8-287 

8-290 


8-320 

8-323 

8-326 

3-329 

8-332 


8-366 

8-369 

8-372 

8-375 

8-378 


8-411 

8-414 

8-417 

8-420 

8-423 


8-504 

8-507 

8-510 

8-519 

8-522 


8-556 

8-559 

8-563 

8-566 

8-569 


8-606 

8-609 

8-612 

8-615 

8-618 


8-648 

8-651 

8-654 

8-657 

8-660 


8-705 

8-708 

8-711 

8-714 

8-723 

EFT110 

8-221 

53-4# 




EFT111 

8-224 

8-227 

8-462 

8-465 

53-5# 

EFT114 

53-7# 





EFT2 

8-426 

8-429 

8-513 

8-516 

53-2# 

EFT223 

8-447 

8-528 

53-8# 



EFT336 

8-351 

8-681 

8-687 

8-690 

53-10# 

EFT337 

8 684 

53-11# 




EFT344 

8-699 

53-12# 




EFT353 

8-720 

53-14# 




EH1 

51-1 

51-6 

55-1# 



EH110 

51-4 

55-2# 




EH111 

51-5 

55-3# 




EH114 

51-7 

55-5# 




EH223 

51-8 

55-6# 




EH256 

51-9 

55-7# 




EH336 

51-11 

55-10# 




EH3I7 

51-12 

55-11# 




EH344 

51-13 

55-15# 




EH353 

51-15 

55-18# 




EHT1 

8-3 

8-6 

8-9 

8-12 

8-15 


8-48 

8-51 

8-54 

8-57 

8-60 


8-90 

8-93 

8-96 

8-99 

8-102 


8-133 

8-136 

8-139 

8-142 

8-146 


8-178 

8-182 

8-185 

8-188 

8-191 


8-236 

8-239 

8-242 

8-245 

8-248 


8-278 

8-281 

8-284 

8-287 

8-290 


8-320 

8-323 

8-326 

8-329 

8-332 


8-366 

8-369 

8-372 

8-375 

8-378 


8-411 

8-414 

8-417 

8-420 

8-423 


8-504 

8-507 

8-510 

8-519 

8-522 


8-556 

8-559 

8-563 

8-566 

8-569 


8-606 

8-609 

8-612 

8-615 

8-618 


8-648 

8-651 

8-654 

8-657 

8-660 


8-705 

8-708 

8-711 

8-714 

8-723 

EHT110 

8-221 

51-4# 




EHT111 

8-224 

8-227 

51-5# 



EHT112 

8-462 

8-465 

51-6# 



EHT114 

51-7# 





EHT2 

8-426 

8-429 

8-513 

8-516 

51-2# 

EHT223 

8-447 

51-8# 




EHT256 

8-528 

51-9# 




EHT336 

8-351 

8-681 

8-687 

8-690 

51-11# 

EHT337 

8-684 

51-12# 




EHT344 

8-699 

51-13# 





B 8 


51 PAGE 

S-12 


8-150 

8-154 

8-157 

8-194 

8-197 

8-200 

8-251 

8-254 

8-257 

8-293 

8-296 

8-299 

8-335 

8-338 

8-341 

8-381 

8-384 

8-390 

8-432 

8-435 

8-438 

8-525 

8-531 

8-534 

8-573 

8-577 

8-581 

8-621 

8-624 

8-627 

8-663 

53-1# 

8-666 

8-669 


8-18 

8-24 

8-27 

8-63 

8-66 

8-69 

8-105 

8-108 

8-111 

8-150 

8-154 

8-157 

8-194 

8-197 

8-200 

8-251 

8-254 

8-257 

8-293 

8-296 

8-299 

8-335 

8-338 

8-341 

8-381 

8-384 

8-390 

8-432 

8-435 

8-438 

8-525 

8-531 

8-534 

8-573 

8-577 

8-581 

8-621 

8-624 

8-627 

8-663 

ri .1# 

8-666 

8-669 


8-160 

8-163 

6-166 

8-203 

8-206 

8-209 

8-260 

8-263 

8-266 

8-302 

8-305 

8-308 

8-344 

8-347 

8-354 

8-393 

8-396 

8-399 

8-441 

8-444 

8-450 

8-537 

8-540 

8-543 

8-586 

8-590 

8-594 

8-630 

8-633 

8-636 

8-672 

8-675 

8-678 


8-30 

8-33 

8-36 

8-72 

8-75 

8-78 

8-114 

8-117 

8-120 

8-160 

8-163 

8-166 

8-203 

8-206 

8-209 

8-260 

8-263 

8-266 

8-302 

8-305 

8-308 

8-344 

8-347 

8-354 

8-393 

8-396 

8-399 

8-441 

8-444 

8-450 

8-537 

8-540 

8-543 

8-586 

8-590 

8-594 

8-630 

8-633 

8-635 

8-672 

8-675 

8-678 




sea 0298 

8-169 

8-172 

8-175 

3-212 

8-215 

8-218 

8-269 

8-272 

8-275 

8-311 

8-314 

8-317 

8-357 

f-360 

8-363 

8-402 

b-405 

8-408 

8-453 

8-456 

8-459 

8-546 

8-549 

8-552 

8-597 

8-600 

8-603 

8-639 

8-642 

8-645 

8-693 

8-696 

8-702 


8-39 

8-42 

8-45 

8-81 

8-84 

8-87 

8-123 

8-126 

8-130 

8-169 

8-172 

8-175 

8-212 

8-215 

8-218 

8-269 

8-272 

8-275 

8-311 

8-314 

8-317 

8-357 

8-360 

8-363 

8-402 

8-405 

8-408 

8-453 

8-456 

8-459 

8-546 

8-549 

8-552 

8-597 

3-600 

8-603 

8-639 

8-042 

8-645 

8-693 

8-696 

8-702 
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C 8 


SEO 0299 


EHT353 

8-720 

51-15# 



EMS1 

50-3 

50-154 

54-3# 


EMS10 

50-7 

50-11 

54-10# 


EMSIOO 

50-39 

50-71 

50-176 

50-196 

EMS101 

50-40 

50-59 

50-174 

50-197 

EMS102 

50-177 

50-178 

50-181 

50-182 

EMS103 

50-56 

50-57 

50-135 

50-141 


50-210 

50-211 

50-213 

50-214 

EMS104 

50-136 

50-180 

50-203 

54-70# 

EMS105 

50-204 

54-71# 



EMS106 

50-212 

50-232 

54-72# 


EMS11 

50-^2 

50-15 

50-16 

50-17 


50-28 

50-29 

50-30 

50-31 

EMS110 

50-9 

50-74 

50-77 

54-73# 

EMS111 

50-74 

50-226 

54-74# 


EMS112 

50-74 

54-75# 



EMS113 

50-75 

50-76 

50-127 

54-77# 

EHS114 

50-77 

54-78# 



EMS115 

50-44 

50-45 

50-48 

50-50 


50-73 

50-77 

50-107 

50-108 


50-179 

50-182 

50-183 

50-185 


50-205 

50-221 

50-222 

50-223 

EMS116 

50-74 

50-77 

50-191 

50-225 

EMS117 

50-77 

50-143 

50-148 

50-149 

EMS12 

50-12 

54-12# 



EMS120 

54-82# 




EKS121 

50-79 

50-88 

50-97 

50-99 

EMS122 

50-80 

50-89 

54-84# 


EMS123 

50-81 

50-88 

50-89 

50-90 

EMS124 

50-56 

50-82 

50-91 

50-101 

EMS125 

50-83 

50-92 

50-102 

50-169 

f MS 126 

50-84 

50-93 

50-103 

54-88# 

EHS127 

54-89# 




EMS13 

50-13 

50-42 

50-216 

54-13# 

EMS130 

50-86 

50-95 

50-106 

54-90# 

EHS131 

50-87 

50-96 

50-104 

54-91# 

EMS132 

50-79 

50-80 

50-81 

50-82 


50-93 

50-94 

50-95 

50-96 


50-125 

50-126 

50-168 

50-169 

EMS133 

50-79 

50-80 

50-81 

50-82 

EMS134 

50-88 

50-89 

50-90 

50-91 

EMS135 

50-97 

50-98 

54-95# 


EMS136 

50-99 

50-100 

50-101 

50-102 

EMS137 

50-85 

50-94 

50-100 

54-97# 

EMS14 

50-13 

54-14# 



EHS140 

50-44 

50-52 

50-60 

50-107 

EMS141 

50-35 

50-44 

50-45 

50-60 

EMS142 

50-47 

50-65 

50-108 

50-140 

EMS143 

50-47 

50-65 

50-73 

50-108 

EMS144 

30-36 

50-73 

50-109 

50-110 

EMS145 

50-36 

50-73 

50-109 

50-110 

EMS146 

50-109 

50-185 

50-190 

50-201 

EMS147 

50-69 

50-112 

50-113 

50-173 

EMS15 

50-13 

50-42 

50-216 

54-15# 

EMS150 

50-50 

50-51 

50-54 

50-63 


54-106# 





54-66# 


54-67# 

50-183 

50-184 

50-186 

50-187 

50-188 

50-196 

50-197 

50-198 

50-203 

50-204 

50-215 

50-219 

50-220 

54-69# 



50-18 

50-19 

50-20 

50-21 

50-22 

50-32 

50-33 

50-43 

50-152 

50-17 


50-51 

50-52 

50-54 

50-55 

50-60 

50-109 

50-110 

50-134 

50-137 

50-139 

50-186 

50-232 

54-80# 

50-187 

50-234 

50-188 

54-79# 

50-189 

50-190 

50-150 

50-178 

50-185 

50-201 

50-225 

54-83# 

50-90 

54-86# 

54-87# 

50-91 

50-92 

50-93 

50-94 


50-83 

50-84 

50-85 

50-86 

50-87 

50-97 

54-92# 

50-98 

50-99 

50-100 

50-101 

50-83 

50-84 

50-85 

50-86 

50-87 

50-92 

50-93 

50-94 

50-95 

50-96 

50-103 

50-104 

50-105 

50-106 

54-96# 

50-117 

50-137 

50-186 

50-192 

54-98# 

50-61 

50-66 

50-107 

50-122 

50-137 

50-184 

50-109 

50-205 

50-205 

54-104# 

50-217 

50-202 

50-110 

54-102# 

54-103# 

54-100# 

50-133 

50-140 

50-184 


54-105# 

50-67 

50-111 

50-134 

50-138 

50-182 


50-18R 

50-205 

50-234 

50-206 

50-235 

50-207 

54-68# 

50-208 

50-209 

50-23 
54- r,# 

50-24 

50-25 

50-26 

50-27 

WWIW 

ooo 
• • ' 

— *o 
o£'-‘ 

MO 

50-63 

50-142 

50-193 

50-66 

50-150 

50-194 

50-67 

50-151 

50-195 

50-70 

50-153 

50-201 

50-228 

50-229 

50-230 

50-231 

54-81# 

50-95 

50-96 

50-98 

50-126 

54-85# 

50-88 

50-102 

50-89 

50-103 

50-90 

50-104 

50-91 

50-105 

50-92 

50-106 

50-125 
50- 1 26 

54-93# 

54-94# 




50-187 

50-188 

50-193 

50-222 

54-99# 

50-202 

50-205 

54-101# 



50-183 

50-194 

50-195 

50-223 

50-234 


t 

J 



D 
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EHS151 

50-69 

50-112 

50-113 

EHS152 

50-50 

50-51 

50-54 

ENS153 

50-111 

54-109# 


ENS154 

50-111 

50-'. 12 

50-123 

EHS155 

50-112 

50-124 

54-111# 

ENS156 

50-113 

50-114 

50-115 

EMS157 

50-113 

50-123 

54-113# 

ENS16 

50-13 

54-16# 


EHS160 

50-114 

50-115 

50-116 

EHS161 

50-114 

54-115# 


EMS162 

54-116# 



EMS163 

50-58 

50-59 

50-60 


50-72 

50-73 

50-117 

ENS164 

50-45 

54-118# 


EHS165 

50-56 

50-57 

50-71 

ENS166 

50-142 

54-121# 


EHS167 

50-8 

50-49 

50-68 

EHS17 

50-1 < 

54-17# 


ENS170 

50-9 

54-123# 


EHS171 

50-57 

50-105 

50-125 

EHS1 72 

50-215 

54-125# 


EHS173 

50-214 

54-126# 


EHS174 

50-216 

54-127# 


EMS175 

50-216 

50-217 

50-218 

EHS176 

50-155 

54-129# 


EHS177 

50-127 

54-130# 


ENS2 

50-4 

50-5 

54-4# 

EHS20 

50-34 

50-53 

50-58 

EHS200 

50-128 

54-131# 


EF1S201 

50-128 

54-132# 


ERS202 

50-122 

50-130 

50-131 

ENS203 

50-122 

50-130 

50-131 

EHS204 

50-131 

54-135# 


EMS205 

50-55 

50-142 

50-179 

EHS206 

50-55 

50-142 

50-170 

EN3207 

50-168 

50-170 

54-138# 

ENS21 

50-15 

54-19# 


EHS210 

50-169 

50-170 

50-173 

EHS211 

50-170 

54-140# 


EWS212 

50-171 

50-172 

54 - 141 # 

EKS213 

50-171 

54-142# 


ENS214 

50-55 

54-145# 


EF1S215 

50-236 

54-144# 


EHS216 

50-237 

54-'^;# 


EHS217 

50-237 

54-146# 


EMS22 

50-16 

54-20# 


EWS220 

50-179 

54-147# 


EMS221 

50-231 

50-238 

54-H6# 

ENS222 

50-233 

54-149# 


£«S?23 

50-232 

54-150# 


ENS224 

50-121 

54-151# 


EMS225 

50-53 

50-150 

50-151 

EMS226 

50-53 

50-150 

50-153 

EHS227 

50-151 

54-154# 


EMS23 

50-17 

54-21# 


EHS230 

50-151 

50-152 

50-153 


50-173 

50-63 

50-217 

50-111 

54-107# 

50-134 

50-182 

50-124 

54-110# 



50-116 

50-151 

50-173 

54-112# 

54-114# 




50-61 

50-143 

50-62 

54-117# 

50-63 

50-64 

50-72 

50-172 

50-196 

50-197 

50-123 

50-124 

50-168 

50-169 

50-126 

54-124# 



50-219 

54-128# 



50-110 

50-118 

50-119 

50-120 

50-132 

50-132 

50-133 

50-133 

50-134 

50-155 

50-136 

50-174 

50-233 

50-179 

54-136# 

50-233 

54-137# 


54-139# 





50-153 54-152# 

54-153# 


54-155# 
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E 
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EMS231 

50-151 

54-156# 


EMS232 

54-157# 



EMS24 

50-18 

54-22# 


EMS25 

50-19 

50-115 

54-23# 

EMS26 

50-20 

50-116 

50-173 

EMS27 

50-16 

50-19 

50-20 

EMS3 

50-4 

50-76 

54-5# 

EMS30 

50-17 

50-18 

50-21 


50-33 

50-43 

50-122 


50-175 

50-176 

50-177 

EMS31 

50-21 

50-146 

50-207 

EMS32 

50-22 

54-28# 


EMS33 

50-23 

50-219 

54-29# 

EMS34 

50-24 

50-225 

50-226 

EMS35 

50-25 

50-216 

54-31# 

EMS36 

50-26 

50-213 

50-214 

EMS37 

50-27 

54-33# 


EMS4 

50-5 

50-75 

54-6# 

EMS40 

50-28 

50-220 

54-34# 

EMS41 

50-29 

50-190 

50-191 

EMS42 

50-30 

50-206 

54-36# 

EMS43 

50-31 

50-209 

54-37# 

EMS44 

50-32 

50-211 

50-230 

EMS45 

50-33 

50-210 

50-229 

EMS46 

50-43 

50-58 

50-120 

EMS47 

50-37 

50-44 

50-45 


50-193 

50-222 

54-41# 

EMS5 

50-6 

50-7 

34-7# 

EMS50 

50-46 

50-48 

50-64 


54-42# 



EMS51 

50-48 

50-55 

50-70 

EMS52 

5C-55 

50-142 

50-143 


50-233 

S4-44# 


EMS53 

50-37 

50-38 

50-39 


50-181 

50-182 

50-184 


50-204 

50-206 

50-207 

EMS54 

50-226 

54-46# 


EMS55 

50-227 

54-47# 


EHS56 

50-50 

50-51 

50-54 


50-223 

50-228 

50-234 

EMS57 

50-151 

50-190 

50-191 


50-203 

50-204 

50-205 


50-222 

50-223 

50-228 

EMS6 

50-6 

54-8# 


EHS60 

50-224 

54-50# 


EHS61 

50-224 

54-51# 


EMS62 

50-224 

54-52# 


EMS63 

50-42 

50-149 

50-190 

EHS64 

50-8 

50-14 

50-41 

EMS65 

50-41 

54-55# 


ErfS66 

50-34 

50-218 

54-56# 

EMS67 

50-43 

50-44 

50-45 

EMS7 

50-10 

54-9# 


EMS70 

50-48 

50-50 

50-52 


50-221 

54-58# 


EMS71 

50-51 

50-59 

50-63 


54-24# 

50-115 

50-116 

50-173 

54-25# 

50-22 

50-130 

50-199 

50-208 

50-23 

50-131 

54-26# 

54-27# 

50-24 

50-13? 

50-25 

50-133 

50-227 

54-30# 



50-215 

54-32# 



54-35# 




wiuiuitn 

1 1 1 1 

r\j^>O00 

50-177 

50-60 

50-185 

50-61 

50-199 

50-66 

50-70 

50-132 

50-135 

50-139 

50-130 

50-148 

50-139 

50-149 

50-142 

50-150 

50-179 

50-178 

50-40 

50-186 

50-216 

50-44 

50-187 

50-218 

50-45 

50-190 

50-219 

50-46 

50-191 

50-220 

50-62 

54-48# 

50-192 

50-206 

50-229 

50-63 

50-193 

50-207 

50-230 

50-67 

50-194 

50-208 

54-49# 

50-119 

50-195 

50-209 


54-53# 

50-144 

50-145 

50-146 

50-147 

50-46 

50-47 

50-48 

50-49 

50-54 

50-66 

50-70 

50-73 

50-183 

50-195 

50-208 

54-59# 


8 


SEQ 0301 


50-26 50-27 50-28 50-29 50-30 50-31 50-32 

50-144 50-145 50-146 50-147 50-152 50-155 50-174 


50-201 

50-117 

54-40# 

50-118 

50-147 

50-186 

50-187 

50-188 

50-192 

50-141 

50-181 

50-185 

50-189 

50-200 

50-201 

50-221 

50-189 

50-179 

50-221 

50-185 

54-43# 

50-201 

50-228 

50-229 

50-230 

50-231 

50-47 

50-192 

50-226 

50-62 

50-193 

54-45# 

50-64 

50-194 

50-65 

50-195 

50-73 

50-200 

50-140 

50-202 

50-141 

50-203 

50-143 

50-144 

50-178 

50-182 

50-183 

50-194 

50-195 

50-196 

50-210 

50-197 

50-211 

50-198 

50-213 

50-1 9V 
50-214 

50-200 

50-215 

50-201 

50-220 

50-202 

50-221 


50-199 

54-54# 




50-50 

50-51 

50-52 

50-54 

54-57# 

50-107 

50-110 

50-139 

50-182 

50-189 50-194 50-205 


J 


F 8 


SEQ 0302 
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ENS72 

50-36 

50-48 

50-51 

50-55 

50-56 

50-57 


50-139 

50-140 

50-142 

50-153 

50-179 

50-183 

ENS73 

50-49 

50-54 

50-67 

50-68 

50-136 

50-180 

EHS74 

50-69 

50-70 

50-134 

50-189 

50-217 

50-221 

ENS75 

50-35 

50-66 

50-67 

50-137 

50-138 

50-188 

ENS76 

50-35 

50-36 

50-37 

50-38 

50-39 

50-40 

ENS77 

50-38 

50-72 

50-148 

50-198 

54-65# 


ENT1 

8-3 

50-3# 





EMTIO 

8-24 

50-10# 





EMT100 

8-197 

50-66# 





EM T 101 

8-200 

50-67# 





EMT102 

8-203 

50-68# 





EMT103 

8-206 

50-69# 





EMT104 

8-209 

50-70# 





ENT105 

8-212 

50-71# 





EMT106 

8-215 

50-72# 





EMT107 

8-218 

50-73# 





EMT11 

8-27 

50-11# 





EMT110 

8-221 

50-74# 





EMT111 

8-224 

50-75# 





EMT112 

8-227 

50-76# 





EMT113 

8-230 

50-77# 





EMT114 

50-78# 






EMT115 

8-236 

50-79# 





EMT116 

8-239 

50-80# 





EMT117 

8-242 

50-81# 





EMT12 

8-30 

50-12# 





EMT120 

8-2*. 5 

50-82# 





EMT121 

8-248 

50-83# 





EMT122 

8-251 

50-84# 





EMT123 

8-254 

50-85# 





EMT124 

8-257 

50-86# 





EMT125 

8-260 

50-87# 





EMT126 

8-263 

50-88# 





EMT127 

8-266 

50-89# 





EMT13 

8-33 

50-13# 





EMT13C 

8-269 

50-90# 





EMT131 

8-272 

50-91# 





EMT132 

8-275 

50-92# 





ENT 133 

8-278 

50-93# 





EMT134 

8-281 

50-94# 





EMT135 

8-284 

50-95# 





EMT136 

8-287 

50-96# 





EMT137 

8-290 

50-97# 





EMT14 

8-36 

50-14# 





EMT14Q 

8-293 

50-98# 





EMT141 

8-296 

50-99# 





EMT142 

8-299 

50-100# 





EMT143 

8-302 

50-101# 





EMT144 

8-305 

50-102# 





EMTU5 

8-308 

50-103# 





EMT146 

8-311 

50-104# 





EMT147 

8-314 

50-105# 





EMT15 

8-39 

50-15# 





EMT150 

8-317 

50-106# 





EHT151 

8-320 

50-107# 






S— 1 6 


50-60 

50-61 

50-61 

50-63 

50-108 

50-109 

50-187 

50-193 

50-195 

50-232 

54-60# 


50-188 

54-62# 

50-222 

50-223 

50-234 

50-235 

54-61# 

50-222 

54-64# 

50-223 

50-234 

54-63# 




50-134 


50-135 
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G 8 


SEQ 0303 





H 8 

SEO 0304 
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EMT233 

8-471 

50-157# 


ENT234 

50-158# 



ENT235 

50-159# 



ENT236 

50-160# 



ENT237 

50-161# 

50-22# 


EMT24 

8-60 


ENT240 

50-162# 



EMT241 

50-163# 



ENT242 

50-164# 



EMT243 

50-165# 



ENT244 

50-166# 



ENT245 

50-167# 



ENT 246 

8-504 

50-168# 


ENT247 

8-507 

50-169# 


ENT25 

8-63 

50-23# 


ENT250 

8-510 

50-170# 


ENT251 

8-513 

50-171# 


ENT. 252 

8-516 

50-172# 


ENT253 

8-519 

50-173# 


ENT254 

8-522 

50-174# 


ENT255 

8-525 

50-175# 


EMT256 

8-528 

50-176# 


ENT257 

8-531 

50-177# 


ENT26 

8-66 

50-24# 


ENT260 

8-534 

50-178# 


ENT261 

8-537 

50-179# 


EHT262 

8-540 

50-180# 


ENT263 

3-543 

50-181# 


FHT264 

8-546 

50-182# 


ENT265 

8-549 

50-183# 


ENT266 

8-552 

50-184# 


ENT267 

8-556 

50-185# 


ENT 27 

8-69 

50-25# 


ENT 270 

8-559 

50-186# 


ENT271 

8-563 

50-187# 


ENT272 

8-566 

50-188# 


ENT273 

8-569 

50-189# 


ENT274 

8-573 

50-190# 


ENT275 

8-577 

50-191# 


ENT276 

8-581 

50-192# 


ENT277 

8-586 

50-193# 


ENT3 

8-9 

50-5# 


ENT30 

8-72 

50-26# 


ENT300 

8-590 

50-194# 


ENT301 

8-594 

50-195# 


ENT 302 

8-597 

50-196# 


ENT303 

8-600 

50-197# 


ENT304 

8-603 

50-198# 


ENT305 

8-606 

50-199# 


ENT306 

8-609 

50-200# 


ENT307 

8-612 

50-201# 


ENT31 

8-75 

50-27# 


ENT310 

8-615 

50-202# 


ENT311 

8-618 

50-203# 


ENT312 

8-621 

50-204# 


EMT313 

i 

8-624 

50-205# 





SEO 0305 


1 8 



SEQ 0306 
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J 8 


ENT57 

ENT6 

ENT60 

ENT61 

ENT62 

ENT63 

ENT64 

ENT65 

ENT66 

ENT67 

ENT7 

ENT70 

ENT 71 

ENT 72 

ENT73 

ENT74 

ENT75 

ENT76 

ENT77 

ENTVEC 

EQUALS 

ERR 

ERRNNB 

ERROR 

ERRTYP 

ERRVEC 


ERTYOO 

ERTY01 

ERTY02 

ERTY03 

ERTY04 

ERTY05 

ESRC 

FO 

FI 

F2 

F3 

F4 

FER 

FIND 


8-142 
8-18 
8-146 
8-150 
8-154 
8-157 
8-160 
8-163 
8-166 
8-169 
8-21 
8-172 
8-175 
8-178 
8-182 
8-185 
8-188 
8-191 
8-194 
4-479# 
47-3 # 
4-547# 
41-40* 
4-479# 

40- 1 
4-479# 
13-=66 
18-29 
20-9 
27-14* 

41- 21 
41-38 
41-43 
41-45 
41-144 
41-31 

4-619# 

4-490# 

4-489# 

4-488# 

4-487# 

4-486# 

4-571# 

13-114 

13-236# 

13-283# 

13-393 

13-466# 

13-485# 

13-507 

13-526# 

13-552# 

13-570 

13-580# 

13-608 

13-622# 


50-49# 

50-8# 

50-50# 

50-51# 

50-52# 

50-53# 

50-54# 

50-55# 

50-56# 

50-57# 

50-9# 

50-58# 

50-59# 

50-60# 

50-61# 

50-62# 

50-63# 

50-64# 

50-65# 

10-24* 

13-288 

41-41* 

41-13# 
10-24 
1 3— =67 
18-29 
20 - 10 * 
27-25* 
41-157# 
41-158# 
41-159# 
«t-160# 
41-161# 
41-162# 

22-29 

22-29 

22-29 

22-29 

22-29 

4-577 

13-114# 

13-243 

13-283# 

13-393# 

13-470 

13-485# 

13-507# 

13-528 

13-552# 

13-570# 

13-580# 

13-608# 

13-624 


10-24* 

1 3- : 38 
41-44 


10-24* 
13— =68* 
18-33* 
20 - 11 * 
27-25* 


23-147 


22-416 

13-114# 

13-243# 

13-337 

13-393# 

13-470# 

13-487 

13-507# 

13-528# 

13-554 

13-572 

13-585 

13-608# 

13-624# 


13— ;05 
41-49 


10-24* 

13-=69* 

18-34* 

20-31* 

39-1 


13-:71 

13— <37 

22-84 

22-86 

22-102 

22-136 





41-56 

41-152# 









10-26* 

10-27* 

13-5 

13-5 

13-6* 

13-7* 

13-20* 

13-20* 

13-24* 

13-24* 

13->08* 

13->G9* 

13-C66* 

13-C67* 

17-35 

17-35 

17-39* 

17-40* 

17-70* 

17-70* 

18-63* 

18-63* 

19-3 

19-3 

19-4* 

19-5* 

19-11* 

19-18* 

19-18* 

20-9 

20-31* 

25-20 

25-20 

25-21* 

25-22* 

25-51* 

25-51* 

27-12 

27-12 

27-13* 

39-1 

39-1* 

39-1* 

39-1* 

39-1* 

39-1* 

40-1 

40-1* 

40-1* 



13-132 

13-243# 

13-337# 

13-439 

13-470# 

13-4C7# 

13-509 

13-528# 

13-554# 

13-572# 

13-585# 

13-610 

13-624# 


13-132# 

13-245 

13-337# 

13-439# 

13-475 

13-487# 

13-5097 

13-533 

13-554# 

13-574 

13-585# 

13-610# 

13-626 


13-132# 

13-245# 

13-340 

13-439# 

13-475# 

13-492 

13-509# 

13-533# 

13-556 

13-574# 

13-598 

13-610# 

13-626# 


13-138 

13-245# 

13-340# 

13-460 

13-475# 

13-492# 

13-511 

13-533# 

13-556# 

13-574# 

13-598# 

13-615 

13-626# 


13-138# 

13-249 

13-340# 

13-460# 

13-48? 

13-492# 

13-511# 

13-538 

13-556# 

13-576 

13-598# 

13-615# 

13-628 


13-138# 

13-249# 

13-343 

13-460# 

13-481# 

13-499 

13-511# 

13-538# 

13-558 

13-576# 

13-603 

13-615# 

1 3-628# 


13-219 

13-249# 

13-343# 

13-463 

13-481# 

13-499# 

13-516 

13-538# 

13-558# 

13-576# 

13-603# 

13-620 

13-628# 


13-219# 

13-463# 

13-483 

13-499# 

13-516# 

13-548 

13-558# 

13-571 

13-603# 

13-620# 

13-633 


13-219# 

13-262# 

13-353 

13-463# 

13-483# 

13-505 

13-516# 

13-548# 

13-563 

13-578# 

15-606 

13-620# 

13-633# 


13-236 

13-262# 

13-353# 

13-466 

13-483# 

13-505# 

13-526 

13-548# 

13-563# 

13-578# 

13-606# 

13-622 

13-633# 


13-236# 

13-283 

13-353# 

13-466# 

13-485 

13-505# 

13-526# 

13-552 

13-563# 

1 3-580 

13-606# 

13-622# 

13-639 
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FHT16 


13-639# 
13-664 
13-683# 
13-705# 
13-735 
13-762# 
13-816# 
13-832 
13-894# 
13-929# 
13-956 
13-979# 
1 3- : 56# 
1 3—; 56 
1 3-<22# 
1 3— <61# 
1 3-<97# 
1 3 — = 33 # 
13-=78# 
13->30 
1 3->44# 
1 3->64# 
13— >91 
13-708# 
13-730# 
13-758 
13-770# 
13-791# 
13-821 
13-838# 
13-864# 
13-A03 
13-A13# 
13-A46# 
13-A58 
13-A89# 
13-819# 
13-836 
13-8o1# 
13-872# 
13— CIO# 
13-C93 
13-D03# 
13-D35# 
13-D49 
13-067# 
13-D93# 
13-E33 
13-E41# 
13-E75# 
13-E93 
13-F25# 
13-E58# 
13— F 71 
13-F97# 
4-641# 


13-639# 

13-664# 

13-691 

13-705# 

13-735# 

13-767 

13-816# 

13-832# 

13-908 

13-929# 

13-956# 

13-990 

l3-:56# 

13— ;56# 

13-<25 

13-<80 

13-=00 

13-=45 

13-= 78# 

13->30# 

13— >54 

13->64# 

13— >91# 

13-720 

13-730# 

13-758# 

13-781 

13-791# 

13-821# 

13-854 

13-864# 

13-A03# 

13-A15 

13-A46# 

13-A58# 

13-A91 

13-819# 

13-836# 

13-864 

13-874 

13— CIO# 

13-C93# 

13-D05 

13-035# 

13-049# 

13-D83 

13-093# 

13-E33# 

13-E43 

13-E75# 

13-E93# 

13-F27 

13-F58# 

13— F 71# 

13-F99 

13-927 


13-641 

13-664# 

13-691# 

1 3-71 8 

13-735# 

13-767# 

1 i— 81 8 

13-832# 

13-908# 

13-933 

13-956# 

13-990# 

13-:90 

13-.-56# 

13— <25# 

13-<80# 

l3-=00# 

13-= 4 5# 

13-=80 

13- >30# 

1 3— >54# 

1 3— >66 

1 3— >91# 

13-720# 

13-732 

13-758# 

13- 7 81# 

13-793 

13-821# 

13-854# 

13*866 

13-A03# 

13-A15# 

13-A48 

13-A58# 

13-A91# 

13-821 

13-836# 

13-864# 

13-874# 

13-C72 

13-C93# 

13-005# 

13-037 

13-049# 

13-083# 

13-D95 

13-E33# 

13-E43# 

13-E77 

13-E93# 

13-F27# 

13-F60 

13-F71# 

13-F99# 

13-937 


13-641# 

13-669 

13-691# 

13-718# 

13-740 

13-767# 

13-818# 

13-877 

13-908# 

13-933# 

13-961 

13-990# 

13-:90# 

13-;59 

1 3— <25# 

13-<80# 

13-=0S 

1 3— =45# 

l3-=80# 

13->32 

13— >54# 

13- >66# 

13->93 

13-720# 

13-732# 

13-760 

13-781# 

13-793# 

13-823 

13-854# 

13-866# 

13-A05 

13-A15# 

13-A48# 

13-A60 

13-A91# 

13-821# 

13-83® 

13-866 

13-874# 

13-C72# 

13-C95 

13-005# 

13-037# 

1 3—051 

13-083# 

13-D95# 

13-E35 

13-E43# 

13-E77# 

13— F 10 

13-F27# 

13-F60# 

13-F83 

13-F99# 

13— : 14 


13-641# 

13-669# 

13-693 

13-718# 

13-740# 

13-791 

13-818# 

13-877# 

13-910 

13-933# 

13-961# 

13-.-23 

13-:90# 

13-;59# 

1 3— <27 

13-<83 

13- =08# 

1 3— =47 

13-=80# 

13->3 2# 

13— >50 

13->66# 

13->93# 

13-724 

13-732# 

13-760# 

13-785 

13-793# 

13-823# 

13-856 

13-866# 

13-A05# 

13-A18 

13-A48# 

13-A60# 

13-A99 

13-821# 

13-838# 

13-866# 

13-893 

13-C72# 

13-C95# 

13-007 

13-037# 

13-051# 

13-D87 

13-D95# 

13-E35# 

13-E53 

13-E77# 

13-F1Q# 

13-F32 

13-F60# 

13-F83# 

13-G01 

13-:81 


3-655 

3-669# 

3-693# 

13-720 

3-740# 

3-791# 

3-820 

3-877# 

3-910# 

3-935 

3-961# 

3-:23# 

3-:93 

3-; 59# 

3 -<27# 

3-<83# 

3-=08# 

3-=4 7# 

3— >1 4 

3->3 2# 

3->58# 

3->75 

3->9 3# 

3-724# 

3-742 

3-760# 

3-785# 

3-804 

3-823# 

3-856# 

3-869 

5-A05# 

3-A18# 

3-A50 

3-A60# 

3-A99# 

3-830 

3-838# 

3-866# 

3-893# 

3-C86 

3-C95# 

3-0Q7# 

3-039 

3-051# 

3-087# 

3-097 

3-E35# 

3-E53# 

3-E79 

3-F10# 

3-F32# 

3-F62 

3-F83# 

3-G01# 

3-; 47 


3-655# 

3-677 

3-693# 

P 

3-791# 

3-820# 

3-886 

3-910# 

5-935# 

E 8 . 

3-: 93# 

3-; 61 

3-<27# 

3-<85 

3-=1 7 

3-=47# 

3— >14# 

3->34 

3->58# 

3— >75# 

3->95 

3-724# 

3-742# 

till, 

3-804# 

3-825 

3-856# 

3®i69# 

3-A07 

3-A18# 

3-A50# 

3-A62 

3-A99# 

3-830# 

3-844 


3-893# 

3-C86# 

3-C99 

3-007# 

\--ilr 

m 

3-E53# 

3-E79# 

3-F14 

3-F32# 

3-F62# 

3-F91 

3-G01# 

3-<13 


SEQ 0307 


3-655# 

3-677# 

3-695 

p 

m 


13-912 

13-935# 

13-966# 

13-.-26 

13-.-93# 

13— ;61# 

13-<55 

13— <85# 

13-= 17# 

13-=62 

13— >14# 

13->34# 

13->60 

13— >75# 

13— >95# 

13-726 

13-742# 

13-762# 

13-787 

13-804# 

13-825# 

13-858 

13-869# 

13-A07# 

13-A20 

13-A50# 

13-A62# 

13-801 

13-830# 

13-844# 

13-868# 

13-C04 

13-C86# 

13-C99# 

13-016 

13-039# 

13-053# 

13-089 

13-097# 

13-E37# 

13-E69 

13-E79# 

13-F14# 

13-F45 

13-F62# 

13-F91# 

ib? 


3-657 

3-677# 

3-695# 

m. 


13-657# 

13-695# 

13-722# 

13-760 




3-886# 

3-912# 

3-952 

3-966# 

mr 

3-<85# 

3- =17# 

3-=62# 

3->24 

3~>34# 

3->60# 

3->84 

3->95# 

3-726# 

3-752 

3-762# 

3-787# 

3-815 

3-825# 

3-858# 

3-871 

3-A07# 

3-A20# 

3-A54 

3-A62# 

3*801# 

3-832 

3-844# 

3-868# 

3-C04# 

3-C89 

3-C99# 

3-016# 

3-043 

3-053# 

3-089# 

PS. 

3-E69# 

3-E81 

3-F14# 

3-F45# 

3-F64 

3-F91# 

3-G03# 

3-877 


13-892 

13-912# 

13-952# 

13-968 

13-:26# 

13-.-95# 

13-;89 

13— <55# 

1 3— <87 

13— =29 

13- =62# 

1 3->24# 

13->36 

1 3->60# 

1 3->84# 

1 3->97 

13-726# 

13-752# 

13-764 

13-787# 

13-815# 

13-827 

13-858# 

13-871# 

13-All 

13-A20# 

13-A54# 

13-A87 

13-801# 

13-832# 

13-854 

13-870 

13-C04# 

13-C89# 

13-001 

13-016# 

13-043# 

13-055 

13-089# 

13-El 2# 

13-E39 

13-E69# 

13-E81# 

13-F16 

13— F 45# 

13-F64# 

13-F95 

13-G03# 

13-879 


13-657# 

13-681# 

13-700 

13-722# 

13-760# 

13*808 

13-822# 

13*892# 

13-917 

13-952# 

13-968# 

1 3- : 28 

13-:95# 

1 3—; 89# 

13— <58 

1 3— <87# 

1 3-=29# 

1 3— =76 

13->24# 

13->36# 

1 3->62 

13->84# 

13->97# 

13-723 

13-752# 

13-764# 

13-789 

13-815# 

13-827# 

13-862 

13-871# 

13-A11# 

13-A30 

13-A54# 

13-A87# 

13-806 

13-832# 

13-854# 

13-870# 

13-C08 

13-C89# 

13-001# 

13-031 

13-043# 

13-055# 

13-091 

13-El 2# 

13-E39# 

13-E73 

13-E81# 

13-F16# 

13-F47 

13-F64# 

13-F95# 


13-659 

13-681# 

13-700# 

13-730 

13-760# 

13-808# 

13-824 

13-892# 

13-917# 

13-954 

13-968# 

13-:28# 

13—; 23 

13-;89# 

13-<-58# 

13-<87# 

13-=29# 

13- =76# 

13— >28 

13->36# 

1 3— >62# 

13->89 

13— >97# 

13-728# 

13-756 

13-764# 

13-789# 

13-819 

13-827# 

13-862# 

13-886 

13-A11# 

13-A30# 

13-A56 

13-A87# 

13-806# 

13-834 

13-854# 

13-870# 

13-C08# 

13-C91 

13-001# 

13-031# 

13-047 

13-055# 

13-091# 

13-E29 

13-E39# 

13-E73# 

13-E83 

13-F16# 

13-F47# 

13-F66 

13-F95# 


13-659# 

13-683 

13-700# 

13-730# 

13-762 

13-808# 

13-824# 

13-894 

13-917# 

13-954# 

13-979 

1 3- : 28# 

13-;23# 

13— <22 

1 3— <61 

13-<9 7 

1 3— =33 

13® =76# 

13->28# 

13->44 

13- >62# 

13->89# 

13-708 

13-728# 

13-756# 

13-770 

13-789# 

13-819# 

13-838 

13-862# 

13-886# 

13-A13 

13-A30# 

13-A56# 

13-A89 

13-806# 

13-834# 

13-861 

13-872 

13-C08# 

13-C91# 

13-003 

13-031# 

13-047# 

13-067 

13-091# 

13-E29# 

13-E41 

13-E73# 

13-E83# 

13-F25 

13-F47# 

13-F66# 

13-F97 


13-659# 

13-683# 

13-705 

13-730# 

13-762# 

13-816 

13-824# 

13-894# 

13-929 

13-954# 

13-979# 

1 3- : 56 

13-.-23# 

1 3-<22# 

1 3 — < 61 # 

13-<97# 

1 3-=33# 

13-=78 

1 3->28# 

13->4a# 

13->64 

1 3->89# 

13-708# 

13-730 

13-756# 

13-770# 

13-791 

13-819# 

13-838# 

13-864 

13-886# 

13-A13# 

13-A46 

13-A56# 

13-A89# 

13-819 

13-834# 

13-861# 

13372# 

13— CIO 

13-C91# 

13-003# 

13-035 

13-047# 

13-067# 

13-093 

13-E29# 

1 3— €41# 

15-E75 

\m 

13-F58 

13-F66# 

13-F97# 


13-892 13-A35 13-C35 13-C55 


j 


I 8 
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13-C57 

13-C77 

13-D19 

13-E03 

13-E05 

13-E18 

13-E58 

13-F75 

22-448 

26-59 

32-100 




FNCDTB 

13-: 29 

1 3— : 37 

13-:96 

13— ; 04 

13-;62 

13—; 70 

13-<28 

13-<36 

22-130 

22-446 

48-55# 




FNCMSK 

4-49 2# 

31-17 













GET 

13-138 

13-243 

13-262 

13-283 

13-337 

13-353 

13-393 

13-439 

13-460 

13-481 

13-499 

13-505 

13-526 

13-552 


13-574 

13-603 

13-620 

13-639 

13-669 

13-681 

13-705 

13-720 

13-740 

13-752 

13-806 

13-816 

13-877 

13-892 


13-933 

13-966 

13-979 

1 3— : 26 

13— :93 

13-;59 

1 3— <25 

13— <85 

13-=08 

1 3— =1 7 

13-=47 

13-=78 

1 3->28 

1 3->58 


1 3->89 

13-724 

13-756 

13-785 

13-819 

13-854 

13-862 

13-A03 

13-A11 

13-A46 

13-A54 

13-A89 

13-B21 

13-B30 


13-864 

13-C08 

13-C89 

13-C99 

13-D35 

13-D47 

13-D87 

13-E33 

13-E73 

13-F14 

13-F47 

13-F58 

13-F95 

15-47 


15-90 

15-114 

15-143 

15-170 

15-201 

17-31# 









GETBUF 

7-0# 

17-37 













GETINX 

7-0# 

13-258* 

13-259* 

13-260* 

16-13 

17-38 









GETSTS 

13-136 

13-241 

13-281 

13-334 

13-351 

13-457 

13-478 

13-497 

13-523 

13-549 

13-570 

13-600 

13-618 

13-636 


13-667 

13-703 

13-738 

13-796 

13-852 

13-889 

13-930 

13-964 

13-992 

1 3— ; 58 

13-;25 

1 3— ;91 

1 3-<58 

13-=G0 


1 3-=65 

1 3— >25 

1 3— >55 

1 3— >86 

13-721 

13-753 

13-782 

13-816 

13-850 

13-899 

13-A42 

13-A86 

13-B18 

13-855 


13-B91 

13-C85 

13-D30 

1 3-D 79 

13-E25 

13-E65 

13-F09 

13-F44 

13-F85 

15-46 

16-10# 




GNS 

5-1 

5-1 

10-6 

10-29 

10-43 

10-54 

10-60 

12-30 

14-20 

14-20 

44-1 

44-1 

44-1 

44-1 


44-1 

44-1 

44-1 

44-1 

44-1 

44-1 

44-1 

44-1 

44-1 

44-1 

44-1 

44-1 

44-1 

44-1 


44-1 

44-1 

44-1 

44-1 

44-1 

44-1 

44-1 

44-1 







GO 

4-491# 

13-332 

13-437 

13-456 

13-477 

13-496 

13-522 

13-542 

13-565 

13-567 

13-588 

13-617 

13-635 

13-666 


13-679 

13-702 

13-737 

13-750 

13-793 

13-854 

13-888 

13-928 

13-963 

1 3- : 06 

1 3— : 08 

1 3- : 75 

13-;39 

1 3— ;41 


1 3-<05 

13-<07 

1 3— <65 

13-=06 

13— =1 3 

13-= 15 

1 3->1 8 

13— >48 

13— >78 

13-713 

13-746 

13-774 

13-aos 

13-840 


13-888 

13-A32 

13-A76 

13-B11 

13-848 

13-858 

13-C02 

13-C78 

13-C94 

13-D22 

13-D42 

13-D72 

13-E14 

13-E55 


13-F01 

13-F35 

13-F76 

13-F90 

15-125 

15-183 

20-17 

21-90 

21-102 

21-107 

21-123 

22-51 

22-54 


GTSUR 

10-29 

44-1# 













MCE 

4-568# 

4-577 

22-379 

22-384 

22-399 

22-401 

22-414 

22-429 

22-452 

22-457 

48-77 

48-78 

48-81 

48-85 


48-86 














HCI 

4-643# 

13-927 

13-937 

22-377 











HCRC 

4-567# 

4-577 

22-386 












HELP 

11-17 

58-7# 













HT 

4-479# 

38-1 

38-1 

41-82 











IAE 

4-565# 

13-;63 

13-;65 

13-869 

13-A18 

13-A60 

13-D95 

13-E41 

13-E81 

22-283 

23-123 

23-139 

23-166 

26-48 


26-72 

30-&4 

30->8 

30-81 

32-89 

32-113 

48-59 

48-69 

48-77 

48-78 

48-81 

48-82 

48-85 

48-86 

IBSAVE 

40-1 

40-1 

40-1 

40-1 

40-1 

40-1# 

40-1* 

40-1* 

40-1* 






IOXMSK 

4-704# 

17-51 

17-54 

18-45 

18-48 










IE 

4-717# 

4-750# 

13-793 

13-854 











ILF 

4-575# 

13-:30 

1 3— : 32 

22-155 

22-157 

29-51 

29-111 

29-115 

30-24 

30-45 

30-48 

48-58 

48-E7 

48-68 


48-70 

48-71 

48-72 

48-73 

48-74 

48-75 

48-76 

48-79 

48-80 

48-83 

48-84 

48-87 

48— f 8 


ILF 02 

4-496# 














ILF24 

4-506# 














ILF26 

4-507# 














ILF30 

4-511# 














ILF 32 

4-511# 














ILF34 

4-511# 














ILF36 

4-511# 














ILF40 

4-511# 














ILF42 

4-511# 














ILF44 

4-511# 














ILF46 

4-511# 














ILF54 

4-514# 














ILF 56 

4-515# 














ILF64 

4-518# 














ILF66 

4-519# 














ILF 74 

4-522# 














ILF 76 

4-523# 

13— :49 

13—; 16 

13-;82 

13— <48 

13— <91 









:lr 

4-574# 

1 3— =83 

1 3— =95 

29-5 1 

29-97 

29-101 

30-232 

30-236 

30-239 






ILRG50 

4-702# 















j 


h 8 
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ILRG52 

4-702# 







ILRG54 

4-702# 







ILRG56 

4-702# 







ILRG60 

4-702# 







ILRG62 

4-702# 







ILRG64 

4-702# 







1LRG66 

4-702# 







ILRG70 

4-702# 







ILRG72 

4-702# 







ILRG74 

4-702# 







ILRG76 

4-702# 







INSERT 

13-48 

13-93 

47-32# 





IOTVEC 

4-479# 

10-24* 

10-24* 





IPCKO 

4-754# 







ipcki 

4-753# 







IPCK2 

4-752# 







IPCK3 

4-751# 







1R 

4-730# 

13-156 

28-56 




13-A96 

I VC 

4-669# 

13-529 

l3-:97 

13-:99 

13-A92 

13-A94 

26-90 

26-213 

30-92 

30-99 

30-102 

30-171 

32-130 


48-62 

48-63 

48-64 

48-67 

48-68 

48-69 

48-70 


48-78 

48-79 

48-80 

48-81 

48-82 

48-83 

48-84 

LBC 

4-671# 

13-440 

13-443 

13-444 

23-127 



LBT 

4-551# 

13-288 

22-358 

23-125 

47-30 

47-31 

LF 

4-479# 

38-1 

38-1 

41-80 

47-11 

IODEV 

10-117 

47-21# 


31-70 




LS 

4-628# 

13-179 

28-80 




LSC 

4-670# 

13-591 






LST 

4-629# 

13-179 

28-80 

31-70 



32-95 

LSTRK 

7-0# 

12-55* 

13-390 

13— El 6 

23-62 

26-54 

MANUAL 

7-0# 

11-59* 

11-69* 

13-35 




MCLK 

4-602# 





21-123 

32-70 

HCPE 

4-712# 

13-266 

21-90 

21-107 

21-120 

MDF 

4-607# 

13-391 

22-482 





HOPE 

4-728# 

13-271 





MI 

4-610# 







MINSTR 

13-41 

47-30# 




13— <01 

1 3— =04 

MOC 

4-605# 

13-391 

13-:02 

13-.68 

13-;35 

MOH 

MOL 

4-636 # 
4-549# 

10-98 

13-285 

13-289 

13-317 

13-360 

13-363 

26-172 

26-200 

29-37 

29-40 

30-68 

30-145 

30-146 


32-213 

33-35 

33-36 

33-40 

33-45 



MRO 

4-603# 







MS 

4-608# 







MSC 

4-611# 







MSORVS 

11-81 

47-16# 






MSE 

4-678# 

13-391 






MSER 

4-606# 






MSGORV 

12-59 

47-17# 






MSHELP 

11-11 

47-7# 






MSMNUL 

11-60 

47-28# 






MSUNIT 

13-39 

47-29# 



13— ;35 

13— <01 

1 3-=04 

MUR 

4-604# 

13-391 

13— : 02 

13-:68 

MUD 

4-627# 

13-180 

28-81 

31-71 




MUP 

4-609# 

13-391 

13— <01 





MXF 

4-727# 

13-271 

22-343 






13-A99 

32-154 

48-71 

48-85 

13-F18 

32-157 

48-72 

48-86 

13-F20 

32-244 

48-73 

48-87 

13-F22 

33-58 

48-74 

48-88 

13-F25 

48-58 

48-75 

22-198 

48-59 

48-76 

22-199 

48-60 

48-77 

54-79 








32-75 







13-=11 

13-400 

13-403 

13-404 

26-151 

26-161 

26-162 

26-167 

30-153 

30-158 

31-30 

32-194 

32-205 

32-206 

32-210 


13-= 11 


I 


N 
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N 

11-19 

47-36# 






NDTMSK 

4-577# 

13-624 

13-655 

13-691 

13-820 

13-908 

13-952 


13-969 

13-A18 

13-A60 

13-A99 

13-B36 

13-872 

13-D05 

NED 

4-724# 

10-87 

13-80 

13-271 

21-72 

21-76 

25-31 

NEM 

4-725# 

22-328 






NONE 

12-7 

47-27# 






NOP 

4-495# 

13-247 

13-617 

13-679 

13-750 

13-863 

13-993 

NOTAVL 

10-105 

47-23# 






NOTPRS 

10-102 

47-22# 






NOTRM 

10-96 

47-20# 






NSA 

4-634# 







OCC 

4-615# 







OFD 

4-645# 

13-927 

13-937 





OFFSET 

4-501# 

13-565 

13-635 

13-666 

13-702 

13-737 

13-793 

ON 

4-556# 

13-317 

13-642 

13-645 

13-646 

13-895 

1 3-899 


30-204 

31-29 






OPE 

4-668# 

13-55 

13-57 

13-66 




OPI 

4-562# 

22-182 

26-145 

26-169 

29-51 

29-69 

29-73 


33-42 

48-57 

48-58 

48-59 

48-60 

48-61 

48-62 


48-70 

48-71 

48-72 

48-73 

48-74 

48-75 

48-76 


48-84 

48-85 

48-86 

48-87 

48-88 



OR 

4-729# 







PACACK 

4-505# 







PAKACK 

4-504# 

4-505 

13-332 

13-456 

13-.-06 

13-;39 

1 3-<05 

PAR 

4-572# 

1 3-=49 

13— =51 

21-135 

21-139 

21-151 

26-30 

PAT 

4-732# 

13-=37 






PDA 

4-622# 







PFECH 

41-59 

41-164# 






PFECH1 

41-164 

41-165# 






PFECH2 

41-164 

41-168# 






PFECH3 

41-164 

41-171# 






PFECH4 

41-164 

41-173# 






PGE 

4-726# 

13-271 






PGM 

4-552# 

13-317 

31-29 





PHA 

4-623# 







PIP 

4-548# 

13-288 

13-366 

13-369 

13-370 

13-406 

13-409 


26-182 

26-187 

30-145 

30-216 

30-221 

31-29 

32-205 

PIRQ 

4-479# 







PIRQVE 

4-479# 







PLFS 

4-620# 







PRO 

4-479# 







PR1 

4-479# 







PR2 

4-479# 







PR3 

4-479# 

39-5 






PR4 

4-479# 







PR5 

4-479# 

12-48 

39-9 





PR6 

4-479# 

10-27 

13-7 

13-774 

13-783 

13-839 

13-842 

PR7 

4-479# 

13-781 

13-848 





PR 1 ERR 

13-340 

13-463 

13-483 

13-507 

13-528 

13-554 

13-576 


13-894 

13-935 

13-968 

13-.-28 

1 3— :95 

13-;61 

13-<27 


13-787 

13-321 

13-364 

13-A13 

13-A56 

13-A91 

13-832 


13-E35 

13-E75 

13-F16 

13-F60 

13-F97 

21-39# 


PS 

4-479 

4-479# 






PSEL 

4-713# 







PSW 

4-479# 







PULL 

13-45 

47-33# 







8 


SEO 0310 


1 3— >34 
13-D53 

1 3->64 
13-D95 

1 3— >95 
13-E41 

13-730 

13-E81 

13-762 
13— F 25 

13-791 

1 3— F 64 

13-825 

13-G01 

13-.-59 

1 3-; 26 

13-.-92 

13— <59 

13-=13 



13-854 

13-969 

13-963 

13-972 

13— =1 5 
13-973 

13-848 

13-980 

13-F76 

13-983 

30-145 

30-201 

30-24 

48-63 

48-77 

30-61 

48-64 

48-78 

30-64 

48-65 

48-79 

30-155 

48-66 

48-80 

32-187 

48-67 

48-81 

32-190 

48-68 

48-82 

32-215 

48-69 

48-83 

1 3— =06 
30-24 

15-125 

30-29 

30-34 

32-50 

32-57 



13-500 

32-226 

13-B22 

32-231 

13-B25 

33-35 

13-F49 

33-72 

13-F53 

33-77 

15-180 

26-161 

13-=69 

17-40 

18-34 

19-5 

20-11 

25-22 

27-14 

13-606 
13— <87 
13-B68 

13-622 

1 3-=80 

1 3— CIO 

13-641 

1 3->30 
13-C91 

13-683 

13->60 

13-D01 

13-722 

1 3— >91 
13-D37 

13-808 

13-726 

13-D49 

13-818 

13-758 

13-D89 
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SEQ 031 1 


PUTBUF 
PUT I NX 


13-114 
13-496 
13-737 
1 3— : 23 
l3-=02 
1 3-858 
13-D83 
7-0# 
7-0# 

1 3-391 * 
13-496* 
13-617* 
13-748* 
13-963* 


13-132 

13-518 

13-748 

1 3- : 66 

13-=04 

13-A07 

13-E29 

18-31 

13-111* 

13-437* 

13-518* 

13-635* 

13-750* 

13-963* 


13-219 
13-520 
13-750 
1 3- : 68 
1 3-=06 
13-A50 
13-E69 

13-112* 

13-437* 

13-518* 

13-635* 

13-750* 

13-977* 


13-236 
13-522 
13-791 
1 3— : 90 
13-=11 
13-A74 
13-E95 

13-124 

13-452* 

13-520* 

13-666* 

13-788* 

13-977* 


13-256 
13-548 
13-793 
1 3— ;33 
13-=13 
13-A87 
13— F 1 0 

13-216* 
13-452* 
13-520* 
13-666* 
13-789* 
13—: 00* 


13-332 
13-565 
13-854 
1 3—; 35 
13-=15 
13-819 
13-F45 

13-217* 
13-454* 
13-522* 
13-679* 
13-793* 
13— : 00* 


13-350 
13-567 
13-863 
1 3—; 39 
1 3— =45 
13-854 
13-F83 

13-228 

13-454* 

13-522* 

13-679* 

13-793* 

13-:02* 

1 3- ; 39* 



1 • VW 

1 3— <05* 

1 ^ * Wfc 

13-<14 

13-<63* 

13— <63* 

1 3— <72 

13-=02* 

1 3— =02* 


13-= 13* 

13--15* 

13— =1 5* 

13-=40 

13— >1 9 

13— >49 

1 3— >79 


13-A74* 

15-^74* 

13-A80 

13-B12 

13-849 

13-859* 

1 3-B60* 


13-E95* 

13-F02 

13-F38 

13-F77 

13-F88* 

13-F89* 

15-126* 

PWRVEC 

4-479# 

10-24* 

10-24* 

45-1* 

45-1* 

45-1* 

45-1* 

QUES 

47-5# 







R6 

4-479# 

10-24 

10-24* 

10-24* 




R7 

4-479# 







RCLSTS 

13-485 

13-556 

13-578 

15-209 

30-15# 



RD 

4-520# 







RDCHR 

11-12 

11-82 

11-99 

42-1 

44-1# 



RDL IN 

11-61 

13-51 

13-96 

43-1 

44-1# 



ROOCT 

11-35 

11-49 

44-1# 





ROY 

4-716# 

13-143 

20-17 

20-18 

21-86 

21-89 

28-31 

READY 

12-37# 

14-16 

14-20 





RECAL 

4-498# 

13-477 

13-496 

13-522 

13-542 

13-567 

15-183 

RE3REG 

41-148 

44-1# 






RESVEC 

4-479# 







RET 

13-50 

13-95 

47-34# 





REX 

4-618# 







RG 

4-616# 







RH 

4-521# 







RIP 

4-503# 

13-928 






RLEASE 

4-500# 







RftAS 

4-688# 

13-716 

13-788 





RflASI 

7-0# 

13-168 

31-50 

56-13 




RflASO 

7-0# 

13-715* 

13-787* 





RMBA 

4-760# 

13-12* 

13-13 

13-125 

13-229 

13-:16 

13-:83 

RNBAE 

4-763# 







RMBAEI 

7-0# 







RMBAEO 

7-0# 







RMBAI 

7-0# 

13-149 

23-32 

23-34 

28-42 

56-14 


RNBAO 

7-0# 

13-117* 

13-222* 

13-: 10* 

13-:77* 

13— ;43* 

1 3-<09* 

RNCS1 

4-684# 

4-758# 

10-89 

13-9* 

13-79 

13-129 

13-233 


13-522 

13-546 

13-565 

13-567 

13-596 

13-617 

13-635 


13-863 

13-888 

13-923 

13-963 

13-:06 

13— :21 

1 3— : 88 


13— =1 5 

13-=96* 

13— >22 

13— >52 

13->82 

13-71?' 

13-750 


13-852 

13-659 

13-889 

13-C83 

13-D28 

13-D77 

13-E23 


17-42 

18-36 

20-16 

25-28 




RRCS1I 

7-0# 

13-141 

13-264 

21-65 

21-67 

21-69 

21-86 


21-124 

22-51 

22-53 

22-64 

22-107 

23-12 

28-29 


13-391 
13-598 
13-888 
13— ; 56 
13— >24 
13-861 
13-F91 

13-256* 

13-456* 

13-543 

13 702* 

13-854* 

13-:02* 

13-;39* 

1 3— =04* 

13-714 

13-B85 

15-127* 

45-1* 


13-437 
13-617 
13-929 
13-.-99 
1 3— >54 
13-893 
15-128 

13-256* 

13-456* 

13-565* 

13-702* 

13-854* 

1 3— : 06* 

13-.-48 

13— =04* 

13-747 

13-C79 

15-184* 

45-1* 


13-452 

13-454 

13-456 

13-477 

13-494 

13-635 

13-666 

13-679 

13-702 

13-718 

13-963 

13-977 

13-.-00 

13-:0 2 

13-:06 

1 3— <01 

13— <05 

13-<22 

1 3-<63 

1 3-<80 

1 3— >84 

13-720 

13-752 

13-781 

13-815 

13-C04 

1S-C86 

13-C95 

1 3—031 

13-043 

15-186 

18-28# 




13-332* 

13-332* 

13-350* 

13-350* 

13-391* 


13-477* 

13-565* 

13-716* 

13-863* 

13-:06* 

1 3—; 99* 

13-=06* 

13-775 

13-D24 

15-185* 


13-;49 1 3— <1 5 13-<73 


13— <67* 

13-256 

13-666 

13-;39 

13-778 

13-E63 

21-88 

31-16 


13-477* 

13-567* 

13-71?* 

13-863* 

1 3- : 1 5 

13-.-99* 

13-=06* 

13-809 

13-D73 

18-32 


13-494* 
13-567* 
13-737* 
13-888* 
1 3- : 66* 
1 3— <01 * 
1 3-=1 1 * 
13-844 
13— E 1 9 
21-142 


13-494* 

13-592 

13-737* 

13-888* 

13-.-66* 

1 3— <01 * 

1 3— =1 1 * 

13-893 

13-E59 


13-496* 

13-617* 

13-748* 

13-919 

13-:68* 

1 3— <05* 

13-= 13* 

13-A36 

13-E95* 


23-26 

13-258 

23-30 

13-332 

13-437 

13-456 

13-47? 

13-496 

13-679 

13-702 

13-737 

13-750 

13-793 

13-854 

13-.-54 

1 3— <05 

13— <20 

1 3— <78 

l3-=06 

1 3— =1 3 

13-812 

13-848 

13-897 

13-A40 

13-A84 

13-816 

13-F07 

13-F42 

13-F81 

13-F88 

15-126 

15-184 

21-91 

21-102 

21-106 

21-108 

21-120 

21-122 

32-70 

32-74 

32-76 

56-13 




C 9 


SEQ 0312 
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RHCS10 

7-0# 

13-121* 

13-226* 

13-247* 


13-588* 

13-617* 

13-635* 

13-666* 


1 3- : 06* 

l3-:08* 

13-:09* 

1 3— : 75 * 


13- r 13* 

13-=15* 

1 3— >1 8* 

l3->48* 


13-8^8* 

13-658* 

13-634* 

13-C02* 


13-F90* 

15-125* 

15-183* 

22-28 

RMCS2 

4-761# 

10-84* 

10-85* 

10-87 


13-78 

13-130 

13-135* 

13-234 

RMCS2I 

7-0# 

13-153 

13-270 

21-47 


23-28 

28-51 

56-13 


RMCS20 

7-0# 

13-122* 

13-227* 

13-=38* 

RMC53 

4-764# 




RMCS3I 

7-0# 




me $30 

7-0# 




RHOA 

4-685# 

13-545 

13-593 

13-920 


13-749 

13-777 

13-910 

13-946 


13-E62 

13-F05 

13-F40 

13-F78 

RMOAI 

7-0# 

13-941 

13-943 

23-100 

RMDAO 

7-0# 

13-541* 

13-587* 

13-925* 


13-745* 

13-773* 

13-907* 

13-943* 


13-647* 

13-683* 

13-C76* 

13-D09* 


13-E45* 

13-E46 

13-E57* 

13-E99* 


32-98 

32-102 

32-106 


RMOB 

4-762# 

13-18* 

13-19 

13-111 

RFC8I 

7-0# 




RMOBO 

7-0# 

13-110* 

13-215* 


RMCC 

4-694# 

13-544 

13-921 

13-977 


13-776 

13-311 

13-947 

13-995 


13-F04 

13-F39 

13-F79 


RMDCI 

7-0# 

13-946 

13-948 

23-184 

RFCCO 

7-0# 

13-540* 

13-926* 

13-977* 


13-711* 

13-744* 

13-772* 

13-795 


13-609* 

13-646* 

13-682* 

13-C75* 


23-59 

26-50 

32-91 


RFCS 

4-686# 

10-86 

10-98 


RHDSI 

7-0# 

13-202 

13-285 

13-287 


13-400 

13-402 

13-406 

13-408 


13-673 

13-684 

13-686 

13-706 


13-903 

13-969 

13-971 

13-980 


13-624 

13-F49 

13-F52 

15-122 


22-358 

23-126 

26-96 

26-151 


26-211 

26-215 

26-217 

28-124 


30-157 

30-159 

30-169 

30-173 


51-23 

32-161 

32-194 

32-204 


32-260 

32-262 

33-34 

33-40 

RMO SO 

7-0# 




RFCT 

4-691# 

10-92 

10-94 

41-26 

RFCTI 

7-0# 

56-5 

56-17 


RFC TO 

7-0# 




RFC Cl 

4-698# 




RFCC1I 

7-0# 

56-14 



RFCC10 

7-0# 




RFCC2 

4-699# 

16-15 



RFCC2I 

7-0# 

13-186 

16-14 

28-92 

RFC C 20 

7-0# 




RFCR1 

4-687# 

13-126 

13-230 

13-494 
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13-256* 

13-332* 

13-437* 

13-456* 

13-477* 

13-679* 

13-702* 

13-737* 

13-750* 

13-793* 

13-.-76* 

1 3— ;39* 

13-;41* 

13-.-42* 

1 3-<05* 

1 3— >78* 

13-713* 

13-746* 

13-774* 

13-908* 

13-C78* 

13-C94* 

13-022* 

13-042* 

13-072* 

23-48 





12-53* 

12-54* 

13-14 

13-15* 

13-16 

13-259 

13-=/ 1 

17-41 

18-35 

25-27* 

21-72 

21-7 ♦ 

21-75 

22-99 

22-170 

13-.-19 

13-.-86 

1 3—; 52 

13-<18 

l3-<76 

13-996 

13-A37 

13-A82 

13-813 

13-651 

23-171 

56-14 

56-16 



13- : 12* 

l3-:79* 

1 3—; 45* 

13-<11* 

13— <69* 

13-973* 

13-974 

13-980* 

13-990* 

13-991* 

13-010 

13-018* 

13-059* 

13-060 

13-071* 

13-F37* 

13-F74* 

23-60 

23-61 

23-100 

13-216 

16-20 

* 



13-.-20 

13— : 87 

13-.-53 

13— <19 

1 3-<77 

13-A38 

13-A83 

13-614 

13-650 

13-687 

56-14 

56-16 




13— : 13* 

5:80* 

13-;46* 

13— <12* 

13— <70* 

13-797* 

13-906* 

13-929 

13-931* 

13-942* 

13-023* 

13-041* 

13-070* 

13-El 5* 

13-E56* 

13-290 

13-314 

13-316 

13-318 

13-360 

13-412 

13-414 

13-430 

13-432 

13-500 

13-708 

13-723 

13-725 

13-741 

13-743 

13-982 

13-.-38 

13-:42 

13-.-05 

13-;09 

15-180 

21-104 

22-38 

22-40, 

22-8 5 

26-160 

26-167 

26-171 

26-173 

26-182 

29-23 

29-25 

29-27 

29-37 

29-39 

30-174 

30-135 

30-187 

30-189 

30-201 

32-210 

32-212 

32-214 

32-226 

32-230 

33-44 

33-46 

33-56 

33-60 

33-61* 

31-94 

56-15 




13-595 

13-748 

1 3— <63 

13-815 

13-F41 


13-496* 

13-522* 

13-542* 

13-565* 

13-567* 

13-854* 

13-863* 

13-888* 

13-928* 

13-963* 

13-<07* 

13-<08* 

13— <65* 

1 3-<66* 

13-=06* 

13-940* 

13-888* 

13-A32* 

13-A76* 

13-611* 

13-E14* 

13-E55* 

13-F01* 

13-F35* 

13-F76* 

13-17* 

13-54* 

13-61* 

13-62* 

13-70 

25-29 

27-16* 

27-18* 

22-344 

22-483 

22-271 

22-314 

22-329 


13-=42 

13-886 

13->21 

13-C80 

1 3— >51 
13-027 

13— >81 
13-076 

13-715 

13-E20 

13- =39* 
13-A22* 
13-099* 
26-54 

13— >1 7* 
13-A23 
13-E00 
26-57 

13— >47* 
13-A34* 
13-E06* 
26-61 

1 3— >77* 
13-A79* 
13-E16* 
26-65 

13-712* 
13-810* 
13-El 7* 
32-95 

13->20 

13-C81 

13->50 

13-026 

13->80 

13-074 

13-716 

13-E21 

13-748 

1 3— €61 

13— >16* 
13-989* 
13-E85* 

1 3->46* 
13-A33* 
13-E86 

13->73* 

13-A64* 

13-E98* 

1 3->99* 

13-A65 

13-F36* 

13-700 

13-A78* 

13-F73* 

13-36? 
13-642 
13-753 
13— j 71 
22-^02 
26-186 

29- 41 

30- 203 

32- 232 

33- 62 

13-366 

13-644 

13-756 

13-:75 

22-136 

26-188 

30-68 

30-205 

32- 242 

33- 72 

13-368 

13-648 

13-895 

13-<37 

22-140 

26-197 

30-106 

30-216 

32- 246 

33- 76 

13-372 
13-650 
13-898 
13— <41 
22-196 
26-199 
30-144 
30-220 

32- 248 

33- 78 

13-374 

13-670 

13-901 

13-822 

22-223 

26-201 

30-153 

30-222 

32-258 

56-13 


21-143 
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CROSS REFERENCE TABLE (CREF V04.00 ) 


RNERII 

7-0# 

13-163 

13-300 

13-302 


21-135 

21-150 

21-152 

22-80 


22-517 

22-520 

23-123 

23-139 


29-51 

29-55 

29-57 

29-58 


29-113 

29-114 

30-24 

30-29 


30-82 

30-155 

30-232 

30-236 


32-56 

32-58 

32-112 

32-187 

RNER10 

7-0# 

13-118* 

13-223* 

13-494* 

RNER2 

4-697# 

13-56 

13-65 

13-127 

RNER2I 

7-0# 

13-198 

13-294 

13-296 


13-440 

13-442 

13-529 

1 3- : 98 


22-460 

24-27 

26-32 

26-90 


30-101 

30-103 

30-116 

30-118 


32-134 

32-154 

32-156 

32-158 


33-98 

33-108 

33-110 

33-112 

RNER20 

7-0# 

13-119* 

13-224* 

13-590* 

RUHR 

4-695# 




RMHRI 

7-0# 




RMHRO 

7-0# 




RML A 

4-689# 

13-C14 

13— Cl 5 

13-C24 

RMLAI 

7-0# 

56-16 



RNLAO 

7-0# 




RWW1 

4-690# 

13-128 

13-232 

13-350 


13-:35 

l3-:99 

13-<01 

1 3— =02 

RNW1I 

7-6# 

13-178 

13-354 

13-357 

RMWR10 

7-0# 

13-120* 

13-225* 

13-350* 


13-;35* 

13-;99* 

1 3— <01 » 

13-=02* 

RNHR2 

4-696# 




RNBR2I 

7-0# 

13-190 

28-101 

31-81 

RWR20 

7-0# 




R80F 

4-693# 

13-922 

13- : 1 8 

13— :85 


13-E22 

13-E60 

13-F06 

13-F80 

RNOF1 

7-0# 

13-936 

22-377 

22-448 

RMOFO 

7-0# 

13-927* 

13-:14* 

13-.-81* 


13-C55 

13-C57* 

13-C60 

13-C62* 


23-98 

26-59 

26-63 

32-100 

rur 

4-573# 

13— =20 

13— =22 

29-51 

RMSN 

4-692# 




RHSNI 

7-0# 

56-17 



RNSNO 

7-0# 




RMWC 

4-759# 

13-10* 

13-11 

1 3— : 1 7 

RflUCl 

7-0# 

23-10 

23-23 

23-44 

mtco 

7-0# 

13—: 1 1 * 

13-:78* 

13-;44* 

RQA 

4-654# 

13-191 

28-102 

31-62 

ROB 

4-655# 

13-191 

28-102 

31-82 

RTC 

4-502# 

13-888 



SA1 

4-538 # 




SA16 

4-534# 




SA2 

4-537# 




SA4 

4-536# 




SA8 

4-535# 




SAOMSK 

4-542# 

23-68 



SAVREG 

41-13 

44-1# 



SC 

4-710# 

13-142 

21-90 

21-107 

SCO 

4-591# 




SCI 

4-590# 





0 9 
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13-307 

13-309 

1 3— : 31 

13- 

;64 

1 3— <30 

22-156 

22-183 

22-226 

22- 

^41 

22-284 

23-154 

23-166 

24-24 

26- 

30 

26-37 

29-69 

29-71 

29-72 

29- 

83 

29-85 

30-33 

30-35 

30-45 

30- 

47 

30-49 

30-238 

30-240 

30-250 

30- 

252 

30-254 

52-189 

32-191 

32-215 

33- 

42 

56-13 

13-589* 

13-748* 

1 3— <63* 

13-808* 

13-F34* 

13-231 

13-594 




13-384 

13-321 

13-323 

13-378 

13-380 

13-A92 

13-A95 

13-F18 

13- 

■F21 

15-55 

26-93 

26-104 

26-132 

26- 

■135 

26-184 

30-120 

30-130 

30-132 

30- 

■134 

30-171 

32-171 

32-173 

32-175 

32- 

■228 

32-244 

56-13 






13-591* 







13-391 

13-452 

13-454 

13-518 

13-520 

1 3-=04 

13-= 11 

13-A74 

13-A81 

13-E95 

13-394 

13-397 

28-79 

31-69 

56-17 

13-391* 

13-452* 

13-454* 

13-518* 

13-520* 

13-=04* 

13— =1 1 * 

13-A74* 

13-A77* 

13-E95* 

56-17 





13-;51 

13— <1 7 

1 3— <75 

13-945 

13-994 

18-51 





22-450 

22-515 

23-95 

56-14 

56-16 

13-;47* 

13— <13* 

13— <71 * 

13-941* 

13-977 

13-C77* 

13-019* 

13-D69* 

13-E03 

13-E05* 

32-104 

56-11 




29-83 

29-87 

30-232 

30-250 

30-253 


13---84 
23-149 
13— <10* 

13—; 50 

56-14 

13-<68* 

13— <16 

23-24 

13-<74 

23-45 

21-123 

28-30 
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1 3-=20 
22-361 
26-71 

29- 86 

30- 61 
30-264 

13-=23 

22-387 

26-145 

29- 97 

30- 63 
30-268 

1 3— =49 
22-402 
26-148 

29- 99 

30- 65 
30-270 

1 3— =52 
22-417 
26-169 

29- 100 

30- 78 

31- 41 

1 3— =82 
22-498 

28- 69 

29- 111 

30- 80 
32-50 

2.-139 





13-386 

21-137 

26-213 

30-218 

33-58 

13-418 

22-82 

28-114 

30-266 

33-74 

13-420 

22-200 

30- 31 

31- 103 
33-88 

13-424 

22-256 

30-92 

32- 52 

33- 94 

13-426 

22-432 

30-99 

32- 130 

33- 96 

1 3- : 00 
13-F03 

13-.02 

13-:66 

l3-:68 

1 3—; 33 

13-:00* 

13-E97* 

13-:02* 

13-:66* 

13-:68* 

13-;33* 

13-A39 

13-888 

13-C82 

13-025 

13-075 

13-979* 
13-El 8* 

13-992* 

13-E58* 

13-A35* 

13-F00* 

13-B81* 

13-F75* 

13-C35 

23-71 


E 
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SC2 

4-589# 



SC3 

4-588# 



SC4 

4-587# 


13-D91 

SCHSTS 

13-D03 

13-D51 

SCOPE 

4-479# 

13-2 

13-33 

13-561 

13-583 

13-613 


13-;21 

13-.-87 

1 3— <53 


13- 984 

14- 9 

13-A28 

13-A70 

SC TUSK 

4-593# 


13-C02 

SEARCH 

4-508# 

13-884 

SECERR 

13-249 

13-343 

13-470 


13-912 

13-956 

1 3->36 


13-674 

13-D07 

13-D55 

SEEK 

4-497# 

13— >18 

13— >48 

13-C78 

13-022 


SEKSTS 

1 3— >32 

13— >62 

13->93 

SHUT 

42-1 

42-1 

42-3# 

SIZCLK 

12-28 

19-3# 


SKI 

4-667# 

13-199 

13-321 

26-111 

26-122 

26-184 


32-142 

32-228 

33-74 

SSE 

4-673# 

22-459 


SSEI 

4-644# 

13-927 

13-937 

SSF 

STACK 

4-680# 

4-479# 

10-24 

13-2 

13-536 

13-561 

13-583 


1 3— : 54 

13—; 21 

13-.-87 


13-635 

13-F69 

13-984 

11-3# 

13-A28 

STANDA 

10-66 

10-18# 

START 

5-1 

10-11 

START1 

5-3 

10-15# 

13-28 

START2 

10-16 

10-19# 

13-657 

STCDRV 

13-509 

13-626 

STIMER 

13-896 

20-14 

20-38# 

STKlMT 

4-479# 

39-5# 


STO** 

39-1 

52-8 

STSD1 

52-1 

52-2 

STS02 

52-1 

52-2 

52-8 

STSD3 

56-16# 



STSD4 

52-1 

52-2 

52-8 

STSF 

53-1 

53-1 

53-1 

53-11 

53-12 

53-12 

STSH1 

51-1 

51-2 

51-8 

STSH2 

51-1 

51-2 

51-8 

STSH3 

55-25# 



STSH4 

51-1 

51-2 

51-8 


SUC 4-479# 

SWOO 4-479 4-479# 
SUOI 4-479 4-479# 
SW02 4-479 4-479# 
SU03 4-479 4-479# 
SU04 4-479 4-479# 
SW05 4-479 4-479# 
SW06 4-479 4-479# 


13-E37 

13-105 

13-631 

13-<95 

13-604 

13-E77 

13-210 

13-662 

13-=27 

13-B41 

13-F99 
13-252 
13-698 
13-= 60 
13-677 

32-40# 
13-277 
13-733 
1 3— >1 1 
13-C70 

13-C94 

13-487 

13->66 

13-097 

1 3— >78 

13-042 

13-511 

13->97 

13-E43 

13-713 

13-072 

13-533 

13-732 

13-E83 

13-746 

13-E14 

13-558 

13-764 

13-F27 

13-774 

13-728 

13-760 

13-789 

13-923 

13-378 

28-115 

33-89 

13-381 

30-92 

33-108 

13-418 

30-116 

33-111 

13-421 

30-119 

13-C60 

13-C62 

13-C77 

13-019 

13-33 

13-613 

13-<53 

13-A70 

13-105 

13-631 

13-<95 

13-804 

13-210 
13-662 
13— =27 
13-641 

13-252 

13-698 

13-=60 

13-877 

12-33 

12-42/ 

42-5 


13-693 

13-760 

13-822 

13-910 


52-10 

52-11 

52-12 

56-13# 

52-10 

52-11 

52-12 

56-14# 

52-10 

52-11 

52-12 

56-17# 

53-2 

53-2 

53-2 

53-8 

53-12 

57-7# 



51-9 

51-11 

51-12 

51-13 

51-9 

51-11 

51-12 

51-13 

51-9 

51-11 

51-12 

51-13 


9 


SEQ 0314 


13-328 

13-346 

13-448 

13-473 

13-490 

13-514 

13-536 

13-765 

13-830 

13-884 

13-915 

13-959 

13-988 

13-:54 

13->41 

1 3— >71 

13-705 

13-739 

13-767 

13-901 

13-935 

13-014 

13-065 

13— E 1 0 

13-E51 

13-E91 

13-F30 

13-F69 

13-E55 

13-F01 

13-F35 

13-F90 

22-104 

23-5 


13-580 

13-610 

13-628 

13-659 

13-695 

13-762 

13-824 

13-793 

13-927 

13-971 

13-A20 

13-A62 

13-801 

13-838 

13-F66 

13-603 

22-24# 





13-908 

13-940 

13-988 

13-A32 

13-A76 

13-811 

13-658 

13-966 

13-A15 

13-A58 

13-670 

13-C93 

13-039 

26-19# 

13-422 

15-178 

26-49 

26-52 

26-75 

26-105 

26-107 

30-218 

32-90 

32-93 

32-116 

32-130 

32-135 

32-137 

22-450 

23-71 

23-96 

23-98 

23-109 

26-63 

32-104 

13-277 

13-328 

13-346 

13-448 

13-473 

13-490 

13-514 

13-733 

13-765 

13-830 

13-884 

13-915 

13-959 

13-988 

13->11 

1 3— >41 

13— >71 

13-705 

13-739 

13-767 

13-901 

13-C70 

13-014 

13-065 

13-E10 

13-E51 

13-E91 

13-F30 


13-954 

13-834 

13-093 

13-E39 

13-E79 

13-F62 

33-27# 

53-8 

53-8 

53-10 

53-10 

53-10 

53-11 

53-11 


55-26# 
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SW07 

4-479 

4-479# 


SU08 

4-479 

4-479# 


SU09 

4-479 

4-479# 


SU1 

4-479# 



SW10 

4-479# 



sun 

4-479# 



SU12 

4-479# 



SU13 

4-479# 

41-14 


SUl 4 

4-479# 



SU15 

4-479# 



SU2 

4-479# 



SU3 

4-479# 



SU4 

4-479# 



SU5 

4-479# 



SU6 

4-479# 



SU7 

4-479# 



SU8 

4-479# 



SU9 

4-479# 



SUR 

6-0# 

10-24 

10-24 


39-1* 

39-1* 

39-1* 

SUREG 

5-1# 

10-24 

10-29 

STSTAT 

10-76 

47-18# 


TA1 

4-531# 

12-55 


TA2 

4-530# 



TA4 

4-529# 

12-55 


TA8 

4-528# 

12-55 


TADMSK 

4-541# 

23-66 


TAG 

4-656# 



TAGAOR 

5-9# 

6-0 


TAP 

4-635# 



TBITVE 

4-479# 



TIMOUT 

13-335 

13-458 

13-479 


1 3— : 91 

13-;57 

13— <23 


13-828 

13-SS6 

13-864 


13-F93 

15-136 

15-194 


TKVEC 4-479# 42-1* 42-1* 

TPVEC 4-479# 

TRAPVE 4-479# 10-24* 10-24* 

TRE 4-711# 13-256 13-266 

TRTVEC 4-479# 

TST 4-657# 13-192 28-103 

TST1 13-2# 39-1 

TST10 13-346# 39-1 

TSM1 13-448# 39-1 

TST12 13-473# 39-1 

TST13 13-490# 39-1 

TST 14 13-514# 39-1 

TST15 13-536# 39-1 

TST16 13-561# 39-1 

TST17 13-583# 39-1 

TST2 13-53# 39-1 

TST20 13-6^3# 39-1 

TST21 13 6 T 1# 39-1 

TST22 13 62# 39-1 

TST23 13-698# 39-1 

TST24 '3-733# 39-1 


10-24* 10-24* 10-24* 10-29 

40-1 40-1 40-1 40-1 

42-1 42-1 42-1 


13-503 

13-524 

13-550 

13-572 

13-<83 

13->26 

13— >56 

1 3->87 

13-C06 

20-9# 

13-C87 

13-C97 

13-D33 

21-90 

21-107 

21-123 

22-106 

31-83 
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SEO 0316 


13-633 

13-<97 

13-644 

13-664 

13-=29 

13-C72 

13-700 

13-=62 

13-D16 

13-735 

1 3— >1 4 
13-D67 

13-767 

,3->44 

13-E12 

13-832 

13->75 

13-E53 

13-886 

13-108 

13-E93 

13-210 

13-662 

13-=27 

13-641 

25-24 

13-252 

13-698 

13-=60 

13-677 

27-17 

13-277 
13-733 
13— >1 1 
13-C70 
28-54 

13-328 

13-765 

1 3— >41 
13-D14 
31-53 

13-346 

13-830 

1 3— >71 
13-D65 

13-448 

13-884 

13-?05 

13-E10 

13-473 

13-915 

13-739 

13-E51 

10-80 

11-19 

11-86 

13-39 

10-82 

11-20 

11-92 

13-41 

10- 96 

11- 28 
11-103 
13-45 

10-102 

11-32 

11-104 

13-46 

10- 105 

11- 34 
11-109 
13-48 

10- 109 

11- 40 
11-117 
13-50 

10- 117 

11- 44 

12- 3 

13- 52 


J 
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13-92 

13-93 

13-95 

13-97 

14-20 

14-20 

14-20 


41-21 

41-31 

41-32 

41-38 

41-43 

41-45 

41-53 


41-146 

42-1 

42-1 

42-1 

42-1 

42-1 

42-1 


42-1 

42-1 

42-1 

42-1 

42-1 

44-1# 

45-1 

TYPOC 

10-8 

11-33 

11-47 

41-138 

42-1 

44-1# 


TYPON 

44-1# 







TYPOS 

UO 

10-46 

4-736# 

10-57 

10-81 

12-16 

12-60 

13-40 

n-49 

U1 

4-736# 







U2 

4-736# 







UK'S 

4-561# 

13-164 

13-300 

13-303 

13-307 

13-494 

13-748 


29-55 

29-59 

30-232 

30-264 

30-269 



UNTRSK 

4-740# 

13-71 

13-90 

1 3--36 

21-48 

21-50 


UNTOFF 

10-109 

47-24# 






UNTON 

10-120 

47-25# 






UPE 

4-723# 

13-271 

22-270 





USE 

4-679# 







W 

4-555# 

13-317 

13-430 

13-433 

15-122 

22-196 

26-96 


30-145 

30-146 

30-169 

30-175 

31-29 

32-161 

32-205 

WC 

4-625# 

13-179 

28-80 

31-70 




WCD 

4-512# 







WCE 

4-722# 

13-271 

22-169 

48-77 

48-78 



WCEHI 

4-747# 







UCELO 

4-748# 







UCF 

4-570# 

4-577 

22-240 





UCH 

4-513# 







WO 

4-516# 







WH 

4-517# 







WLE 

4-564# 

4-577 

1 3— <29 

13-<31 

22-221 

22-225 

22-238 

URL 

4-550# 

13-314 

13-372 

13-375 

13-412 

13-415 

13-416 

XSIZ 

10-70# 

11-88 

11-118 





XXDP 

7-0# 

10-34* 

10-37* 

10-38 

10-40* 

10-45 

10-56 

Y 

47-37# 
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35-1 

41- 96 

42- 1 

36-1 

41- 102 

42- 1 

37-1 

41- 106 

42- 1 

38-1 

41- 118 

42- 1 

40- 1 

41- 124 

42- 1 

40- 1 

41- 126 

42- 1 

41-20 

41- 144 

42- 1 

13-94 

41-22 

41-39 

41-44 

41-46 

44-1# 


1 3— <63 

13-808 

13-B36 

13-F34 

13-F64 

28-70 

29-51 

26-161 

32-206 

26-162 

32-242 

26-211 

32-247 

26-216 

33-35 

29-23 

33-36 

29-26 

33-56 

30-106 

33-61 


22-253 22-268 48-81 48-82 

22-223 

10-113 10-115 


i 
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SSCNRE 

5-10# 







$SCMTM 

5-10# 

6-0 

6-0 

6-0 

6-0 

6-0 


SSESCA 

4-479# 







SSNEWT 

4-479# 

13-2 

13-33 

13-105 

13-210 

13-252 

13-277 


15-561 

13-583 

13-613 

13-631 

13-662 

13-698 

13-733 


13-;21 

13-;87 

13-<53 

13— <95 

13-=27 

l3-=60 

1 3->1 1 


13-884 

13-A28 

13-A70 

13-B04 

13-841 

13-B77 

13-C70 

SSSET 

44-1 

44-1 

44-1 

44-1 

44-1 

44-1 

44-1 

USETM 

10-24 

10-24# 






SSSKIP 

4-479# 







.SACT1 

4-471# 

5-5 






.IAPTB 

4-471# 

6-0 

6-0# 





•SAPTH 

4-471# 

5-8 






.1APTY 

4-471# 

46-1 






.SCATC 

4-467# 

5-1 






.SCNTA 

4-468# 

5-10 






.4E0P 

4-468# 

14-20 






.SERRO 

4-468# 

40-1 






.SPOWE 

4-470# 

45-1 






.SRDDE 

4-469# 







.SROOC 

4-469# 

43-1 






.SREAD 

4-469# 

42-1 






.SSAVE 

4-470# 

34-1 






.JSCOP 

4-468# 

39-1 






.SS1ZE 

4-470# 







. JTRAP 

4-470# 

44-1 






.$TYP8 

4-469# 

35-1 






.STYPD 

4-469# 

36-1 






-STYPE 

4-468# 

38-1 






.STVPO 

4-469# 

37-1 






.EQOAT 

4-467# 

4-479 






.HEaOE 

4-467# 

4-475 






.SETUP 

4-467# 

4-769 






.SWRH1 

4-467# 

4-476 






.SWRLO 

4-467# 

4-476# 

4-477 





CALCLR 

4-179# 

13-107 

13-212 

13-240 

13-254 

13-279 

13-330 


13-852 

13-A01 

13-A44 

13-A72 

13-B79 

13-D81 

13-E27 

CAL sue 

4-193# 

13-114 

13-132 

13-138 

13-219 

13-236 

13-243 


13-353 

13-393 

13-439 

13-460 

13-463 

13-466 

13-470 


13-505 

13-507 

13-509 

13-511 

13-516 

13-526 

13-528 


13-563 

13-570 

13-572 

13-574 

13-576 

13-578 

13-580 


13-620 

13-622 

13-624 

13-626 

13-628 

13-633 

13-639 


13-681 

13-683 

13-691 

13-693 

13-695 

13-700 

13-705 


13-760 

13-762 

13-767 

13-791 

13-806 

13-808 

13-816 


13-892 

13-894 

13-908 

13-910 

13-912 

13-917 

13-929 


13-968 

13-979 

13-990 

13-:23 

13-:26 

13-:28 

1 3- : 56 


13-;89 

1 3— <22 

1 3— <25 

1 3— <27 

13— <55 

13-<58 

1 3— <61 


13- =17 

1 3— =29 

1 3— =33 

1 3— =45 

13— =47 

13— =62 

1 3— =76 


13->34 

13->36 

13— >44 

1 3— >54 

13— >58 

13— >60 

1 3->62 


1 3->95 

1 3->97 

13-708 

13-720 

13-724 

13-726 

13-728 


13-762 

13-764 

13-770 

13-781 

13-785 

13-787 

13-789 


13-825 

13-827 

13-838 

13-854 

13-856 

13-858 

13-862 


13-A07 

13-A11 

13-A13 

13-A15 

13-A18 

13-A20 

13-A30 


13-A62 

13-A87 

13-A89 

13-A91 

13-A99 

13-801 

13-B06 


13-B44 

13-B54 

13-661 

13-864 

13-866 

13-868 

13-B70 


13-C86 

13-C89 

13-C91 

13-C93 

13-C95 

13-C99 

13-001 
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SEQ 0319 

CROSS 

REFERENCE 

TABLE (CREF V04.00 

) 











13-039 

13-D43 

13-D47 

13-D49 

1 3-D51 

13-053 

13-D55 

13-D67 

13-083 

13-087 

13-089 

13-D91 

13-D93 

13-095 


13-D97 

13-E12 

13-E29 

13-E33 

13-E35 

13-E37 

13-E39 

13-E41 

13-E43 

13-E53 

13-E69 

13-E73 

13-E75 

13-E77 


13-E79 

13-E81 

13-E83 

13-E93 

13-F10 

13-F14 

13-F16 

13-F25 

13-F27 

13-F32 

13-F45 

13-F47 

13-F58 

13-F60 


13-F62 

13-F64 

13-F66 

1 3— F 71 

13-F83 

13-F91 

13-F95 

13-F97 

13-F99 

13-G01 

13-G03 

COMMEN 

4-479# 














END COM 

4-479# 














ERROR 

4-479# 

13-25 

13-59 

13-68 

13-75 

13*82 

13-87 

13-107 

13-114 

13-132 

13-138 

13-146 

13-151 

13-160 


13-166 

13-176 

13-183 

13-188 

13-195 

13-201 

13-207 

13-212 

13-219 

13-236 

13-240 

13-243 

13-245 

13-249 


13-254 

13-256 

13-262 

13-268 

13-273 

13-279 

13-283 

13-353 

13-291 

13-298 

13-304 

13-311 

13-319 

13-325 

13-^30 


13-332 

13-337 

13-340 

13-343 

13-348 

13-350 

13-358 

13-365 

13-371 

13-377 

13-383 

13-389 

13-391 


13-393 

13-398 

13-405 

13-411 

13-417 

13-423 

13-429 

13-435 

13-437 

13-439 

13-445 

13-450 

13-452 

13-454 


13-456 

13-460 

13-403 

13-466 

13-470 

13-475 

13-477 

13-481 

13-483 

13-485 

13-487 

13-492 

13-494 

13-496 


13-499 

13-502 

13-505 

13-507 

13-509 

13-511 

13-516 

13-518 

13-520 

13-522 

13-526 

13-528 

13-531 

13-533 


13-538 

13-548 

13-552 

13-554 

13-556 

13-558 

13-563 

13-565 

13-567 

13-574 

13-576 

13-578 

13-580 

13-585 


13-598 

13-603 

13-606 

13-608 

13-610 

13-615 

13-617 

13-620 

13-622 

13-624 

13-626 

13-628 

13-633 

13-635 


13-639 

13-641 

13-647 

13-653 

13-655 

13-657 

13-659 

13-664 

13-666 

13-669 

13-675 

13-677 

13-679 

13-681 


13-683 

13-689 

13-691 

13-693 

13-695 

13-700 

13-702 

13-705 

13-711 

13-718 

13-720 

13-722 

13-728 

13-730 


13-735 

13-737 

13-740 

13-746 

13-748 

13-750 

13-752 

13-758 

13-760 

13-762 

13-767 

13-791 

13-793 

13-806 


13-808 

13-809 

13-816 

13-818 

13-020 

13-822 

13-824 

13-832 

13-854 

13-863 

13-877 

13-878 

13-886 

13-888 


13-892 

13-894 

13-900 

13-906 

13-908 

13-910 

13-912 

13-917 

13-929 

13-933 

13-935 

13-940 

13-945 

13-950 


13-952 

13-954 

13-956 

13-961 

13-963 

13-966 

13-968 

13-974 

13-977 

13-979 

13-985 

13-990 

13-995 

13-:00 


1 3— :02 

13-:06 

13-:23 

13-.-26 

13-:28 

1 3—; 35 

13-:46 

1 3— : 56 

1 3— : 61 

1 3- : 66 

13- -68 

13-:90 

1 3— : 93 

1 3— : 95 


1 3—; 02 

13-;13 

1 3—; 23 

13-;?8 

l3-;33 

13-.-35 

13-;39 

1 3—; 56 

13-.-59 

13— ;61 

13-;68 

13-;79 

1 3— ;89 

l3-;94 


13-;99 

13-<01 

1 3— <05 

13-<22 

1 3— <25 

1 3— <27 

1 3-<34 

13-<45 

1 3— <55 

1 3— <61 

1 3— <63 

1 3— <80 

13-<85 

1 3— <87 


1 3-<97 

13-=02 

1 3— =04 

13-=06 

13-=08 

13— =1 1 

13-=13 

13-=15 

1 3— =1 7 

13-s24 

1 3— =29 

13-=33 

13-=45 

13-=47 


13-=54 

13-=62 

1 3— =72 

13-=76 

13-=78 

13-=80 

13-=87 

13— >14 

13->24 

13->28 

1 3— >30 

1 3— >32 

13- >34 

13->36 


1 3- >44 

13— >54 

1 3— >58 

13->60 

13->62 

13->64 

1 3->66 

13— >75 

13->84 

13->89 

1 3— >91 

13->93 

1 3— >95 

13->97 


13-708 

13-720 

13-724 

13-726 

‘ 13-728 

13-730 

13-732 

13-742 

13-752 

13-756 

13-758 

13-760 

13-762 

13-764 


13-770 

13-781 

13-785 

13-787 

13-789 

13-791 

13-793 

13-804 

13-815 

13-819 

13-821 

13-823 

13-825 

13-827 


13-838 

13-852 

13-854 

13-856 

13-858 

13-862 

13-864 

13-866 

13-869 

13-871 

13-886 

13-A01 

13-A03 

13-A05 


13-A07 

13-A11 

13-A13 

’3-A72 

13-A15 

13-A18 

13-A20 

13-A30 

13-A44 

13-A46 

13-A48 

13-A50 

13-A54 

13-A56 

13-A58 


13-A60 

13-A62 

13-A74 

13-A87 

13-A89 

13-A91 

13-A97 

13-A99 

13-601 

13-606 

13-619 

1 3**621 

13-627 


13-630 

13-632 

13-634 

13-636 

13-638 

13-644 

13-854 

13-661 

13-666 

13-668 

13-670 

13-672 

13-674 

13-679 


13-693 

13-C04 

13-C08 

13-C10 

13-C28 

13-C50 

13-C72 

13-C86 

13-C89 

13-C9I 

13-C93 

13-C95 

13-C99 

13-001 


13-D03 

13-D05 

13-D07 

13-D16 

13-D31 

13-035 

13-037 

13-039 

13-043 

13-D47 

13-049 

13-051 

13-053 

1 3—055 


13-D67 

13-D81 

13-D83 

13-D87 

13-089 

13-091 

13-093 

13-095 

13-D97 

13-El 2 

13-E27 

13-E29 

13-E33 

13-E35 


13-E37 

13-E39 

13-E41 

13-E43 

13-E53 

13-E67 

13-E69 

13-E73 

13-E75 

13-E77 

13-E79 

13-E81 

13-E83 

13-E93 


13-E95 

13-F10 

13-F14 

13-F16 

13-F23 

13-F25 

13-F27 

13-F32 

13-F45 

13-F4? 

13-F54 

13-F58 

13-F60 

13-F62 


13-F64 

13-F66 

13-F71 

13-F83 

13-F91 

13-F95 

13-F97 

13-F99 

13-G01 

13-G03 

39-1 

ESCAPE 

4-479# 













6ETPRI 

4-479# 














GETREG 

4-156# 














GETSWR 

4-479# 

10-29 

10-29# 


* 










MSG 

4-8# 














MULT 

4-479# 














NEUTST 

4-479# 

13-2 

13-33 

13-105 

13-210 

13-252 

13-277 

13-328 

13-346 

13-448 

13-473 

13-490 

1 3—514 

13-536 


13-561 

13-583 

13-613 

13-631 

13-662 

13-698 

13-733 

13-765 

13-830 

13-884 

1^-915 

13-959 

13-988 

1 3- : 54 


13-;21 

13-;87 

13-<53 

73— <95 

13-=27 

13-=60 

1 3->1 1 

1 3->41 

1 3— >71 

13-705 

13-739 

13-767 

13-801 

13-835 


13-884 

T3-A28 

13-A70 

13-604 

13-641 

13-677 

13-C70 

13-014 

13-065 

1 3— El 0 

13-E51 

13-E91 

13-F30 

13-F69 

NWTST 

4-36# 

13-2 

13-33 

13-105 

13-210 

13-252 

13-277 

13-328 

13-346 

13-448 

13-473 

13-490 

13-514 

13-536 


13-561 

13-583 

13-613 

13-631 

13-662 

13-698 

13-733 

13-765 

13-830 

13-884 

13-915 

13-959 

13-988 

1 3— : 54 


13-;21 

13-;87 

1 3— <53 

13-<95 

1 3-=27 

13-=60 

1 3->1 1 

1 3— >41 

1 3— >71 

13-705 

13-739 

13-767 

13-801 

13-835 


13-884 

13-A28 

13-A70 

13-604 

13-841 

13-677 

13-C70 

13-014 

13-D65 

13— E10 

13-E51 

13-E91 

13-F30 

13-F69 

POP 

4-479# 

13-17 

13-20 

13-24 

13- >08 

1 3— >09 

13-C66 

13-C67 

16-25 

16-26 

16-27 

17-70 

34-1 

18-63 

19-18 


20-31 

20-44 

21-145 

21-149 

22-131 

22-447 

25-51 

27-25 

28-58 

31-58 

31-59 

36-1 

43-1 


45-1 

45-1 

46-1 

,46-7 
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SEQ 0320 


CZRNDAO RB80 FCTNL PT1 NACRO V04.00 28- JAN-82 16:24:51 PAGE M-3 
CROSS REFERENCE TABLE (CREF V04.00 ) 


PUSH 

4-479# 

13-5 

13-14 

13-783 

13-784 

13-785 

13-786 

13-842 

13-843 

13-844 

13-849 

13-850 

13-851 

13- =66 


1 3— =67 

16-10 

16-11 

16-12 

17-35 

18-29 

19-3 

20-9 

20-38 

21-141 

22-128 

22-444 

25-20 

27-12 


28-52 

31-51 

31-52 

34-1 

36-1 

43-1 

45-1 

45-1 

46-1 

46-1 

46-1 




PUTREG 

4-437# 

13-256 

13-332 

13-350 

13-391 

13-437 

13-452 

13-454 

13-456 

13-477 

13-494 

13-496 

13-518 

13-520 


13-522 

13-565 

13-567 

13-617 

13-635 

13-666 

13-679 

13-702 

13-737 

13-748 

13-750 

13-793 

13-854 

13-863 


13-888 

13-963 

13-977 

1 3- : 00 

13-.-02 

1 3- : 06 

1 3— : 66 

13-:68 

13- -33 

13—; 35 

13-;39 

13-.-99 

1 3-<01 

1 3— <05 


1 3— <63 

13-=02 

1 3— =04 

13-=06 

13-=11 

13— =1 3 

1 3-=1 5 

13-A74 

1 3— §95 






REPORT 

4-479# 














RGBFHC 

4-69# 

7-0 

7-0 












SETPRI 

4-479# 

12-48 

39-5 

39-9 

42-1 










SETTRA 

44-1 

44-1 

44-1 

44-1 

44-1 

44-1 

44-1 

44-1 

44-1 

44-1 

44-1 

44-1 

44-1 

44-1# 

SETUP 

4-479# 

10-24 













SKIP 

4-479# 














SLASH 

4-479# 














STARS 

4-479# 

5-5 

5-8 

5-8 

5-8 

6-0 

6-0 

6-0 

13-2 

13-2 

13-33 

13-33 

13-105 

13-105 


13-210 

13-210 

13-252 

13-252 

13-277 

13-277 

13-328 

13-328 

13-346 

13-346 

13-448 

13-448 

13-473 

13-473 


13-490 

13-490 

13-514 

13-514 

13-536 

13-536 

13-561 

13-561 

13-583 

13-583 

13-613 

13-613 

13-631 

13-631 


13-662 

13-662 

13-698 

13-698 

13-733 

13-733 

13-765 

13-765 

13-830 

13-830 

13-884 

13-884 

13-915 

13-915 


13-959 

13-959 

13-988 

13-988 

1 3— : 54 

13-.-54 

1 3—; 21 

13— ; 21 

1 3—; 87 

1 3—; 87 

13-<53 

13— <53 

1 3— <95 

13-<95 


1 3— =27 

13-= 2 7 

13-=60 

13-=60 

13— >1 1 

13— >1 1 

1 3— >41 

1 3— >41 

1 3— >71 

1 3->71 

13-705 

13-705 

13-739 

13-739 


13-767 

13-767 

13-aoi 

13-301 

13-835 

13-335 

13-884 

13-884 

13-A28 

13-A28 

13-A70 

13-A70 

13-804 

13-804 


13-B41 

13-841 

13-877 

13-877 

13-C70 

13-C70 

13-014 

13-014 

13-065 

13-065 

13-F.10 

13— E10 

13-E51 

13-E51 


13-E91 

13-E91 

13-F30 

13-F30 

13-F69 

13-F69 

14-20 

15-57 

15-70 

15-84 

15-107 

15-138 

15-160 

15-196 


22-26 

22-34 

22-119 

23-1 

23-3 

34-1 

35-1 

36-1 

37-1 

38-1 

39-1 

40-1 

42-1 

42-1 


42-1 

42-1 

42-1 

43-1 

44-1 

45-1 

45-1 

46-1 







SURSU 

4-479# 

10-24 

10-24# 












TAGS 

4-103# 

6-0 













TRWTRP 

44-1# 














TYP8IN 

4-479# 














TYPOEC 

4-479# 

14-20 

14-20 












TYPNAN 

4-467# 

4-479# 

10-29 












TYPNUH 

4-479# 














TYPOCS 

4-479# 

10-81 

12-16 

12-60 

13-40 

13-49 

13-94 

41-22 

41-39 

41-44 

41-46 




TYPOCT 

4-479# 

11-33 

42-1 












TYPTXT 

4-479# 

10-6 

10-43 

10-54 

10-60 

12-30 

14-20 

14-20 







XPER 

4-12# 

8-3 

8-6 

8-9 

8-12 

8-15 

8-18 

8-21 

8-24 

8-27 

8-30 

8-33 

8-36 

8-39 


8-42 

8-45 

8-48 

8-51 

8-54 

8-57 

8-60 

8-63 

8-66 

8-69 

8-72 

8-75 

8-78 

8-81 


8-84 

8-87 

8-90 

8-93 

8-96 

8-99 

8-102 

8-105 

8-108 

8-111 

8-114 

8-117 

8-120 

8-123 


8-126 

8-130 

8-133 

8-136 

8-139 

8-142 

8-146 

8-150 

8-154 

8-157 

8-160 

8-163 

8-166 

8-169 


8-172 

8-175 

8-178 

3-182 

8-185 

8-188 

8-191 

8-194 

8-197 

8-200 

8-203 

8-206 

£-209 

8-212 


8-215 

8-218 

8-221 

3-224 

8-227 

8-230 

8-233 

8-236 

8-239 

8-242 

8-245 

8-248 

8-251 

8-254 


8-257 

8-260 

8-263 

8-266 

8-269 

8-272 

8-275 

8-278 

8-281 

8-284 

8-287 

8-290 

8-293 

8-296 


8-299 

8-302 

8-305 

8-308 

8-311 

8-314 

8-317 

8-320 

8-323 

8-326 

8-329 

8-332 

8-335 

8-338 


8-341 

8-344 

8-347 

8-351 

8-354 

8-357 

8-360 

8-363 

8-366 

8-369 

8-372 

8-375 

8-378 

8-381 


8-384 

8-387 

8-390 

8-393 

8-396 

8-399 

8-402 

8-405 

8-408 

8-411 

8-414 

8-417 

8-420 

8-423 


8-426 

8-429 

8-432 

8-435 

8-438 

8-441 

8-444 

8-447 

8-450 

8-453 

8-456 

8-459 

8-462 

8-465 


8-468 

3-471 

8-474 

8-477 

8-480 

8-483 

8-486 

8-489 

8-492 

8-495 

8-498 

8-501 

8-504 

8-507 


8-510 

8-513 

8-516 

8-519 

8-522 

8-525 

8-528 

8-531 

8-534 

8-537 

8-540 

8-543 

8-546 

8-549 


8-552 

8-556 

8-559 

8-563 

8-566 

8-569 

8-573 

8-577 

8-581 

8-586 

8-590 

8-594 

8-597 

8-600 


8-603 

8-606 

3-609 

8-612 

8-615 

8-618 

8-621 

8-624 

8-627 

8-630 

8-633 

8-636 

8-639 

8-64? 


8-645 

8-648 

8-651 

8-654 

8-657 

8-660 

1-663 

8-666 

8-669 

8-672 

8-675 

8-678 

8-681 



8-687 

8-690 

8-693 

8-696 

8-699 

8-702 

8-705 

8-708 

8-711 

8-714 

8-717 

8-720 

8-723 



! 


